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Schaltpläne 


Einleitung 


Als wir im Herbst 1984 den ersten CPC 464 erhielten, waren wir zuerst 
skeptisch. 'Einer von vielen’, so dachten wir, bevor wir die Leistungsfä- 
higkeit des Rechners kannten. 


Wie gründlich wir unsere Meinung schon nach kurzer Zeit revidierten, 
können Sie nicht nur am Umfang, sondern auch am Inhalt des vorliegen- 
den Buchs ablesen. 


Der CPC 464 ist ein fantastisches Gerät mit derzeit konkurrenzlosem 
Preis-Leistungsverhältnis. In der Klasse der Geräte unter DM 1000.— 
stellt der CPC eine neue Dimension dar. Ausschlaggebend hierfür sind 
mehrere Punkte. Zunächst besticht die Vollständigkeit des Systems. Kein 
Streit um Dallas oder Sportschau trüben dank mitgeliefertem Farb— oder 
Grünmonitor das Familienleben, die lästigen und immer nur als Fußan- 
geln nützlichen Verbindungskabel gehören der Vergangenheit an, der 
eingebaute Recorder verbannt die ewige Fummelei mit der richtigen 
Lautstärke in die frühe Computersteinzeit und die kostspieligen Speiche- 
rerweiterungen und Interface-Karten kann man jetzt auch getrost ver- 
gessen. Es ist einfach alles da, um sofort loszulegen. 


Und wie man loslegen kann. Das LOCOMOTIVE--Basic gehört unbe- 
streitbar zum besten, was man für Geld und gute Worte bekommen kann. 
Besonderer Knackpunkt ist die sehr flexible und vielseitig einsetzbare 
Programmierung von Interrupts, die dieses Basic parat hat. 

Die excellente Grafik und die Möglichkeit der Darstellung von 80 Zeichen 
auf dem Bildschirm ohne zusätzliche Module und Unkosten ist bislang 
unübertoffen. Andere Rechner unterhalb der magischen DM 1000.— 
Grenze haben oft schon immense Probleme, 40 Zeichen pro Zeile lesbar 
und flimmerfrei auf den Bildschirm zu bekommen. 

Die Grafik— Auflösung von 640 x 200 Punkten ist in dieser Preisklasse ge- 
nau so einmalig. Vergleichbare Leistungen bietet z.B. der IBM-PC, das 
allerdings nur beim mindestens fünf- bis achtfachen des Preises eines 
CPC 464. 

Auch die Soundmöglichkeiten des CPC sind beeindruckend. Zwar ist die 
Erzeugung eines Stradivari—-Klangs selbst bei geschicktester Program- 
mierung nicht erzielbar, aber Sie haben sich ja auch für einen leistungsfä- 
higen Computer und nicht für eine Geige entschieden. 


Was die Geschwindigkeit angeht, so muß sich der CPC nicht verstecken. 
Der eingebaute Z80-Prozessor wird mit einer Taktfrequenz von 4 MHz 
betrieben und hat einen sehr mächtigen Befehlsvorrat. Dieser Befehls- 
vorrat wurde von den Entwicklern stark 'ausgereizt'. Das Ergebnis ist ein 
wirklich flotter Basic-Interpreter, der seinesgleichen sucht. 


Aber über kurz oder lang (sicher eher kurz) kommt bei fast allen Compu- 


terbesitzern der Wunsch nach mehr Information, mehr Wissen über den 
Computer, den man besitzt. Das wirklich lobenswert gute Bedienungs- 
—Handbuch zum CPC allein reicht nicht aus. Besonders gilt dies dann, 
nachdem das Basic etwas an Reiz verloren hat, und es gilt, die durch Ba- 
sic gesteckten Grenzen in Richtung Maschinensprache zu überschreiten. 
Dann werden Informationen nötig, die weit über das hinausgehen, was 
ein Bedienungshandbuch geben kann. 


Diese Informationen wollen wir Ihnen mit dem vorliegenden Buch zur 
Hand geben. Alles, was wir in langer Nacht— und Tagarbeit (die Reihen- 
folge stimmt) über den CPC herausbekommen haben, finden Sie in die- 
sem Buch. 


Sie finden hier eine detaillierte Beschreibung der Hardware mit Schalt- 
plan, ein sehr vollständig dokumentiertes Listing des Betriebssystems 
und des Basic, wichtige Adressen im Ram, aber auch Basic-Befehle, die 
im Handbuch nicht beschrieben sind. Weiter sind Tricks im Umgang mit 
der Cassette und dem Drucker enthalten, sowie die Programmierung der 
Grafik in Maschinensprache. 


Wir hoffen, daß Ihnen die gebotene Information nützlich ist, und SieIhren 
CPC noch besser verstehen. 


Ihre Autoren 


1 DIEHARDWARE 


1.1 Das sollten Sie von Ihrem Gerät wissen. 


Sie haben noch nicht zum Schraubendreher gegriffen, um das Innenleben 
dieses 'Wunderkastens’ zu betrachten? Macht nichts, wir haben Ihnen 
die Arbeit des Aufschraubens abgenommen und das Ergebnis für Sie 
photografiert. Bild 1.1.0.1 zeigt, wie es im Innern des Gerätes aussieht. 


Ganze 25 ICs sind auf einer recht großen Leiterplatte großzügig verteilt. 
Die Leistungsfähigkeit des CPC ist also nicht durch besonders aufwendi- 
ge Elektronik erreicht, eher ist es die Software, durch die der Rechner so 
außergewöhnlich wird. Da ist dann auch der erstaunlich niedrige Preis 
für das Gesamtsystem verständlich. Die paar Bauteile im CPC kosten ja 
nicht viel. 


Allein 9ICs stellen den im CPC verfügbaren Speicher dar. Acht Bausteine 
vom Typ 4164 sind die Rams, der Arbeitsspeicher des Rechners. Das 
neunte Speicher-IC ist ein Rom mit 32K-Byte. Nun hat aber der Z80 als 
8-Bit-Prozessor nur einen Adressbereich von 64K-Byte und der wird 
durch die Ram-Bausteine vollständig ausgefüllt. 

Die scheinbar unmögliche Adressierung von 96K ist durch sehr intelli- 
gente als Bank-Switching bekannte Programmiertricks und Hardware 
gelungen. Aber damit nicht genug. Theoretisch lassen sich an den CPC 
maximal 252 externe Roms mit jeweils 16K anschließen und über 
Bank-Switching adressieren. Das entspricht einem gesamten Adressbe- 
reich von etwa 4 Megabyte! 


Außerdem enthält der CPC an hochintegrierten Bausteinen einen Video- 
-Controller HD 6845, einen Parallelport 8255, einen Sound Chip 
AY-3-8912 und ein speziell für den CPC entwickeltes sogenanntes Ga- 
te Array. 


Der Video-Controller hat die Aufgabe, alle für den Betrieb des Monitors 
benötigten Signale zur Verfügung zu stellen. Auch adressiert er das Bild- 
schirmram, den Speicherbereich, in dem die darzustellenden Zeichen 
und die Grafik abgelegt werden. Zusätzlich erzeugt er den für die Rams 
nötigen Refresh, ohne den diese ihre Information schnell verlieren wür- 
den. 


Die Aufgabe des Sound Chip geht schon aus seinem Namen hervor. Die 
von den Konstrukteuren getroffene Wahl ist sehr gut. Der AY-3-8912 ist 
in vielen Computern eingesetzt worden, weiler sehr vielseitige und weit- 
reichende Beeinflussungsmöglichkeiten des Sounds bietet. 


Der 8255 ist das "Arbeitstier’ im CPC. Seine Aufgaben sind sehr vielfältig. 





Das beginnt bei der Kontrolle der Tastatur, geht über die Ansteuerung 
des Sound Chip weiter zur Steuerung des Recorders, bestimmt verschie- 
dene Möglichkeiten des CPC u.s.w. 


Besonders interessant ist das Gate Array. Dieser Baustein steuert so vie- 
le Dinge im CPC, daß man ihm fast den Rang eines Hilfsprozessors zu- 
sprechen könnte. So werden viele den Bildschirm betreffende Aufgaben 
von ihm übernommen. Dazu gehört unter anderem die Darstellung der 
verschiedenen Farben und die unterschiedlichen Zeilenformate. Weiter 
werden alle benötigten Taktsignale im Gate Array erzeugt. Der Interrupt, 
der 300 mal in der Sekunde den normalen Programmablauf unterbricht, 
wird, wie auch die Signale für die Verwaltung der 96 K Speicher im CPC, 
von Gate Array genenert 


Wie die einzelnen Komponenten zusammenspielen, zeigt das Block- 
schaltbild 1.1.0.2. 


1.1.1 Die Speicheraufteilung 


Noch vor 5 Jahren galten Computer mit 16 K Ram als recht gut bestückt. 
Spätestens seit dem Erscheinen des C64 von Commodore haben sich die 
Speichergrenzen deutlich verschoben. Ein Computerhersteller kann sich 
nur dann ausreichend Marktchancen ausrechnen, wenn auf seinem Ge- 
rät wenigstens die 'magische 64’ erscheint. 

Auch der CPC ist mit einem Rambereich von 64 K = 65536 Speicherplät- 


zei ausyelustet. Zusätzlich sınd nuch 32 KROM eimgebau! 


Nun ist es nicht besonders schwer, 64 K Speicher in einem Computer un- 
terzubringen, da die gebräuchlichen 8-Bit-Prozessoren diesen Speicher- 
bereich alle adressieren können. Auch der Z80 des CPC kann 64 K Spei- 
cher ohne Tricks adressieren. Das reicht aber gerade für den Ram-Spei- 
cher des CPC, dann geht schon nichts mehr. 

Will man aber mehr Speicher mit diesen Prozessoren adressieren, so hat 
man mehrere Möglichkeiten, dies zu tun. Neben solch hardwareorientier- 
ten Möglichkeiten wie dem Einsatz spezieller Expander zum Erreichen 
eines Adressbusses mit 19 oder 20 Adressleitungen gibt es auch mehr 
softwaremäßige Mittel. Einer dieser Wege ist das 'Bank-Switching'-Ver- 
fahren. 

Bei diesem Verfahren werden in sich überlappenden Speicherbereichen 
(den sogenannten Banks) wahlweise Ram oder Rom angesprochen. Im 
Gegensatz zu denreinhardwaremäßigen Lösungen benötigt man für die- 
ses Verfahren zwar eine Software, die das Miteinander vonRom undRam 
auf denselben Adressen organisiert. Die aber ist den Entwicklern sehr 
elegant gelungen. 


Im CPC ergibt sich nun das folgende Bild. Durchgängig adressiert wer- 
den 64 K Ram. ’Parallel’ dazu liegt in den untersten 16 K (&0000 bis 


5 


GATE ARRAY 





1.1.0.2 Bilockschaltbild des CPC 


&3FFF) eine Hälfte des Rom, die zweite Hälfte liegt in den oberen 16 K 
(&C000 bis &FFFF). 

Die unteren 16 K Rom beinhalten das Betriebssystem und ein Paket von 
Routinen für die Arithmetik. Im Betriebssystem finden sich alle Routinen, 
die der CPC benötigt, um z.B. ein Zeichen von der Tastatur zu lesen, ein 
Zeichen oder einen Grafik-Punkt auf den Bildschirm zu bringen, aber 
auch der Recorder und die Drucker-Schnittstelle sowie der Sound wird 
über das Betriebssystem bedient. 

In den oberen 16 K befindet sich der Basicinterpreter. Diese 16 K haben 
noch eine besondere Bewandtnis. In diesen Bereich können bis zu 252 
weitere Roms geschaltet werden. So sind z.B. alle für den Betrieb der 
Floppy benötigten Routinen in einem Rom untergebracht, das sich den 
Platz mit dem Basic 'teilt'. 


Grafisch kann man die Speicheraufteilung wie im Bild 1.1.1.1 darstellen. 
1.1.2 Befehlserweiterung via RST 


Allerdings stellt sich bei dieser Art der Ansteuerung die Frage, wie der 
Zugriff auf die Roms oder das darunter liegende Ram geschehen kann. 
Für diese Aufgaben, die sonst einen nicht unerheblichen Programmier- 
aufwand bedeuten würden, haben sich die Programmierer des Betriebs- 
systems einen schönen Trick einfallen lassen. Durch spezielle Program- 
me und der geschickten Ausnutzung der RESTART-Befehle des Z80 er- 
gibt sich für die Restarts RST1 bis RST5 quasi eine Erweiterung des Be- 
fehlssatzes des Z80. Diese RSTs lassen sich wie übliche JPs oder CALLs 
einsetzen. Bei einigen RSTs wird allerdings eine 3-Byte-Adresse ver- 
langt. Im zusätzlichen dritten Byte wird dann bestimmt, in welches ROM 
der JP oder CALL gehen soll. 


LOW JUMP RST 1 


Dieser Befehl dient zum Aufruf einer Routine im Betriebssystem oder im 
darunterliegenden RAM. Direkt hinter dem RST-Befehl muß die Adresse 
der aufzurufenden Routine stehen. Da für den Bereich von 0 bis &3FFF 14 
Adreßbits ausreichen, benutzt man die oberen beiden Bits für die Aus- 
wahl von ROM oder RAM: 


Bit14=0 Betriebssystem ausgewählt 
Bit 14 =1 RAM ausgewählt 

Bit15=0 BASIC-ROM ausgewählt 
Bit15=1 RAM ausgewählt 


Ein Aufruf der Betriebssystemroutine &1410 könnte dann so aussehen: 


RST1 
DW &1410 + &8000 


FFFF 





16K 16K 
(VIDEO) 


RAM 
16K 
RAM 
16K 
RAM 





Cooo 


8000 





4000 





16K 

Betriebs- 
system 

ROM 






1.1.1.1 Speicheraufteilung im CPC 


Durch das gesetzte Bit 15 ist im Bereich von &C000 bis &FFFF RAM selek- 
tiert, während durch das gelöschte Bit 14 das Betriebssystem angespro- 
chen wird 


Der Kode ander Adresse 8 bestehtlediglich aus einem Sprung zu &B982. 


SIDE CALL RST2 


Dieser Restart-Befehl dient zum Aufruf einer Routine in einem Expan- 
sion-ROM. Der Befehl wird dann benutzt, wenn ein Programm, das als 
ROM-Modul vorliegt, mehr als 16 KByte benötigt und nicht mehrin einem 
Expansion-ROM Platz hat. Dann kann mit Hilfe des SIDE CALL eine Rou- 
tine im zweiten, dritten oder vierten zugehörigen ROM aufgerufen wer- 
den, ohne daß man die absolute Nummer des jeweiligen ROMs kennen 
muß. Nach dem RST 2-Befehl muß die Adresse der Routine - &C000, d.h. 
also die relative Adresse bezogen auf den Start des ROMs, stehen. Die 
obersten beiden Bits werden zur Auswahl der vier verschiedenen ROMs 
benutzt. 


An Adresse &0010 steht ein Sprung zu &BA16. 


FAR CALL RST3 


Mit Hilfe dieses RST-Befehls können Sie eine Routine irgendwo im ROM 
oder RAM aufrufen. Dazu muß hinter dem RST 3-Befehl die 2-Byte-Adres- 
se eines Parameterblocks stehen, der aus drei Bytes besteht. Diese er- 
sten beiden Bytes enthalten die Adresse der Routine, die aufgerufen 
werden soll, und das dritte Byte muß den gewünschten ROM/RAM-Sta- 
tus enthalten. Dabei wird durch die Werte von O bis 251 das entsprechen- 
de Zusatzrom angesprochen. Die verbleibenden vier Werte haben folgen- 
de Funktion: 


Wert &0000-&3FFF &C000-&FFFF 
252 Betriebssystem BASIC 
253 Betriebssystem RAM 
254 RAM BASIC 
255 RAM RAM 


An Adresse &0018 steht ein Sprung nach &B9BF. 


RAM LAM RST4 


Mit Hilfe dieses RST-Befehls können Sie von einem Maschinenprogramm 
den Inhalt desRAMslesen, unabhängig vom jeweils gewählten ROM-Zu- 
stand. Der RST 4-Befehl ersetzt dabei den Befehl. 


LD A,(HL) 
HL muß dazu also die Adresse der zu lesenden Speicherzelle enthalten. 
An Adresse &0020 steht ein Sprung zu &BACB. 
FIRM JUMP RST5 
Mittels dieses RST-Befehls kann man zu einer Routine im Betriebssystem 
springen. Die Adresse muß dabei unmittelbar auf den RST 5-Befehl fol- 
gen. Das Betriebssystem-ROM wird enabled, bevor die Routine ange- 


sprungen wird und wird bei der Rückkehr wieder disabled. An Adresse 
&0028 steht ein Sprung zu &BA2E. 
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1.2 Der Prozessor 280 


In den frühen 70er Jahren begann der Siegeszug der Microprozessoren. 
Die Firma INTEL konnte mit dem Prozessor 8080 einen bedeutenden 
Marktanteil erreichen, da zum Zeitpunkt der Markteinführung in dieser 
Klasse praktisch keine Konkurrenz vorhanden war. Dies macht sich aller- 
dings auch bemerkbar, wenn die Leistungsdaten des Prozessors genauer 
untersucht werden. So benötigt der 8080 noch drei verschiedene Be- 
triebsspannungen und zwei weitere ICs zur Steuersignalerzeugung und 
Taktgenerierung. 


In den Jahren 74/75 wurde von der Firma ZILOG der Z80 entwickelt. An- 
statt aber einen von Grund auf neuen Prozessor zu entwickeln, hielt man 
sich an das so gut angekommene Konzept des 8080. Aus diesem Grunde 
ist der Z80 zum 8080 aufwärts-kompatibel, d.h. alle für einen 8080 ge- 
schriebenen Programme laufen auch auf einem Z80-Prozessor. 


Allerdings wurden alle mittlerweile beim 8080 als ungünstig erkannten 
Eigenschaften beseitigt und der Befehlssatz wurde stark erweitert. Auch 
benötigt der Z80 nur eine Betriebsspannung von +5Volt und aufwendige 
externe ICs zur Steuersignalerzeugung sind überflüssig. 


Doch betrachten wir im Telegrammstil die Leistungsdaten des Prozes- 
sors, bevor wir auf seine Eigenschaften etwas konkreter eingehen. 


8- Bit- Prozessor in NMOS- Technologie 

16— Bit— Adressbus 

Einfache Stromversorgung 5 Volt 

Einfacher Takt 

TTL- Kompatibel 

Wahlweise 2.5, 4, 6 oder sogar 8 MHz Taktfrequenz 
Softwarekompatibel mit 8080 

Doppelter Registersatz, zusätzlich zwei Indexregister 
Nicht maskierbarer Interrupteingang 

Maskierbarer Interrupteingang mit drei Betriebsarten 
Selbstätiger Refresh von dynamischen Rams 

8080 - Peripherie- ICs direkt anschließbar 


Diese Leistungsdaten und die große Menge an fertiger Software haben 
den Z80 zu einem der erfolgreichsten 8-Bit—- Prozessoren werden lassen. 
Im Bereich der Home- und Personalcomputer hat nur ein weiterer Pro- 
zessor, der 6502, eine vergleichbare Verbreitung gefunden. 

1.2.1 Die Anschlüsse des Z80 


Nach diesem kurzen Überblick über die Leistungsmerkmale wollen wir 
zunächst die Belegung der 40 Pins des Z80 betrachten. 
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A111 ® 0 Am 
A1ı () 7) A9 
A123 CO OD A8 
A1 0) O0 A7 
A1S O0 OD) A6 
0 ) A5 
pa (|) 0) Aa 
D3 Q I) A3 
D5 0 O0 A2 
D6 |) O0) A 
45V 0) ) Ao0 
D2 |) ) GND 
D7 CO () RFSH* 
po VD OD Mı* 
pı (0) () RESET* 
INT U 0) BUSRQ* 
NMI* (|) () WAIT* 
HALT* (|) () BUSAK* 
MREO* (|) OD) WR* 
IORO* (|) 0) RD* 


1.2.1.1 Pinout des 280 
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Die Anschlüsse des Z80 lassen sich in die vier Gruppen Datenbus, 
Adressbus, Steuerbus und Versorgungsleitungen zusammenfassen. 


Adressbus 


AO - A15 


Datenbus 


DO - D7 


Steuerbus 


M1* 


MREQ* 


IORQ* 


RD* 


: Adresslines, über diese Anschlüsse wird eine Speicherzel- 


le im Adressbereich angewählt. Der Adressbereich um- 
fasst 65536 Speicherplätze. Bei der Behandlung der T/ 
O-Befehle werden die unteren 8 Adressbits benutzt, um 
die entsprechende YO-Adresse auszugeben. Somit sind 
256 verschiedene Ports möglich. Mit gewissen Einschrän- 
kungen im Befehlssatz können aber sogar 65536 Ports 
adressiert werden. Dann werden alle 16 Adressleitungen 
zur Bildung der Portadresse herangezogen. Auf diesen 
Spezialfall werden wir später zurückkommen. 


: Datalines, über diese bidirektionalen Leitungen gelangen 


die Daten von und zum Prozessor. Sie stellen die Verbin- 
dung zwischen Prozessor und der durch den Adressbus 
ausgewählten Speicherzelle oder auch Portadresse her. 


: Machine Cycle One, dieses Steuersignal zeigt an, daß der 


Prozessor den Operationscode vom Datenbus liest. Der 
Stern deutet übrigens bei diesem und den folgenden Si- 
gnalen an, daß es sich hierbei um lowaktive Signale han- 
delt. 


: Memory REQuest*, dieses Ausgangssignal zeigt durch ein 


Low an, daß der Prozessor einen Schreib- oder Lesezu- 
griff auf eine Speicheradresse vornimmt und die Adresse 
auf dem Adressbus gültig ist. 


: Input/Output ReQuest*, ein Low dieses Ausgangs zeigt 


an, daß der Prozessor einen Schreib— oder Lesezugriff auf 
eine Portadresse vornimmt und die Portadresse auf dem 
Adressbus gültig ist. 


: ReaD*, dieses Ausgangssignal ist Low, wenn der Prozes- 


sor Daten aus einer Speicherzelle oder Portadresse lesen 
will. Durch Verknüpfung mit MREQ* und IORQO* kann zwi- 
schen Lesen aus Speicher und Port unterschieden wer- 
den. 
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WR* 


RESET* 


NMI* 


IRQ* 


WAIT* 


BUSRQ* 


BUSAK* 


ı WRite*, dieses Signal des Z80 wird Low, wenn bei Schreib- 


zugriffen des Z80 auf Speicher— oder Portadressen die Da- 
ten auf dem Datenbus gültig sind. Auch hier kann wieder 
durch Verknüpfen des WR* mit MREQO* und IORO* unter- 
schieden werden, ob Daten in den Speicher oder eine Por- 
tadresse geschrieben werden. 


: Wird dieser Eingang auf Low gelegt, dann wird der Pro- 


grammzähler mit dem Wert &0000 geladen, Interrupts 
werden gesperrt und der Interruptmodus O0 wird einge- 
schaltet. Sobald der Eingang wieder High wird, beginnt 
der Prozessor das Programm ab der Adresse &0000. 


: Non Maskable Interrupt*, durch eine High-Low-Flanke 


an diesem Eingang wird der Prozessor immer im laufen- 
den Programm unterbrochen. Der Programmzähler wird 
mit den in den Adresse &0066 und &0067 gespeicherten 
Werten geladen und an dieser Stelle wird das Programm 
fortgesetzt. 


: Interrupt ReQuest*, durch ein Low an diesem Eingang 


kann der Prozessor im laufenden Programm unterbrochen 
werden, wenn diese Art des Interrupt per Befehl freigege- 
ben ist. Die Auswirkungen unterscheiden sich je nach ge- 
wähltem Interruptmodus und werden später besprochen. 
IRQ* stellt im Gegensatz zu NMI* ein statisches Signal dar 
und muß bis zum Erkennen der Interruptanforderung an- 
liegen. 


ı Mit Hilfe dieses Signals kann der Lese—- oder Schreibzu- 


griff des Z80 an langsamere Speicher oder spezielle Bedin- 
gungen des Systems angepasst werden. 


: BUSReQuest*, wird dieser Eingang Low, dann werden 


nach der Abarbeitung des laufenden Befehls Adress- und 
Datenleitungen sowie alle Ausgangssteuerleitungen 
hochohmig und das BUSAK*-Signal wird Low. Jetzt 
könnte ein zweiter Prozessor den Zugriff auf den Speicher 
und die Peripheriebausteine übernehmen, hauptsächlich 
wird dieses Signal jedoch für DMA benutzt (DMA=Direkt 
Memory Access, sehr schneller Datentransfer bei Umge- 
hung des Prozessors). 


: BUSAKnowledge*, stellt das mit BUSRQ* korrespondie- 


rende Ausgangssignal dar. Ein Low zeigt dem DMA-Con- 
troller oder zweiten Prozessor an, daß alle Steuer- und 
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HALT* 


RFSH* 


Bussignale hochohmig sind und ein Zugriff jetzt erfolgen 
kann. 


: Dieser Ausgang wird Low, nachdem der Prozessor den 


Maschinensprache-Befehl HALT ausgeführt hat. Nach 
diesem Befehl 'tut’ der Prozessor nichts mehr, er führt 
NOPSs aus, um den Refresh sicherzustellen. Nur ein Inter- 
rupt kann ihn wieder 'wecken'. 


: ReFreSH*, dieses Ausgangssignal zeigt an, daß auf den 


unteren sieben Adressleitungen eine gültige Refresh- 
Adresse liegt. Da der Prozessor nur zu bestimmten Zeiten 
den Adress- und Datenbus benötigt, kann in der verblei- 
benden Zeit der Adressbus zum Auffrischen dynamischer 
Rams verwendet werden, ohne daß aufwendige Elektro- 
nik oder spezielle Auffrisch-Routinen benötigt werden. 


Takt und Stromversorgung 


1%) 


GND 


Vcc 


: Der Eingang Philiefert den Takt für den Prozessor. Da der 


Z80 ein statisches IC ist, kann der Takt von 0 Hertz bis zur 
angegebenen Maximalfrequenz betragen. Allerdings 
werden an die Form des Taktsignals bestimmte Anforde- 
rungen gestellt. Laut Datenblatt darf die maximale Low- 
zeit dieses Signals 2 us (Microsekunden) betragen. Dieser 
Wert ist allerdings mehr von akademischem Interesse, da 
man ja bemüht sein wird, den Prozessor mit möglichst ho- 
her Taktfrequenz zu versorgen, um ein schnelles Abarbei- 
ten des Programms zu erhalten. 


ı Masseanschluß des Prozessors. 


: Über diesen Anschluß bekommt der Z80 seinen Saft, 


sprich +5 Volt Gleichspannung und ca. 150 bis 200 Mil- 
liampere. 
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1.2.2 Der Register-Aufbau des Z80 


Wie schon zu Beginn erwähnt, ist der Z80 so konstruiert worden, daß Pro- 
gramme des 8080 ohne weiteres übernommen werden können. Aller- 
dings ist die Anzahl der Register des Z80 deutlich höher. 


Aber was ist eigentlich ein Register? 


Nun, ein Register ist nichts anderes als ein Schreib/Lese-Speicher auf 
dem Prozessorchip. Jeder Prozessor muß eine Mindestzahl von Registern 
aufweisen. In diesen Speicherzellen werden Daten gespeichert und die 
Ergebnisse von arithmetischen und logischen Befehlen abgelegt. Andere 
Register haben spezielle Aufgaben, wie die Verwaltung des Stack oder 
werden als Programmzähler verwendet. 


Da Operationen wie ein Transfer von Daten zwischen zwei Registern 
oder die Addition zweier Registerinhalte nicht über den Datenbus abge- 
wickelt werden, kann eine solche Operation sehr viel schneller durchge- 
führt werden, als wenn die benötigten Werte aus externen Speicherplät- 
zen geholt werden müssen. 


Als grobe Regel kann man sagen, daß Prozessoren mit vielen Registern 
denen mit weniger internem Speicher bei der Bearbeitung gleicher Pro- 
gramme überlegen sind, da der Datentransfer innerhalb des Prozessors 
immer schneller ist, als ein Transfer von und zu externen Speicherplät- 
zen. 


Insgesamt verfügt der Z80 über 22 Register, 18 Register mit8 Bit und vier 
16-Bit-Register. Die Aufteilung zeigt die Grafik 1.2.2.1. 


In der Grafik fallen einige Register durch ihre stärkere Umrahmung auf. 
Diese Register sind auch im 8080 enthalten. 

Auch ist auffällig, daß die meisten 8-Bit-Register doppelt vorhanden 
sind. Dies sind die Register A, F,B, C,D, E,H und L. Der Z80 stellt sie in 
doppelter Ausführung zur Verfügung und der Programmierer kann per 
Befehl zwischen den beiden Sets wählen. 


Wir werden zukünftig nur von einem Registersatz sprechen. Das ist beim 
CPC auch insofern richtig, da ohne spezielle Tricks dem Programmierer 
beim CPC 464 sowieso nur ein Registersatz zur Verfügung steht. Der al- 
ternative Registersatz wird vom Betriessystem für die Interruptsteue- 
rung benutzt. Merken Sie sich aber, daß alle Aufgaben eines Registersat- 
zes auch vom alternativen Registersatz übernommen werden Können, 
wenn dieser nicht für spezielle Zwecke belegt ist. 


Die Register B bis L stellen allgemein verfügbare 8-Bit-Register dar, 
während den Registern A und F besondere Aufgaben zukommen. 
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1.2.2.1 Registersatz Z 80 


Das A-Register wird allgemein als Akku oder Akkumulator bezeichnet. 
Im Akku erhält man das Ergebnis von allen arithmetischen und logischen 
Operationen mit 8-Bit-Format. Auch muß im Akku bei diesen Operatio- 
nen ein Operand gespeichert sein. Um z.B. zwei Bytes zu addieren, ist es 
nötig, einen Operanden in den Akku zu speichern, der andere Operand 
kann in einem anderen Register oder außerhalb des Prozessors im Spei- 
cher untergebracht sein. Nach der Addition steht dann das Ergebnis im 
Akku. 

Da bei diesen Aufgaben das Ergebnis so groß werden kann, daß es mit 
nur 8Bit nicht mehr ausgedrückt werden kann (255 + 255 = 510), wird ein 
weiteres Bit benötigt, um das Ergebnis korrekt darzustellen. Diese Auf- 
gabe wird vom F-Register übernommen. Das F-Register, allgemein als 
Flag-Register bezeichnet, ist in einzelne Bits aufgeteilt. Eines dieser 
Bits hat (unter anderem) die Aufgabe, einen evtl. Übertrag (engl. Carry) 
solcher Additionen zu bewahren. Andere Bits zeigen, ob das Ergebnis 
von Rechenoperationen oder Vergleichen gleich Null ist u.s.w. 


Die Register B bis Lkönnen aber nicht nur einzeln angesprochen werden. 
Jeweils Bund C, DundE sowie HundL können zu 16-Bit-Registern zu- 
sammengefasst werden. Diese Doppelregister haben dann sinnvoller- 
weise den Namen der beiden Einzelregister, als BC, DE und HL. Doppel- 
register eignen sich hervorragend zum Adıressieren von Tabellen und 
zum Transportieren und Durchsuchen von Datenblöcken. 

Dem HL-Doppelregister kommt noch eine besondere Bedeutung zu. Da 
der Z80 mit Befehlen zur Addition und Subtraktion von 16—-Bit-Werten 
ausgestattet ist, fungiert das HL bei solchen Anweisungen als 16-Bi- 
t-Akku. 


Nur mit 16-Bit-Werten arbeiten PC, SP, IX und IY (Anm.: Spezialisten 
wissen, daß die Möglichkeit besteht, die Index-Register auch byte- wei- 
se zu manipulieren, wir werden IX und IY aber alsreine 16-Bit-Register 
betrachten). 


PC ist der Programm Counter oder Programm --Zähler. Der Inhalt des PC 
wird als Adresse für externe Speicher auf den Adressbus gelegt. Mit je- 
dem Befehl wird der PC automatisch inkrementiert (um eins erhöht). Bei 
Befehlen mit mehr als einem Byte wird der PC automatisch um die benö- 
tigte Anzahl erhöht. Werden in einem Programm Sprünge notwendig, 
dann wird die neue Programmadresse automatisch in den PC geladen, 
und der Prozessor arbeitet ab dieser Adresse weiter. 


SP ist dersogenannte Stackpointer. Der Stack (oder Stapel) wird benötigt, 
wenn von einem Programm Unterprogramme aufgerufen werden. In die- 
sem Fall wird automatisch die Rücksprungadresse auf dem Stack abge- 
legt und nach Beendigung des Unterprogramms in den PC zurückgela- 
den. 
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Die beiden 16-Bit-Register IX und IY ermöglichen durch spezielle Be- 
fehle ein besonders wirkungsvolles Arbeiten mit Tabellen. 


Bleiben noch die beiden Register Iund RR. Das I-Register oder Interrup- 
t-Register wird in Verbindung mit der speziellen Interrupt- Betriebsart 
IM3 verwendet. In diesem Modus muß der den Interrupt erzeugende 
Baustein auf Anforderung des Prozessors einen 8-Bit- Wert liefern. Die- 
ser Wert als Low-Byte und der Inhalt des I-Registers als High- Byte bil- 
den die Adresse der Interrupt-Routine. 

Das R- oder Refresh-Register wird in Verbindung mit dem vom Z80 au- 
tomatisch durchgeführten Refresh benötigt. Nach jedem Holen eines Be- 
fehls werden die untersten sieben Bits dieses Registers automatisch in- 
crementiert. Das achte Bit verbleibt immer, je nach Programmierung, 
Null oder Eins. 

Sowohl I- wie R-Register werden im CPC 464 nicht verwendet. Da über 
den Zustand des R-Registers keine Aussage gemacht werden kann und 
sich der Wert ständig ändert, kann dieses Register als Zufallsgenerator 
benutzt werden. 


1.2.3 Besonderheiten des Z80 im CPC 


Die vielfältigen Möglichkeiten des Z80 lassen den Hard- und Software- 
Designern freie Hand bei der Konstruktion eines Computers. Diese CPU 
(Central Processing Unit) kann gleichermaßen effektiv in Minimalsyste- 
men und solch leistungsstarken Geräten wie dem CPC 464 eingesetzt 
werden. 

Gerade die Entwickler des CPC haben tief in die Trickkiste gegriffen, um 
mit einem Minimum an Bauteilen ein Maximum anLeistung zu erreichen. 
Dabei sind zwangsläufig einige Besonderheiten entstanden, deren 
Kenntnis für eine effektive Programmierung und Nutzung des Gerätes 
besonders in Maschinensprache wichtig sind. Diese Spezialitäten sollen 
jetzt unter die Lupe genommen werden. 


Da wäre zunächst die Interruptsteuerung des CPC. 

Einzige Interrupt-Quelle im CPC ist das Gate Array, dieser fantastische 
Baustein, der zu einem ganz wichtigen Teil die Leistungsfähigkeit des 
Rechners bestimmt. Alle 3,3 Millisekunden, also 300 malin der Sekunde, 
wird vom Gate Array ein kurzer Impuls erzeugt undan den IRO*-Eingang 
des Z80 gelegt. Der NMI*-Eingang des Prozessors ist nicht verwendet 
und steht eventuellen Erweiterungen am Expansion Connector zur Ver- 
fügung. 

Die Frequenz des Interrupt-Signals wird aus dem H-Sync-Signal des 
CRTC 6845 durch einen Frequenz-Teiler gewonnen. Diese Stufe teilt den 
alle ca. 65 us erscheinenden H-Sync-Impuls durch 52. 

Da der Z80 im CPC im Interrupt-Modus IM1 betrieben wird, bewirkt jeder 
erkannte Interrupt IRQ einen RST7 oder auch CALL &0038. Der Prozessor 
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unterbricht sofort sein laufendes Programm, legt den derzeitigen Stand 
des PC auf den Stack und verzweigt zur Adresse &0038. Hier steht beim 
CPC ein Sprung zur Adresse &B939, der eigentlichen Interrupt-Routine. 
Die Stelle, an der die Unterbrechung aufgetreten ist, wird auf dem Stack 
vermerkt. So kann nach Beendigung der Interrupt-Routine das unterbro- 
chene Programm fortgesetzt werden. 

Da der IRQ*-Eingang des Prozessors auch am Expansion Connector an- 
liegt, stellt sich natürlich die Frage, wie zwischen einem Interrupt vom 
Gate Array und einem externen Interrupt unterschieden werden kann. 
Hier haben die Entwickler einen speziellen Trick benutzt. Innerhalb der 
Interrupt-Routine ab &B939 wird für einen kurzen Moment der Interrupt 
wieder zugelassen. Da der vom Gate Array erzeugte Impuls nur maximal 
5 us lang ist, hat das Zulassen keine Auswirkungen, der Impuls ist lange 
vorbei. Externe Interruptquellen nehmen ihr Signal aber erst auf aus- 
drückliche Anweisung des Prozessors zurück. Liegt ein solcher externer 
Interrupt vor, dann wird die Interrupt-Routine also selbst unterbrochen. 
Dieser Fallkann aber erkannt und speziell abgehandelt werden. Dadurch 
sind auch externe IRQ*-Quellen möglich. Die einzige Forderung an sie ist 
ein ausreichend langer Impuls. 


Der zweite Spezialfall, den es zu berücksichtigen gilt, ist die einge- 
schränkte Verwendbarkeit der Port-Befehle. 

In Verbindung mit dem Signal IORQ* (Input/Output ReQuest) kann der 
Z80 maximal 256 verschiedene Ports analog zu Speicherplätzen adressie- 
ren. Dazu wird die Adresse des gewünschten Ports auf die unteren 8 
Adressbits AO bis A7 gelegt. Diese Ports werden vornehmlich zum An- 
schluß von Peripherie-Bausteinen genutzt. 

Bei anderen Prozessoren, die die Möglichkeit der Port-Adressierung 
nicht kennen, ist der Entwickler immer darauf angewiesen, die Periphe- 
rie-Bausteine als Speicherplätze zu adressieren. Dies Verfahren nennt 
man Memory-Mapped und hat den Nachteil, daß der für RAM zur Verfü- 
gung stehende Adıressbereich kleiner wird. 

Für die Benutzung der Port-Adressierung stellt der Z80 die sehr lei- 
stungsfähige Gruppe von IN- und OUT-Befehlen zur Verfügung. Studiert 
man die Befehle dieser Gruppe einmal etwas genauer, so findet man mit 
den Befehlen IN (C),r und OUT (C),r eine elegante Möglichkeit, mehr als 
die 256 ursprünglichen Ports zu adressieren. Bei diesen Befehlen wird 
der Zustand der unteren 8 Adressbits vom Inhalt des C-Registers be- 
stimmt, zusätzlich wird aber der Inhalt von B auf die Adressbits A8 bis 
A15 gelegt. Damit stehen insgesamt 65536 Portadressen zur Verfügung. 
Genau diese Eigenschaft des Z80 haben die Entwickler des CPC 464 ge- 
nutzt. Alle Peripherie-ICs werden mittels der Adressbits A8 bis A15 se- 
lektiert. 

Solche Tricks haben leider oft einen Haken. In diesem Fall besteht der Ha- 
ken in einer deutlichen Beschränkung des Befehlsvorrates des Z80. Alle 
anderen //O-Befehle des Z80 sind nicht mehr einsetzbar. Besonders gilt 
dies für die /O-Befehle mit Schleifenautomatik. Sie benutzen das B-Regi- 
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ster als Zähler und stehen daher nicht als 'Lieferant’ für das Highbyte der 
Portadresse zur Verfügung. Speziell sind das die Befehle INI, INIR, IND 
und INDR sowie OUTI, OTIR, OUTD und OTDR. 


Als dritte Besonderheit des CPC 464 ist die Verwendung der Wait-Zyklen 
zu sehen. 

Die Notwendigkeit dieses Anschlusses am Z80 resultiert noch aus der 
Zeit, als die verfügbaren Speicher-ICs recht gemütliche Gesellen waren. 
Besonders die ersten EPROMs ließen sich nach Anlegen der Adresse bis 
zu einer us Zeit, bis sie die Daten parat hatten. 

Um den 280 mit solchen 'Langweilern' zu betreiben, war es nötig, eine 
bestimmte Zeit zu warten. Diese Wartezeit kann durch das Signal WAIT* 
erzeugt werden. Nach jeder negativen Flanke am Takt-Eingang über- 
prüft der Prozessor den Zustand des Wait*-Anschlusses. Liegt dieser An- 
schluß auf O Volt, dann fügt der Z80 einen sogenannten Wait-Zyklus von 
der Dauer des Taktes ein. Nach Ablauf des Taktsignals, also mit der nega- 
tiven Flanke, wird wieder der Zustand der Wait*-Leitung geprüft u.s.w. 
Das im CPC dies Signal verwendet wird, liegt aber nicht an den verwen- 
deten Speicher-ICs. Die sind allemal schnell genug für einen Z80 mit 4 
MHz. Der Grund ist die nötige Synchronisation zwischen Prozessor und 
Video-Controller. Da beide ICs auf den Speicher zugreifen können, muß 
eine Kontrolle darüber bestehen, wer zu welcher Zeit an derReihe ist. Da- 
bei hat der Video-Controller unbedingten Vorrang, da sonst die Anzeige 
auf dem Monitor stark gestört werden könnte. Um diese Synchronisation 
zu erreichen, wird zu jedem vierten Taktsignal für den Prozessor ein 
Wait*-Signal erzeugt. Obwohl der Prozessor mit 4 MHz (Mega Hertz = 
Millionen Schwingungen pro Sekunde) angesteuert wird, ergibt sich 
durch die Waitzyklen eine effektive Arbeitsfrequenz von ca. 3.3 MHz. 
Nun ist diese Verlangsamung der Rechengeschwindigkeit an sich noch 
nicht so schlimm. Ärgerlicher ist die Tatsache, daß beim CPC die in den 
Datenblättern zum Prozessor zu findenden Angaben für die Befehlsaus- 
führungszeit nicht stimmen. Dadurch lassen sich exakte Zeitschleifen, 
wie sie z.B. bei der Verwendung spezieller, besonders schneller Casset- 
tenaufzeichnungsformate erforderlich sind, wohl nur schwer realisieren. 


Die Signale BUSRO* und BUSAK*, die Steuersignale für den DMA-Be- 
trieb, sind im CPC nicht benutzt. Wohl aber sind sie auf den Expansion 
Connector geführt und stehen hier externen Erweiterungen zur Verfü- 
gung. 

Auch das Signal HALT* wird im CPC nicht verwendet, ist aber ebenfalls 
am Expansion Connector verfügbar. 
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1.3 Das Gate Array, der System-Koordinator 


Fast alle Bauteile im CPC sind handelsüblich. Man kann sie in jedem gut 
sortierten Elektronik-Laden erwerben. Die einzigen Ausnahmen sind das 
Rom und das Gate Array, im Schaltplan als IC116 bezeichnet. Das zuletzt 
genannte IC soll uns in diesem Abschnitt beschäftigen. 

Dieses 40-polige IC ist speziell für den CPC entwickelt worden und hat 
mehrere wichtige Aufgaben. Wollte manalle integrierten Funktionen mit 
TTL-Gattern nachbilden, die Anzahl der ICs des CPC würde sich schnell 
mehr als verdoppeln. 

Die Aufgaben des Arrays sind unter anderem: 


Erzeugung aller benötigten Taktfrequenzen 

Erzeugung der Signale für den Betrieb des dynamischen Rams 
Steuerung der Zugriffe auf das Ram 

Ab- und Zuschalten des Rom in den Speicherbereich 
Erzeugung der Video-Signale 

Erzeugung der RGB-Informationen für den Farb-Monitor 
Steuerung des Bildschirmmodus 

Speicherung der Tinten-Farben 

Erzeugung des Interrupt-Impulses 


Leider sind über dieses interessante IC nur sehr wenig Informationen 
verfügbar. Ein Datenblatt oder eine vergleichbare Beschreibung sind nir- 
gends erhältlich, da der Hersteller das Innenleben wohl als Betriebsge- 
heimnis ansieht. 

Unsere Bemühungen und Versuche, die Funktion des ICs möglichst 
gründlich zu erforschen, waren allerdings recht erfolgreich. So wollen wir 
Ihnen unsere Ergebnisse nicht vorenthalten. 


1.3.1 Die Anschluß-Belegung des Gate Array 


Das alles bestimmende Signal des CPC ist das am Pin 8 (XTAL) anliegen- 
de Quarzsignal mit einer Frequenz von 16 MHz. Das IC125, ein TTL-IC 
vom Typ 7400, bildet mit zwei seiner vier Gatter eine typische Oszillator- 
schaltung. Dieses Signal stellt quasi den Her(t)zschlag des CPC dar. 


Die Eingangsfrequenz durch vier geteilt steht als Taktsignal von 4 MHz 
am Pin 39 als Takt ® für den Prozessor zur Verfügung. 


Ein weiteres Mal durch vier geteilt ergibt sich eine Frequenz von 1 MHz. 
Dieses Signal wird am Pin 1 des Gate Array zur Verfügung gestellt. 

Das 1-MHz-Signal hat zwei Verwendungen. Zum einen ist es das Taktsi- 
gnal für den Sound Chip, zum anderen bestimmt es mit, ob der Prozessor 
oder der CRTC das RAM adıressieren kann. Bei einem Low werden die 
Adressleitungen des Prozessors über die Multiplexer IC104, 105, 109 und 
113 zum Ram geschaltet. 
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Da allerdings die Ansteuerung des Ram im CPC nicht ohne Tücken ist, 
finden Sie eine ausführliche Beschreibung der Ram-Steuersignale in ei- 
nem späteren eigenen Kapitel. 


Da die Ram-Bausteine nur über 8 Adressleitungen verfügen, muß die ge- 
samte 16-Bit-Adresse gemultiplext, also zeitlich nacheinander an dieEin- 
gänge gelegt werden. Diese zeitliche Steuerung wird mit den Signalen 
CAS ADDR* (Pin 6), CAS* (Pin 3) und RAS* (Pin 7) erreicht. Die Signale 
RAS* und CAS* werden direkt an die Rams gelegt, das Signal CAS 
ADDR* wird an die schon erwähnten Multiplexer geführt. 


Auch das Signal MAO/CCLEK an Pin 40 des Gate Array hat eine Frequenz 
von 1 MH2. Dieses Signal ist allerdings zum CPU ADDR*-Signal phasen- 
verschoben, d.h. die beiden Frequenzen sind zu unterschiedlichen Zeiten 
High. MAO/CCLEK hat ebenfalls eine Doppelfunktion. Einmal stellt es das 
Taktsignal für den CRTC dar, der von diesem Signal alle weiteren Signale 
ableitet, zum zweiten wird es als Hilfsadressbit an den Adress-Multiple- 
xer IC106 gelegt. Die Funktion dieses Hilfsadressbits wird ebenfalls spä- 
ter bei der Ansteuerung der Rams genauer erörtert werden. 


Des weiteren wird vom Gate Array das Signal RAMRD* am Pin 13 er- 
zeugt. Dieser Anschluß wird dann Low, wenn der Prozessor nach Anle- 
gen einer Adresse Daten aus dem Ram lesen will und dies durch sein RD* 
-Signal dem Array anPin 19 mitteilt. Da sich in weiten Bereichen Rom und 
Ram überlagern, kann das RD*-Signal des Prozessors nicht direkt ver- 
wendet werden. Sollen Daten aus dem Rom gelesen werden, so bleibt 
das Signal RAMRD* High und die Ausgänge des IC114, ein sogenannter 
Puffer/Zwischenspeicher, werden hochohmig. Dadurch kann zu diesen 
Zeiten keine Information vom Ram auf den Datenbus gelangen, obwohl 
die Speicheradresse auch an das Ram gelangt ist und es an seinen Aus- 
gängen ein Byte bereitstellt. 

Zusätzlich zum RAMRD* wird das READY-Signal vom Pin 2 des GA an 
das IC114 gelegt. Dieses Signal erzeugt am Prozessor das Signal zumEin- 
fügen der Wait-Zyklen. Durch die zusätzliche Verschaltung des READY 
mit dem IC114 wird erreicht, daß sich die Information auf dem Prozessor- 
Datenbus während der Wait-Zyklen nicht ändert. Der 74LS373 speichert 
nach Anlegen eines High am Pin 11 die derzeitige Ausgangsinformation, 
bis dieser Anschluß wieder Low wird. Danach verhält sich das IC wie ein 
einfacher Puffer, d.h. die Ausgänge folgen den Änderungen der Eingän- 
ge unmittelbar. 

Das Signal ROMEN* an Pin 12 des GA wird Low, wenn der Prozessor Da- 
ten aus dem Rom lesen will. Das im CPC eingebaute 32k-Rom belegt die 
Adress-Bereiche von &0000 bis &3FFF und von &CO00 bis &FFFF. Es ist 
also in zwei unabhängigen Hälften ansprechbar. Ob in den sich überla- 
gernden Speicherbereichen aus Rom oder Ram gelesen werden soll, muß 
dem GA über einen OUT-Befehl mitgeteilt werden. Dabei ist es durchaus 
möglich, nur eine Hälfte des Rom zu aktivieren. 


24 


Entsprechend der gewünschten Speicherkonfiguration dekodiert der GA 
den Zustand der Adıressleitungen A14 und A15. Je nach gefordertem 
Speicher wird dann beim Lesen das RAMRD*- oder ROMEN*-Signal ak- 
tiv. 


Ein Schreibbefehl des Prozessors geht unabhängig von der gewählten 
Speicherkonfiguration immer ins Ram. Dazu wird vom GA das Signal 
MWE* erzeugt. 


Zusätzlich zur beschriebenen Funktion werden die Adıessleitungen A14 
und A15 an den Pins 20 und 21 aber noch für einen anderen Zweck ver- 
wendet. Auch das GA hat eine Portadresse, die benutzt wird, um die ver- 
schiedenen Möglichkeiten des GA zu programmieren. Die Portadresse ist 
&7FOO und wird über die Adressleitungen (A14 High, A15 Low) und das 
Signal IORQ* an Pin 18 decodiert. 


Da der Datenbus des Z80 nicht direkt mit den Datenleitungen DO bis D7 
des GA verbunden ist, legt das Array den Anschluß 244EN* auf Low, 
wenn die Portadresse &7FOO in der zuvor beschriebenen Art erkannt 
wird. Dadurch werden die Ausgänge des IC115 (74LS244, ein Datenbu- 
spuffer) freigegeben und das vom Z80 gelieferte Byte kann in das Array 
geschrieben werden. 


Aber auch das Signal IORQ* hat für den GA eine Doppelbedeutung. Eine 
spezielle Eigenart des Z80 ist es, beieinem erkannten Interrupt gleichzei- 
tig die Signale IORQ* und M1* auf Low zu legen. Dieser Zustand wird 
vom GA erkannt und der Interrupt-Impuls wird sofort gelöscht. Ist dage- 
gen durch den Befehl DI, Disable Interrupt, die Behandlung des IRO aus- 
geschaltet, so bleibt der Anschluß 10 des GA bis zum Wiederzulassen des 
IRQ Low. Sobald der IRQ mit EI wieder eingeschaltet ist, wird der anlie- 
gende Interrupt erkannt und der Interrupt-Ausgang wird wieder High. 
Erzeugt wird das Interrupt-Signal an Pin 10 durch eine programmierbare 
Teilerkette im GA. Diese Teilerkette wird mit dem CRTC-Signal HSYNC 
versorgt und teilt die anliegende Frequenz durch 52. Da der HSYNC-Im- 
puls ca. alle 65 Microsekunden auftritt, ergibt sich eine Zeit von 3,3 Milli- 
sekunden zwischen zwei Interruptimpulsen. Dabei werden die Impulse 
mit dem VSYNC-Signal des CRTC gekoppelt. Die Breite des VSYNC ist im 
CRTC aufca. 500 Microsekunden programmiert. Nach etwa 125 Microse- 
kunden erscheint der Interrupt, somit bleibt der Interrupt-Routine noch 
etwa 375 Microsekunden Zeit, am Portbit O0 des Port B des 8255 zu prüfen, 
ob ein VSYNC vorhanden ist. Dieses Signal wird als Zeitgeber bei ver- 
schiedenen Operationen benutzt. 

Dieser Fall tritt aber nur bei jedem fünfzehnten Interrupt auf, bei den 
restlichen 14 Abfragen ergibt sich ein High des VSYNC, der interne Zäh- 
ler wird nicht beeinflußt. 


25 


Die Signale HSYNC und VSYNC werden aber natürlich wie auch DISPEN 
zum Erzeugen des Video-Signals benötigt. Eine Verknüpfung dieser Si- 
gnale ergibt das SYNC*-Signal am Pin 11 des GA. 


1.3.2 Der Registeraufbau des Gate Array 


Um alle beschriebenen Aufgaben ausführen zu können, müssen Daten im 
GA gespeichert werden. Die genaue Anzahl der internen Register ist 
nicht bekannt, allerdings können wir die vermutlich wichtigsten Register 
beschreiben. 


Wie auch alle anderen Bausteine im CPC wird das GA über die Port- 
Adressierung angesprochen. 

Die belegte Adresse ist &7Fxx. Daraus resultiert, daß das Adressbit A15 
Low, das Adressbit A14 dagegen High sein muß. Die übrigen Adıessbits 
(A12 bis A8) müssen gesetzt (auf High-Pegel) sein, da die anderen Peri- 
pherie-Bausteine inähnlich unvollständiger Weise decodiert werden. Bei 
diesen Bausteinen sind die Selektionseingänge auch nur mit einzelnen 
Adressbits verbunden. 

Der Zustand des unteren. Adressbytes ist für die Dekodierung unerheb- 
lich, hier kann jeder beliebige Wert anliegen. 


Insgesamt kann zwischen drei verschiedenen Registern unterschieden 
werden. 

Die ersten beiden Register stehen im Zusammenhang mit der Farberzeu- 
gung, genauer mit den durch PEN und INK festgelegten Farbzuordnun- 
gen. 

Das erste Register wird mit der Adresse geladen, in die ein Farbwert ein- 
geschrieben werden soll. Wir wollen es weiterhin als Farbnummer-Regi- 
ster (FN-Reg) bezeichnen. 

Den eigentlichen Farbwert kann man danach in das zweite Register (un- 
ter derselben Portadresse!) einschreiben. Dieses Register werden wir als 
Farbwert-Register (FW-Reg) bezeichnen. 


Das dritte Register ist ein Multifunktionsregister (MF-Reg) und bestimmt 
den Bildschirmmodus und die Speicherkonfiguration. Dabei wird die 
Auswahl der verschiedenen Möglichkeiten durch die einzelnen Bits in- 
nerhalb des Registers bestimmt. 


Alle Register des GA lassen sich nur beschreiben. Ein Auslesen der Wer- 
te ist NICHT möglich. 


Da das GA nur über eine einzige Portadresse angesprochen werden 


kann, muß es einen Weg geben, zwischen den verschiedenen Gruppen 
zu unterscheiden. Diese Unterscheidung wird mit den beiden obersten 
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Bits des Datenbytes festgelegt. Die möglichen Kombinationen lauten: 


Bit7  Bit6 
0 0 Wert in das FN-Reg schreiben 
0 1 Farbwert in das gewählte FW-Reg schreiben 
1 0 Wert in das MF-Reg schreiben 
1 1 nicht genutzt ? 


Was hat es aber nun mit den Farbnummer- und Farbwert-Registern auf 
sich? 

Im Grunde stellen diese beiden Register die Entsprechungen zu den Ba- 
sic-Befehlen PEN und INK dar. Der PEN-Befehl wird bekanntermaßen be- 
nutzt, um die aktuelle Schreibfarbe auf dem Monitor zu verändern. Die 
Zuordnung einer PEN-Nummer zu einer Farbe kann mit dem INK-Kom- 
mando festgelegt werden. Dazu wird die zu ändernde Nummer und der 
gewünschte Farbwert angegeben. Genau diese Funktionen werden mit 
den beiden Registern ausgeführt. In das FN-Register wird die Nummer 
der zuändernden Farbe eingetragen, danach kann der gewünschte Farb- 
wertin das GA geschrieben werden. 

Um z.B. die zu PEN 1 gehörende Farbe zu ändern, ist der folgende Ablauf 
nötig: 


OUT &7F00,&X00000001 : OUT &7F00,&X010XXXXX 


Im ersten OUT-Befehl sind die Bits 6 und 7 = O. In den Bits O bis 3 wird die 
Nummer der zu ändernden Farbe angegeben. In unserem Beispiel ist das 
die Nummer 1. Das Bit 5 hat keine Funktion, das Bit 4 hat eine besondere 
Bedeutung, auf die wir gleich noch zu sprechen kommen. 

Im zweiten OUT-Befehl sind die Bits 6 und 7 so gewählt, daß das FW-Re- 
gister angewählt ist. Die als 'X’ bezeichneten Bits bestimmen nun den 
Farbenwert. Mit 5 Bit sind zwar 32 verschiedene Farben möglich, aber 
nur 27 verschiedene Farben werden erzeugt. Die verbleibenden 5 Farben 
sind mit anderen Farben identisch. 


Wenn Sie dieses Beispiel in Basic ausprobieren, werden Sie feststellen, 
daß sich der gewünschte Erfolg nicht so recht einstellt. Ein kurzes Auf- 
blitzen der neuen Farbe ist alles, was dabei herauskommt. 

Ursache ist eine Eigenart der Software des CPC. Grundsätzlich werden 
alle Farben 'blinkend’ dargestellt. Das bleibt aber unbemerkt, da nicht 
zwischen verschiedenen, sondern gleichen Farben umgeschaltet wird. 
Bei jedem Umschalten der Farben werden alle Parameter für das GA neu 
geladen. Wenn Sie aber vor die OUT-Kommandos den Befehl ’SPEED INK 
255,255’ setzen, dann können Sie zumindest bei einigen Versuchen eine 
deutlich längere Zeit die Auswirkung betrachten. 


Doch jetzt die Erklärung des bisher ausgesparten Bit 4 im FN-Reg. Ist die- 
ses Bit beim Zugriff auf das Register gesetzt, dann wird die Informationin 
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den Bits 0 bis 3 ignoriert, der im nächsten OUT-Befehl übermittelte Farb- 
wert wird als neue Rahmenfarbe interpretiert. 


Das MF-Register wird adressiert, wenn im OUT-Befehl das Bit 7 gesetzt 
und das Bit 6 Low ist. Die übrigen Bits dieses Registers haben folgende 
Bedeutung: 


Bit 5 : Dies Bit hat keine Funktion ? 


Bit 4 : 1 = V-Sync-Zähler löschen 
Bit 3: 1 = ROM &C000 bis &FFFF abschalten 
Bit 2: 1 = ROM &0000 bis &3FFF abschalten 


Bit 1 : Bildschirm-Modus 
Bit O : Bildschirm-Modus 


Über die Funktion des Bit 5in diesem Register konnte bisher nichts in Er- 
fahrung gebracht werden. 


Ist das Bit 4 gesetzt, so wird die Teilerkette für den Interruptimpuls ge- 
löscht und der Zählvorgang der V-Sync-Impulse beginnt von neuem. Auf 
diese Weise könnte der zeitliche Abstand zwischen zwei Interruptimpul- 
sen verlängert werden. In Basic können Sie sich von der Funktion mittels 
der folgenden kleinen Programmschleife überzeugen: 


10 OUT &7F00 , &X10010110 : GOTO 10 


Nach dem Start der Programmzeile ist der Rechner vollständig blockiert. 
Auch ein Reset über SHIFT/CTRL/ESC ist nicht mehr möglich. In diesem 
Einzeiler wird das Zähl-Register so schnell gelöscht, daß überhaupt keine 
Interrupt-Impulse mehr auftreten können. Da aber die Tastatur beijedem 
Interrupt abgefragt wird, hilft nurnoch das Aus- und wiederEinschalten, 
um den CPC wieder bedienbar zu machen. 


Die Bits 2 und 3 bestimmen die momentane Speicherkonfiguration. Ist 
eins der Bits gesetzt, so befindet sich für den Prozessor in den angegebe- 
nen Adressbereichen bei Lesezugriffen das Ram, sind die Bits gelöscht, 
dann liest der Prozessor die Daten aus dem Rom. 

Diese beiden Bits planlos zu manipulieren, führt mindestens zu Fehler- 
meldungen, Systemabstürze oder ein Reset sind aber genau so möglich. 


Die verbleibenden Bits O0 und 1 bestimmen den aktuellen Bildschirm-Mo- 
dus. Die möglichen Kombinationen sind: 


Biti BitO 
0 0 Mode 0, 20 Zeichen/Zeile, 16 Farben 
0 1 Mode 1, 40 Zeichen/Zeile, 4 Farben 
1 0 Mode 2, 80 Zeichen/Zeile, 2 Farben 
1 1 wie Mode 0, aber kein Blinken 
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Wenn Sie den Einzeiler zum Ausschalten des Interrupt im Mode 1 pro- 
biert haben, so werden Sie eine seltsame Veränderung der Zeichen auf 
dem Bildschirm festgestellt haben. In diesem Beispiel haben wir als Bild- 
schirm-Modus den 80-Zeichen-Modus gewählt und ohne den Bildschirm 
zu löschen umgeschaltet. Die dargestellten Zeichen sehen aus, als obin 
der Mitte jedes Zeichens Punkte fehlen. Die Erklärung zu diesem Phäno- 
men finden Sie im Anschluß an das folgende Kapitel, wenn der Aufbau 
des Bildschirms und die Darstellung der Zeichen beschrieben wird. 
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1.4 Der Video—-Controller HD 6845 


Die Hauptarbeit bei der Erzeugung des Bildes auf dem Monitor leistet der 
Video-Controller HD 6845, der auch als Cathode Ray Tube Controller, 
kurz CRTC bezeichnet wird. Dieses IC wurde speziell als Interface zwi- 
schen Microprozessoren und Rasterbildschirmen wie den üblichen Moni- 
toren entworfen. 

Er erzeugt aus einem einzigen Taktsignal alle für den Monitor erforderli- 
chen Synchronsignale, wobei sich alle benötigten Parameter in weiten 
Grenzen programmieren lassen. 


Bevor wir die Anschlußbelegung und den internen Registeraufbau be- 
schreiben, wollen wir einen kurzen Überblick über die Möglichkeiten die- 
ses interessanten Bausteins geben. 


Programmierbare Anzahl der Zeichen pro Zeile 
Programmierbare Anzahl der Zeilen pro Bildschirm 
Programmierbare vertikale Punktmatrix der Zeichen 
Zugriff auf einen Speicherbereich von 16 K 

Automatischer Refresh bei Verwendung dynamischer Rams 
Cursor— Controll— Funktionen 

Programmierbarer Cursor (Höhe und Blinken) 

Light— Pen— Eingang 

Einfache 5 Volt— Betriebsspannung 

TTL-kompatible Ein— und Ausgänge 


Urspünglich wurde der 6845 von Motorola für den Einsatz in Computer- 
systemen mit der Prozessor— Familie 68xx entwickelt. Auf Grund der au- 
ßergewöhnlichen Flexibilität und einfachen Handhabung ist dieser Con- 
troller aber in sehr vielen Systemen finden. Selbst bei so leistungsstarken 
Systemen wie z.B. Sirius ist dies IC zu finden. 


1.4.1 Die Anschlüsse des CRTC 
Die Bedeutung der 40 Anschlußbeine ist wie folgt: 


MAO-13 : Memory Adress Lines, über diese 14 Anschlüsse werden 
die Speicherplätze des Bildspeichers adressiert. 


RAO-4 ı Raster Adress Lines, diese 5 Anschlüsse wählen aus dem 
Charactergenerator die derzeitige Rasterzeile des darzu- 
stellenden Zeichens aus. 


DO-7 ı Bidirectional Data Bus, über diese Pins werden Informa- 


tionen in den Controller geschrieben und aus ihm heraus- 
gelesen. 
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Pinout des CRTC HD 6845 
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cSs* 


RS 


EN 


RES* 


CLK 


HSYNC 


VSYNC 


DISPTMG 


CUREN 


: Read/Write*, dieses Signal bestimmt die Datenrichtung 


auf den Datenleitungen. Bei einem Low können Daten 
vom Prozessor in den CRTC geschrieben werden, bei High 
werden sie aus dem CRTC gelesen. 


: Chip Select*. Um Datentransfer mit dem 6845 zu ermögli- 


chen, muß er adressiert werden. Dies geschieht durch ein 
Low am CS*-Eingang. 


: Register Select. Dieses Signal wird benötigt, um zwischen 


Adress-Register und 18 Controll-Registern zu selektie- 
ren. Bei Lowpegel an RS kann auf das Adress-Register 
zugegriffen werden, bei einem High besteht Zugriff auf 
die Controll-Register. 


: Enable. Mit der steigenden Flanke dieses Signals werden 


die am IC anliegenden Prozessorsignale vom Controller 
übernommen. 


ı Reset*, ein Low an diesem Eingang setzt alle Zähler im 


CRTC zurück und alle Ausgänge werden Low. 

Diese Funktion wird aber nur ausgeführt, wenn gleichzei- 
tig der LPSTB-Eingang Low ist. Der Reset löscht nicht die 
Controll-Register! 


: Character Clock ist das Taktsignal, aus dem alle vom Mo- 


nitor benötigten Signale durch Teilung abgeleitet werden. 


: Horizontal Sync liefert das Signal für die horizontale Syn- 


chronisation des Monitors. Falsch eingestellter oder feh- 
lender HSYNC äußert sich im 'Durchlaufen’ des Bildes. 


: Vertical Sync liefert das vom Monitor benötigte Signal zur 


vertikalen Synchronisation. 


: Display Timing. Dieses Signal ist zu den Zeiten High, wenn 


das dem Monitor zugeführte Signal auf dem Bildschirm 
darzustellen ist. Mit Hilfe dieses Signals lassen sich die 
Strahlrückläufe unterdrücken. 


: Cursor Enable (oft auch als Cursor Display, CURDISP, be- 


zeichnet) wird verwendet, wenn der Cursor nicht durch 
die Software, sondern den CRTC selbst gesteuert wird. 
Auch das Cursorblinken kann mit diesem Anschluß ge- 
steuert werden. 
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LPSTB : Light Pen Strobe. Wird an diesem Eingang eine Low- 
—-High-Flanke angelegt, dann wird der derzeitige Zu- 
stand der MA-Leitungen in die Light-Pen-Register 
übertragen und gespeichert. Diese Register können aus- 
gelesen und in einem entsprechenden Programm verwen- 
det werden. 


1.4.2 Die internen Register des Video-Controllers 


Wie bereits erwähnt, enthält der 6845 ein Adress—Register und 18 Con- 
troll-Register. Da mit dem Signal RS, Register Select, aber nur zwischen 
zwei Adressen ausgewählt werden kann, stellt sich die Frage, wie alle 18 
Controll-Register über nur eine Adresse angesprochen werden können. 

Die Lösung des Problems ist das Adress—-Register. In das Adress—-Regi- 
ster wird die Nummer des Controll—-Registers geschrieben, auf das man 
als nächstes zugreifen möchte. Dieses Verfahren mutet zwar etwas um- 
ständlich an, hat aber einen unbestreitbaren Vorteil. Auf diese Art belegt 
der CRTC eben nur zwei und nicht 18 oder gar 32 Adressen. Da außerdem 
der CRTC normalerweise nur einmal beim Einschalten des Gerätes pro- 
grammiert wird, kann auch der Mehraufwand an Programmierung in 
Kauf genommen werden. 


Aber betrachten wir nun die 18 Register etwas detaillierter. Die folgende 
Beschreibung fällt allerdings wegen der komplexen Struktur einzelner 
Register etwastrocken und schwer verständlich aus. Auch sind zum Ver- 
ständnis einiger Register grundlegende Kenntnisse der Videotechnik nö- 
tig. Sollten Sie beim Lesen nicht alles verstehen, so trösten Sie sich mit 
der Gewißheit, daß der Videocontroller in Ihrem Computer nicht 'von 
Hand’ programmiert werden muß. 


In der folgenden Aufstellung bedeutet ein R hinter der Registerbezeich- 
nung, daß dieses Register zu lesen ist, ein W bedeutet die Möglichkeit, 
dieses Register zu beschreiben. Beachten Sie, daß einige Register nur zu 
beschreiben oder zu lesen sind (gekennzeichnet durch -.). 


AR -/W : Adress Register. Dieses 5-Bit-Register wird mit der 
Nummer des gewünschten Controll-Registers geladen. 
Registerwerte 18 bis 31 werden ignoriert, die gültigen 
Werte lauten O bis 17. Dieses Register wird angesprochen, 
wenn sowohl CS als auch RS Low sind. 


RO -/W : Horizontal Total. In dieses 8-Bit-Register wird die An- 


zahl der Zeichen pro totaler Zeile eingetragen. Allerdings 
ist eine totale Zeile wesentlich länger als die am Bild- 
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R1 


R2 


R3 


R4 


R5 


R6 


R7 


R8 


R9 


schirm sichtbaren Zeichen, da auch die Zeiten für den 
Rand und den Strahlrücklauf mitgerechnet werden müs- 
sen. Entsprechend wird dieser Wert etwa 1.5 mal so groß 
wie die Anzahl der dargestellten Zeichen gewählt sein. 


: Horizontal Displayed. Dieses Register enthält die Anzahl 


der am Bildschirm darzustellenden Zeichen. Der hier ein- 
getragene Wert muß kleiner als der von RO sein. 


: Horizontal Sync Position. Der 8-Bit-Wert dieses Regi- 


sters bestimmt den Zeitpunkt des HSync-Impulses. Wird 
der Wert von R2 verringert, so verschiebt sich das Moni- 
torbild nach rechts, eine Erhöhung schiebt das Bild nach 
links. 


: Sync Width. Mit den unteren 4 Bit dieses Registers wird 


die Breite der HSync und VSync-Impulse festgelegt. Die 
oberen 4 Bit dieses Registers werden nicht benutzt. 


: Vertical Total. Die unteren 7 Bit dieses Registers bestim- 


men die Anzahl aller Rasterzeilen pro Bild. Der Wert be- 
stimmt damit auch, ob eine Bildwiederholfrequenz von 50 
oder 60 Hertz gewählt wird. 


: Vertical Total Adjust. Mit Hilfe der unteren 6 Bit dieses Re- 


gisters kann ein Feinabgleich der Bildwiederholfrequenz 
vorgenommen werden. 


: Vertical Displayed. Die unteren 7 Bit dieses Registers be- 


stimmen die Anzahl der tatsächlich dargestellten Raster- 
zeilen auf dem Monitor. Hier kann theoretisch jeder Wert 
programmiert werden, der kleiner als (R4) ist. 


: Vertical Sync Position. Der 7—-Bit-Wert dieses Registers 


bestimmt den Zeitpunkt des VSync-Impulses. Wird der 
Wert von R7 verringert, so verschiebt sich das Monitorbild 
nach unten, eine Erhöhung schiebt das Bild nach oben. 


: Interlace. Mit den unteren beiden Bits dieses Registers 


wird bestimmt, ob die Darstellung mit oder ohne Zeilen- 
sprung- Verfahren (Interlace) erfolgen soll. 


: Maximum Raster Adress. Dieses 5-Bit-Register be- 


stimmt die Anzahl der Rasterzeilen der darzustellenden 
Zeichen. 
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R10 


R11 


R12 


R13 


R14 


R15 


R16 


R17 


-/W 


R/W 


R/W 


R/W 


R/W 


R/- 


R/- 


: Cursor Start Raster. Die Bits 0 bis 4 dieses Registers be- 


stimmen, auf welcher Rasterzeile der Cursor beginnen 
soll. Die Bits 5 und 6 legen den Cursormodus fest. Der Cur- 
sormodus wird dabei mit den Bits wie folgt festgelegt: 


Bits 
Cursor nicht blinkend 

Cursor nicht dargestellt 
Cursor blinkt (ca 3x pro Sek.) 
Cursor blinkt (ca 1.5 x pro Sek.) 


--0009 
0-00 


: Cursor End Raster. Entsprechend zu (R10) legen die unte- 


ren 5 Bit dieses Registers fest, auf welcher Rasterzeile der 
Cursor endet. 


: Start Adress High. Die Bits O0 bis 5 legen fest, ab welcher 


Adresse im gesamten 16k-Adressbereich des CRTC der 
Bildspeicher beginnt. Wird dieses Register gelesen, so 
sind die Bits 6 und 7 immer Low. 


: Start Adress Low. Dieses Register legt analog zu (R12) das 


niederwertige Adressbyte des zu adressierenden Bild- 
schirmspeichers fest. 


: Cursor High. Die Bits 0 bis 5 dieses Registers stellen das 


High-Byte der momentanen Cursorposition dar. 


: Cursor Low. Analog zu (R14) wird in diesem Register das 


Low --Byte der Cursor—- Adresse abgelegt. 

Da sowohl R14 als auch R 15 beschrieben und gelesen 
werden können, kann über diese Register die Cursorposi- 
tion frei bestimmt werden. 


! Dieses Register enthält nach einem positiven Strobeim- 


puls das Highbyte der zum Zeitpunkt des Impulses akti- 
ven Bildschirmspeicheradresse. Die Bits 6 und 7 dieses 
Reisters sind immer Low. 


: Analog zu R16 enthält dieses Register das Lowbyte zum 


Zeitpunkt des Light—-Pen-Strobes. 
Sowohl R16 wie auch R17 können nur gelesen werden. 
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1.5 Das Ram des CPC 


Die im CPC eingebauten 64 K Ram (Schreib/Lesespeicher) werden nicht 
nur als Daten- und Programmspeicher eingesetzt. Auch die Bildschirmin- 
formation wird in diesem Speicher untergebracht. 


Nachdem in den vorherigen Kapiteln die drei wichtigsten Bausteine des 
CPC 464, der Prozessor, das Gate Array und der Video-Controller, detail- 
liert besprochen wurden, werfen wir in diesem Abschnitt einen Blick auf 
das Zusammenspiel dieser drei Komponenten beim Zugriff auf die Spei- 
cher-ICs. Dabei wird auch geklärt, wie der Video-Controller das Ram an- 
spricht, um Zeichen auf dem Bildschirm darzustellen. 


Zuvor aber wollen wir einen kleinen Abstecher machen und uns anschau- 
en, wie die verwendeten dynamischen Ram-Bausteine überhaupt funk- 
tionieren. 


Als erstes soll einmal geklärt werden, wie die Adressierung von 65536 
Speicherzellen mit den zur Verfügung stehenden 8 Adress-Anschlüssen 
möglich ist. 

Das grundsätzliche Funktionsprinzip besteht darin, die 16-Bit-Adresse in 
zwei Hälften zu teilen und diese beiden Adress-Bytes nacheinander an 
die Adress-Pins der Rams zu legen. Dieser Vorgang wird Multiplexen ge- 
nannt. Allerdings erfordert das Multiplexen Steuersignale, die den Rams 
mitteilen, welche Information zur Zeitan den Adressanschlüssen anliegt. 


An diesem Punkt kommen die vom Gate Array gelieferten Signale RAS* 
und CAS* ins Spiel. 

Nachdem ein Adress-Byte an den Rams anliegt, wird ihnen durch einen 
High-Low-Wechsel des Signals RAS* mitgeteilt, daß eine Adresshälfte 
parat ist. Mit der negativen Flanke (dem High-Low Wechsel) des RAS* 
wird die anliegende Adressinformation in den Rams gespeichert. 

Jetzt kann die zweite Hälfte der Adresse an das Ram angelegt werden. 
Sobald dieses Adressbyte anliegt, wird das CAS*-Signal Low. Damit hat 
das Ram die gesamte 16-Bit-Adresse erhalten und wählt die gewünschte 
Speicherzelle an. Diese Zelle kann jetzt beschrieben oder ausgelesen 
werden. 

Die Umschaltung der Adresshälften muß natürlich auch von einem pas- 
senden Signal übernommen werden, im CPC ist es das Signal CAS- 
ADDR*. 

Als Umschalter oder Multiplexer (meint beides dasselbe, Multiplexer 
hört sich nur viel fachmännischer an) arbeiten dieICs IC104, 105, 109 und 
113. Die Funktion dieser ICs vom Typ 74LS153 kann man sich am besten 
wie zwei elektronisch gesteuerte Drehschalter vorstellen. Jeder der bei- 
den Schalter hat vier Eingangsanschlüsse und einen Ausgang. Über zwei 
Steuereingänge kann entschieden werden, welcher der vier Eingänge 
mit dem Ausgang verbunden ist. 


Die beiden Steuereingänge werden von den Signalen CPU-ADDR* und 
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CAS-ADDR* angesteuert. Mit dem Signal CPU-ADDR* wird entschieden, 
ob der Prozessor oder der CRTC eine Adresse an das Ram legen kann, 
CAS-ADDR* schaltet zwischen den jeweiligen Adresshälften um. 


Die Umschaltung wollen wir uns exemplarisch am Multiplexer IC105 an- 
schauen. 

Die Ausgänge Pin 7 und Pin 9 sind über je einen Widerstand von 120 Ohm 
mit den Adresseingängen AO und Al der Rams verbunden. 

Die Steuereingänge A (Pin 14) und B (Pin 2) sind mit den bekannten Si- 
gnalen CPU-ADDR* und CAS-ADDR* verbunden. 


Die Adressinformation liegt an den Pins 3 bis 6 und 10 bis 13. Hier finden 
Sie auch das im vorigen Kapitel mit Adresshilfsbit bezeichnete Signal 
CCLK wieder. Welches Adıressbit bei welcher Steuerkombination an den 
Ausgängen erscheint, zeigt die folgende Aufstellung: 





CPU- CAS- MULTIPLEXER- MULTIPLEXER- 
ADDR ADDR AUSGANG AO AUSGANG A1 

0 0 280, A9 280, AO 

0 1 280, A2 280, Ai 

1 0 6845, MA8 CCLK 

1 1 6845, MA1 6845, MAO 





Nun trägt diese Tabelle auf den ersten Blick nicht besonders zum Ver- 
ständnis der Ansteuerung des Rams bei. Besonders verwirrend ist es, 
daß die Adressleitung AO des Prozessors nicht auf AO des Rams liegt. Be- 
denken Sie aber, daß es dem Prozessor egal ist, in welche physikalische 
Adresse des Rams er seine Information schreibt. Für den Prozessor ist es 
z.B. beim Schreiben oder Lesen seiner’ Speicherzelle O ohne Bedeutung, 
ob dabei auch wirklich die physikalische Ram-Adıresse 0 oder eine belie- 
bige andere Adresse im Ram adressiert wird. Er wird bei Zugriffen auf 
'seine’ Speicherzelle O immer wieder dieselbe Speicherzelle adressieren. 
Insofern ist die Bezeichnung der Adresspins der Rams eigentlich willkür- 
lich und für den Prozessor unerheblich. 


Viel wichtiger ist die Zuordnung von Prozessoradressen zu den Adressen 
des CRTC. Diese Zuordnung zeigt die Tabelle 1.5.0.1. 


Wie man sieht, liegen alle Adressbits des Prozessors über die Multiplexer 
an den Adress-Anschlüssen der Rams, aber auch der Video-Controller 
adressiert unter Zuhilfenahme des CCLK den gesamten 64K-Speicherbe- 
reich. Das aber steht im Gegensatz zum vorigen Kapitel, wo ja gesagt 
wurde, daß der CRTC einen Bereich von nur 16K adressieren kann. 
Diese Aussage ist insoweit richtig, da als Adressleitungen nur die 14 mit 
MA (Memory Adress Line) bezeichneten Anschlüsse gezählt werden. 
Diese 14 Anschlüsse ermöglichen einen Adressbereich von 16K. 
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Z80 6845 Z80 6845 


AO CCLK AB MA7 
Ai MAO A9 MA8 
A2 MA1 A10 MA9 
A3 MA2 A11 RAO 
A4 MA3 A12 RA1 
A5 MA4 A13 RA2 
A6 MAS A14 MA12 
A7 MA6 A15 MA13 


1.5.0.1 Zugriff von Z80 und 6845 auf den gem. Speicher 





Die im CPC eingesetzte Betriebsart des 6845 zur Adressierung des Video- 
Speichers wird nur selten verwendet. Mit den Anschlüssen RAO bis RA4 
wird normalerweise ein fest programmiertes Zeichen- oder Character- 
Rom angesteuert, das die Bitmuster für die auf dem Bildschirm darzustel- 
lenden Zeichen enthält. 

Üblicherweise haben Computer einen als Video-Ram bezeichneten Spei- 
cherbereich, in dem die auf dem Bildschirm darzustellenden Zeichen ge- 
speichert werden. In diesem Speicher belegt jede Zeichenposition ein By- 
te. Das ergibt z.B. bei der Darstellung von 80 x 25 Zeichen einen Speicher- 
bedarf von 2000 Bytes. 

Nun kann aber in einem Byte nicht die gesamte zur Darstellung benötigte 
Information untergebracht werden. Jedes Zeichen besteht ja aus einer 
Anzahl von untereinander liegenden Punktereihen. 

Auch beim CPC 464 kann man diese Reihen auf dem Monitor erkennen. 
So besteht z.B. der Cursor aus 8 untereinander liegenden Reihen, in de- 
nen alle Bildpunkte 'an’ sind. Bei der Darstellung von Buchstaben oder 
Ziffern sind nur bestimmte für die Darstellung des Zeichens erforderliche 
Punkte in einer Reihe an. Diese Punkte-Muster lassen sich durch Bitmu- 
ster speichern, wobei üblicherweise ein gesetztes Bit einem Punkt auf 
dem Bildschirm entspricht. 

Die RA-Anschlüsse werden nun benötigt, um die einzelnen Reihen, also 
Bitmuster, aus dem Zeichen-Rom zu erhalten. Dazu werden die RA-An- 
schlüsse als Adressleitungen für das Zeichen-Rom verwendet. 


Wie man sich vorstellen kann, ist es bei Verwendung von fest program- 
mierten Zeichen-Roms nicht möglich, auf dem Bildschirm hochauflösen- 
de Grafik zu erzeugen. Nach diesem Prinzip konstruierte Computer sind 
an den eingebauten Zeichensatz gebunden. 

Beim CPC entfällt aber dieses herkömmliche Character-Rom, hier hat 
man einen gänzlich anderen Weg beschritten. 

Da die RA-Anschlüsse direkt den Speicher adressieren, muß also die 
Punkte-Information auch im Ram untergebracht sein. Nur durch diesen 
Schaltungstrick ist es möglich, jedes beliebige Bitmuster auf dem Moni- 
tor zu erzeugen, sprich Grafik in den bekannten Grenzen darzustellen. 
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Doch bevor wir uns dem konkreten Aufbau des Video-Speichers zuwen- 
den, soll endlich das Signal CCLK erklärt werden. Dazu ist allerdings ein 
klein wenig Mathematik nötig. 

Der CRTC wird mit einer Taktfrequenz von 1 MHZ angesteuert. Mit je- 
dem Taktimpuls wird eine Speicherzelle adressiert. In dieser Zelle steht 
bitweise verschlüsselt die Information, welche Punkte auf dem Bild- 
schirm 'an’, also in der Schreibfarbe dargestellt sein sollen. Da eine Fre- 
quenz von 1 MHz einer Periodendauer von 1 us entspricht, steht für die 
Darstellung jedes Punktes genau ein Achtel der Taktfrequenz zur Verfü- 
gung. Das ist eine Zeit von 0.125 us. Um alle 640 Punkte einer Zeile darzu- 
stellen, ist somit eine Zeit von 80 us erforderlich. 

Da aber das die Dauer einer Zeile bestimmende V-Sync-Signal eine Perio- 
dendauer von 52 us hat, kann diese Rechnung nicht aufgehen. Mit diesen 
Werten lassen sich maximal 40 Zeichen darstellen. 

Ein Ausweg aus diesem Problem ist eine spezielle Betriebsart der Rams, 
der Page Adress-Mode. Hat ein Ram nach dem Anlegen der RAS- und 
CAS-Signale den Inhalt dergewünschten Speicherzelle auf die Datenaus- 
gänge gelegt, dann reicht es, mit einem weiteren CAS-Impuls nur eine 
neue Adress-Hälfte an die Rams zu legen, um das nächste Byte zu erhal- 
ten. Das setzt natürlich voraus, daß sich nur eine Hälfte der Adressinfor- 
mation ändert. 

Genau diese Eigenschaft haben die Entwickler des CPC genutzt. Natür- 
lich muß die Adressinformation zu den beiden CAS-Impulsen unter- 
schiedlich sein, sonst liest man dieselbe Speicherzelle zweimal. Das ist 
aber beim CCLK-Signal gegeben, es schaltet genau zwischen den beiden 
CAS-Impulsen um. Dieses Signal wird vom Multiplexer IC105 auf das 
Adressbit 0 (vom Prozessor aus gesehen) gelegt, wenn das Signal CAS- 
ADDR auf Low, das Signal CPU-ADDR dagegen auf High ist. Es stellt da- 
mit das unterste Adressbit des Video-Rams dar. 

Die beiden schnell aufeinander gelieferten Bytes aus dem Video-Ram 
werden im Gate Array zwischengespeichert, in die für den Monitor benö- 
tigte serielle Form umgewandelt und zusammen mit den Farbinformatio- 
nen an den RGB-Ausgang geliefert. 


Bleiben noch die beiden Signale MA12 und MA 13. Mit Hilfe dieser beiden 
Bits wird innerhalb von 16k-Schritten der Beginn des Video-Rams be- 
stimmt. Üblicherweise sind diese Bits gesetzt, das Video-Ram beginnt al- 
so bei &C000. Aber auch ein Video-Bereich von &4000 bis &7FFF ist bei 
entsprechender Programmierung möglich. 
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1.6 Das Video-Ram zwischen Z80 und 6845 
Probieren Sie am CPC doch einmal dieses kurze Programm: 


10 MODE 2 

20 FOR i = &c000 TO &ffff 
30 POKE i,255 

40 NEXT ii 


Sie erhalten auf dem Bildschirm eine dünne Linie, die von der linken obe- 
ren Ecke schnell nach rechts gezeichnet wird. Am Ende der ersten Linie 
wird sie genau 8 Reihen tiefer fortgesetzt. 

Ist der Bildschirm mit diesen dünnen Linien einmal gefüllt, so beginnt das 
Ganze wieder links oben, diesmal aber eine Punktereihe tiefer. 


Probieren Sie das Programm auch einmal im MODE 1 und MODE 0. 
Danach ändern Sie einmal die Zeile 30 in: 
30 POKE i,i 


Jetzt erhalten wir eine Punktereihe, die den Bildschirm zu senkrechten 
Reihen füllt. 


Wenn das Programm im Mode 2 lief, dann sieht man, daß die senkrechten 
Reihen an der rechten Seite der Zeichen stehen. 

Im Mode 1 erhalten wir zwei senkrechte Reihen pro Charakter, im Mode O0 
sind es sogar 4. 


Wir wollen eine letzte Änderung am Programm vornehmen. Löschen Sie 
dazu die Zeile 10 des Programms und geben Sie 'MODE 2’ im Direktmo- 
dus ein. Der Bildschirm wird gelöscht und 'READY’ erscheint in derlinken 
oberen Ecke. Betätigen Sie die Cursor-Down Taste (Pfeil nach unten) bis 
die Ready-Meldung aus dem Bild verschwindet. Der Cursor steht jetzt 
auf der letzten Eingabezeile. Lassen Sie das Programm noch einmal lau- 
fen. 


Das Ergebnis ist einigermaßen irritierend. 


Dieses kleine Programm hat uns gleich mehrere wichtige Dinge verraten. 
Zum einen haben wir damit bewiesen, daß der Bildschirmspeicher bei 
&C000 beginnt und bei &FFFF aufhört. Überraschenderweise ist Lage 
und Größe der Bildschirmspeicher in allen drei Modi gleich. Es wird also 
nicht zwischen Modus O und Modus 2 unterschieden. Nur die erzeugten 
Farben sind unterschiedlich. 


Allerdings gibt ein 16k-Bytes großer Bildschirmspeicher im Mode 0, also 
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bei 20 Zeichen pro Zeile offensichtlich wenig Sinn. 20 Zeichen mal 25 Zei- 
len ergibt nur 500 Zeichen auf dem Bildschirm. Warum benötigt der CPC 
scheinbar 16384 Speicherplätze, um diese 500 Zeichen darzustellen? 


Die Antwort ist recht einfach. Wie bereits erwähnt besitzt der CPC kei- 
nen Video-Ram, in dem ein Zeichen in einem Byte gespeichert wird. 

Im 80-Zeichenmodus belegt ein Zeichen auf dem Bildschirm 8 Bytes, bei 
40 Zeichen sind es 16 Bytes und im 20-Zeichen-Modus ganze 32 Bytes. 
Das läßt sich auch aus dem Programm ersehen, welches die senkrechten 
Linien erzeugte. 

Unsere Darstellung 1.6.0.1 macht den Aufbau eines Zeichens noch ein- 
mal deutlich. Dabei soll das Zeichen im Mode 2 in der linken oberen Bild- 
schirmecke stehen. 


Der 80-Zeichen-Modus ist in dieser Hinsicht am einfachsten zu verste- 
hen, da ein gesetztes Bit einen Punkt in der aktuellen Zeichen- (Pen-) Far- 
be erzeugt. Ist ein Bit dagegen nicht gesetzt, so erscheint an dieser Stelle 
auf dem Bildschirm die Hintergrundfarbe. Da im Mode 2 nur eine Zei- 
chenfarbe möglich ist, gibt es keine weiteren Möglichkeiten. 


Wofür werden aber im Mode 0 32 Bytes für ein Zeichen benötigt? 


Diese Zusammenhänge sind bei den Modi O und 1 nicht mehr so einfach 
zu beschreiben. Sie sollten das folgende kleine Programm einmal eintip- 
pen und die angezeigten Ergebnisse bei der Lektüre vor Augen haben. 
Dadurch werden die Beschreibungen sicher verständlicher, als wenn Sie 
einen reinen 'Trockenkurs’ versuchen. 


10 MODE 2 
20 REM 
30 PRINT “A“ 
40 FOR adress = &C000 TO &F800 STEP &800 
50 p$ = BIN$(PEEK(adress),8) 
60 FORI=1TO8 
70 IF MID$(p$;1,1) = “1“ THEN PRINT “X“; ELSE PRINT “.“; 
80 NEXTI 
90 PRINT 
100 NEXT adress 


Lassen Sie dieses Programm so wie beschrieben laufen, dann erhalten 
Sie ein Bild, das der abgedruckten Matrix des 'A’ gleicht. 


Ändern Sie nun einmal den Mode-Befehl in der Zeile 10 in 'MODE 1' und 
lassen Sie das Programm laufen. Das Ergebnis ist einigermaßen verblüf- 
fend. 

Daß sich nur die halbe Matrix in den ausgelesenen Bytes befindet, war 
anzunehmen. Daß aber diese Matrix auch nur ein halbes Byte, also die 
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Bits 4 bis 7, beansprucht, verwirrt zunächst. 


Wir kommen der Klärung des Rätsels aber näher, wenn Sie die Zeile 20 er- 
setzen: 


20 PEN2 


Außer der geänderten Schreib-(PEN-)farbe hat sich auch das durch unser 
Programm angezeigte Bitmuster geändert. Das aber ist die Lösung unse- 
res Problems! 

Wenn Sie mit dem CPC bereits etwas vertraut sind, werden Sie wissen, 
daß im 40-Zeichen-Modus 4 Farben möglich sind. Diese vier Farben las- 
sen sich einfach mit dem Zeichen selbst abspeichern, in dem nur vier Bit 
für die gesetzten Pixel maßgeblich sind, und Low- und High-Nibble (ein 
Nibble = ein Halb-Byte, 4 Bit) über die Farben entscheiden. Bei dem ver- 
wendeten Prinzip muß nur das Gate Array die Pixel für die Anzeige in ho- 
rizontaler Richtung verdoppeln, um auch tatsächlich 8 Punkte darzustel- 
len, wo nur vier Punkte gespeichert sind. 


Im Mode O bei der Darstellung von 20 Zeichen pro Zeile wird diese Metho- 
de noch erweitert. Hier sind es nur zwei Bit, welche die Pixel-Information 
enthalten. Die Stellung der zwei Pixel innerhalb des Bytes bestimmen die 
Farbe, in der dieses Pixel dargestellt werden soll. Damit sind insgesamt 
16 Kombinationen möglich, genau die Anzahl der zur Verfügung stehen- 
den Farben. Da nur zwei Pixel in einem Byte gespeichert sind, werden 4 
Byte für eine Pixel-Zeile benötigt, insgesamt also 8x 4 = 32 Bytes für ein 
Zeichen in 16 verschiedenen möglichen Farben. 


Probieren Sie doch einfach das Programm im Modus 0 mit verschiedenen 
Werten für das PEN-Kommando aus. Sie werden dann schnell hinter das 
Funktionsprinzip kommen. 


Damit sind die beiden ersten Punkte vom Beginn des Kapitels geklärt. 
Unklar dagegen ist noch der Punkt der 'Verschiebung’ des Bildschirm- 
rams. Dieses Problem ist in der Hardware des CPC begründet. 


Auch ein Z80 mit einer Taktfrequenz von 4 MHz benötigt zum Verschie- 
ben eines 16K-Datenblocks einige Zeit. Um z.B. beim Listen eines länge- 
ren Basicprogramms nicht für jede neue Zeile den gesamten Video-Ram- 
Bereich um 640 Speicher-Plätze zu verschieben, hat man eine spezielle 
Eigenschaft des CRTC genutzt. Durch entsprechende Programmierung 
der Register 12 und 13 des 6845 kann der Bildschirm praktisch auf jeder 
geraden Speicherzelle des Video-Rams beginnen. Dadurch kann das 
Scrollen sehr viel schneller passieren, da nur die entsprechenden Regi- 
ster mit den nötigen Werten versorgt werden müssen. Die neue Zeile am 
unteren Bildrand ist schnell gelöscht und mit den Zeichen versehen. 
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Ein Start des Video-Ram auf einer ungeraden Adresse, also z.B. bei 
&C001 ist wegen der beschriebenen Verwendung des Signals CCLK& als 
Adressbit nicht möglich. 


Das folgende Programm zeigt, daß eine Manipulation der genannten Re- 
gister auch von Basic aus zu bewerkstelligen ist: 


10 adrreg = &bc00 : REM Adressregister des 6845 
20 datreg = &bd00 : REM Port des Datenregisters 
30 OUT adrreg,13 : REM Register wählen 

40 FOR offset = 1 TO 40 

50 OUT datreg,offset : REM 40 mal ändern 

60 FOR warten = 1 TO 40 : REM und etwas warten 
70 NEXT warten,offset 


In diesem Programm wird der Bildschirminhalt horizontal gescrollt. Ohne 
die Warteschleife würde das Scrollen so schnell ablaufen, daß man den 
Vorgang mit dem Auge gar nicht verfolgen könnte. 


Auch vertikales Scrollen läßt sich von Basic aus programmieren. Aller- 
dings müssen dann beide Register, Low- und Highbyte, manipuliert wer- 
den. Da aber zwischen den beiden OUT-Befehlen recht viel Zeit vergeht, 
kommt es zu unangenehmen Flimmer-Erscheinungen. 


Es gibt beim Video-Ram aber noch eine Besonderheit zu beachten. 


Rechnen wir die bekannten Werte einmal zusammen. 

Im Mode 2 besteht ein Zeichen aus 8 Bytes. In einer Zeile haben 80 Zei- 
chen Platz und es sind 25 Zeilen auf dem Bildschirm möglich. Das ergibt 
einen gesamten Speicherplatzbedarf von 80 x 25 x 8 = 16000 Bytes. Ein 
16K-Speicherbereich hat aber 2 hoch 14 = 16384 Speicherplätze. Wo sind 
die fehlenden 384 Bytes? 

Ganz einfach. Sie werden nicht benötigt. Jedenfalls nicht, so lange der 
Bildschirm nicht gescrollt wird. 

Hier könnten kurzfristig zu speichernde Werte untergebracht werden, 
die aber spätestens beim nächsten CLS mit Sicherheit verschwunden 
sind. 


Sie werden sich jetzt sicher fragen, wie um alles in der Welt mit dieser 
verrückten Organisation des Bildschirmspeichers jemals vernünftig Gra- 
fik programmiert werden kann. 

Auch scheint es fast unmöglich, ein Zeichen vom Bildschirm zu lesen. Bei 
anderen Rechnern ist das kein Problem, da kann mit einem POKE ein Zei- 
chen auf dem Bildschirm plaziert werden. Entsprechend kann der Inhalt 
des Video-Ram mit PEEK ausgelesen werden. 

Weiterhin ist üblicherweise sicher, daß das Video-Ram auf einer be- 
stimmten Adresse anfängt. 
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Nun ist aber nicht alles so schlimm, wie es auf den ersten Blick erscheint. 
Das Betriebssystem ist ja auch in der Lage, mit den wechselnden Starta- 
dressen klarzukommen, oder z.B. ein Zeichen aus der Bildschirm-Matrix 
zu bestimmen, wie das bei jeder Benutzung der Copy-Taste passiert. Die 
dafür benötigten Routinen können auch von selbsterstellten Maschinen- 
programmen genutzt werden. 

Viele dieser Routinen des Betriebssystems finden Sie in einem späteren 
Kapitel. Konkret zeigen wir die Nutzung der Grafik in einem Beispiel zum 
Zeichnen von Rechtecken und in einem Programm zum Erzeugen einer 
Grafik-Hardcopy. 
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1.7 Der Parallel-Schnittstellenbaustein 8255 


Ursprünglich von INTEL für den 8080 entwickelt, eignet sich der 8255 als 
programmierbarer Mehrzweck-V/O-Baustein (/O = Input/Output, Ein/ 
Ausgabe) auch für andere Prozessoren. Der 8255 verfügt über insgesamt 
24 Leitungen, über die Signale aus- oder eingegeben werden können. Je- 
weils 8 Leitungen bilden einen 8-Bit-Port, wobei der dritte Port in zwei 
getrennt programmierbare Hälften geteilt werden kann. 


Die wichtigsten Leistungsmerkmale des 8255 sind: 


24 programmierbare I/O-Anschlüsse. 

Einfache Betriebsspannung 5 Volt. 

Vollständig TTL-Kompatibel. 

Drei leistungsfähige Betriebsarten programmierbar. 
Jeder Port getrennt programmierbar. 

Hoher Ausgangsstrom 1 mA bei 1.5 Volt Spannung. 
Funktion Bit setzen/Bit Rücksetzen möglich. 


1.7.1. Die Anschlußbelegung des 8255 


Die Pinbelegung des 8255 ist im unten stehenden Bild gezeigt. Es bedeu- 
ten: 


DO - D7 ı Data Lines. Diese Anschlüsse werden mit dem Datenbus 
des Prozessors verbunden. Sie dienen dem Transfer der 
Daten vom und zum Prozessor. 


cs : Chip Select. Durch ein Low an diesem Anschluß wird der 
Baustein ausgewählt. Die jetzt an den RD-, WR- und Data- 
Leitungen anliegenden Signale werden vom 8255 akzep- 
tiert. 


RD : Read. Ein Low an diesem Anschluß veranlaßt den 8255 Da- 
ten oder Zustandsinformationen über den Datenbus an 
den Prozessor zu senden. 


WR : Write wird Low, wenn der Prozessor Daten oder Steuerbe- 
fehle an den 8255 schicken will. 


AO, A1 : Adress Lines O0 und 1. Über diese Anschlüsse wird zwi- 
schen den drei Datenkanälen und dem Steuer-Register 
ausgewählt. Häufig werden diese Anschlüsse mit den un- 
teren beiden Adıressleitungen des Prozessors verbunden. 
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PA3 O Paa 
PA2 () O PAS 
PA1ı U O PA6 
PAO U) O PA7 
RD* () OD wR* 
cs 0 O RESET 
GND 0) O Do 
A110 oO pı 
A000 O D2 
Pc 7 0 O D3 
Pc6 0 DO Da 
PC5 U O D5 
PCc4 (|) O D6 
PCO |) O D7 
Pc1ı U O Vec 
PC2 () O PB7 
PC3 () O PB6 
PBO () O PB5 
PB1i () O PBa4 
PB2 (|) O PB3 


1.7.1.1 Pinout des Parallelport 8255 
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RESET : Ein High an diesem Eingang setzt alle Register einschließ- 
lich des Steuerregisters zurück. Die Portleitungen werden 
in die Betriebsart Eingabe gebracht. 


PAO - PA7 : Port A. Diese acht Leitungen stellen den VO-Port A dar 
und können wahlweise als Eingang oder Ausgang ver- 
wendet werden. 


PBO - PB7 : Port B. Funktion wie Port A. 
PCO - PC7 : Port C. Funktion wie Port A. 
1.7.2 Die Betriebsarten des 8255 


Bevor auf die vier internen Register eingegangen wird, müssen wir zu- 
nächst die Möglichkeiten des ICs etwas genauer betrachten. Wie schon 
zu Beginn erläutert, verfügt der 8255 über drei mögliche Betriebsarten: 


Betriebsart 0 : Einfache Ein/Ausgabe 
Betriebsart 1 : Getastete Ein/Ausgabe 
Betriebsart 2 : Zweiweg-Bus 


Die Betriebsart O0 ist die einfachste und auch häufigste. In diesem Mode 
kann bestimmt werden, ob die Ports als Ausgabe- oder als Eingabe-Lei- 
tungen arbeiten sollen. Werden Leitungen als Ausgang programmiert 
und wird auf diese Ausgänge vom Prozessor eine Information gelegt, so 
wird der Wert gespeichert und die Ausgänge bleiben bis zur Neupro- 
grammierung oder einem Reset erhalten. 

Als Eingang programmierte Ports liefern beim Lesen den momentanen 
Zustand an diesen Leitungen. 


Sowohl Port A wie auch Port B lassen sich nur als ganzer Port für die ge- 
wünschte Datenrichtung programmieren. Es ist also nicht möglich, z.B. 
die Portbits PAO, PA3 und PA7 als Ausgang und die verbleibenden An- 
schlüsse als Eingang zu verwenden. 

Allerdings kann der Port C in zwei Hälften geteilt werden. Die Datenrich- 
tung jeder Hälfte kann getrennt programmiert werden. 


Die Betriebsart 1 unterscheidet sich grundsätzlich vom Mode 0. In dieser 
Betriebsart ist ein Datentransfer mit Hand-Shake-Signalen in einer Rich- 
tung möglich. Jetzt spricht man nicht mehr von drei vorhandenen Ports, 
die beiden Hälften des Port C werden den anderen beiden Ports als Steu- 
er- und Quittungssignale zur Verfügung gestellt. Man spricht dann von 
den beiden Gruppen A und B. 

Die Gruppe A besteht aus Port A und den Bits 4-7 des Port C, die Gruppe 
B entsprechend aus dem Port B und den Bits 0-3 des Port C. 

Um die Progammierung des Mode 1 komfortabel zu gestalten, besteht die 
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Möglichkeit, jeweils ein spezielles Bit der entsprechenden Hälfte des 
Port B als Interrupt-Signal zu verwenden. 

Ein solcher 8-Bit-Datentransfer wird z.B. bei Drucker-Schnittstellen ver- 
wendet. Hier zeigt ein Signal an, daß die Daten auf den Datenleitungen 
gültig sind. Ein rückgeführtes Signal meldet, ob der Empfänger, also in 
diesem Beispiel der Drucker, emfangsbereit ist oder ob die Daten korrekt 
emfangen wurden. 

Diese Funktion kann vom 8255 wahlweise sowohl als Datenausgang wie 
auch als Eingang ausgeführt werden. 


Die dritte Betriebsart (Mode 2) ist ein getasteter bidirektionaler Betrieb. 
Diese Funktion ist nur mit dem Port A möglich. Als Steuer- und Quit- 
tungssignale werden die Bits PC3-7 verwendet. 

Ein möglicher Einsatz dieser Betriebsart wäre die Steuerung eines Flop- 
py-Laufwerks, da hierbei die Daten ja sowohl zur Floppy wie auch von der 
Floppy zum Prozessor über dieselben Anschlüsse geführt werden müs- 
sen. 


Zusätzlich besteht in allen drei Betriebsarten die Möglichkeit, die als 
Ausgang programmierten Bits des Port per Befehl gezielt zu setzen oder 
zu löschen. 

Alle diese beschriebenen Betriebsarten lassen sich auch kombinieren. So 
ist es möglich, den Port A im Mode O als Ausgang, den Port Bim Mode 1 
als Eingang und die verbleibenden Bits des Port C als Eingang zu pro- 
grammieren. 


1.7.3 Steuerung des 8255, die Registerbeschreibung 


Wenn man diese auf den ersten Blick verwirrende Anzahl der Möglichkei- 
ten betrachtet, so fragt man sich unwillkürlich, wie alle Möglichkeiten 
und Kombinationen mit nur einem Steuerregister zu programmieren 
sind. 

Der Trick, mit dem dies möglich wird, ist einfach. Das oberste Bit des 
Steuerworts wird als Kennzeichen-Bit verwendet. Ist dieses Bit im Steu- 
erwort gesetzt, so haben die Bits 0 bis 6 die folgende Bedeutung: 


Bit O0: steuert Funktion Port CBitsO - 3 
1 = Eingang 
0 = Ausgang 
Bit 1: steuert Funktion Port B 
1 = Eingang 
0 = Ausgang 
Bit 2: wählt Mode Gruppe B 


1 = Betriebsart O 
0 = Betriebsart 1 
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Bit 3 : steuert Funktion Port CBits4 - 7 
1 = Eingang 
0 = Ausgang 


Bit 4: steuert Funktion Port A 
1 = Eingang 
0 = Ausgang 


Bit 6,5: wählen Modus Gruppe A 
00 = Modus O 
01 = Modus 1 
1x = Modus 2, Bit 5 ohne Bedeutung 


Ist im Steuerwort das oberste Bit dagegen gelöscht, so wird über die Bits 
0-3 die Funktion 'Bit setzen/Bit rücksetzen’ des Port C definiert. Die Be- 
deutung dieser Bits lautet folgendermaßen: 


Bit 0: steuert Bit-Set/Bit-Reset 
1 = Bit setzen 
0 = Bit rücksetzen 


Bits 3-1: Bitauswahl 


000 = PCO 
001 = PC1 
010 = PC2 
011 = PC3 
100 = PC4 
101 = PC5 
110 = PC6 
111 = PC7 


Die Bits 4 bis 6 im Steuerwort sind bei gelöschtem siebtem Bit ohne Be- 
deutung. 


Dieses Steuerregister kann nur beschrieben werden. Ein Lesen des Wer- 
tes ist nicht möglich. Wohl aber können die den Ports zugehörigen Regi- 
ster gelesen werden, auch wenn die Ports als Ausgang bestimmt sind. In 
diesem Fall entspricht der gelesene Wert dem Zustand der Portleitun- 
gen. 


Der Zugriff auf die vier Register geschieht über die Anschluß-Pins AO und 
A1. Diese Anschlüsse werden im 8255 decodiert und als Registeraus- 
wahlsignale benutzt. Üblicherweise liegen AO und A1 des 8255 auf den 
gleichnamigen Adressleitungen des Prozessors. Dadurch ergibt sich 
dann eine durchgehende Adressierung über 4 Adressen. 

Die Zuordung der Anschlüsse AO und A1 zu den Registern zeigt die fol- 
gende Tabelle. 
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Ai AO 

0 0 Port A Register 
0 1 Port B Register 
1 0 Port C Register 
1 1 Steuerregister 


1.7.4 Der Einsatz des 8255 im CPC 


Nachdem wir uns einen Überblick über die vielfältigen Einsatzmöglich- 
keiten des 8255 geschaffen haben, wollen wir uns mit dem praktischen 
Betrieb dieses universellen Schnittstellen-Bausteins im CPC auseinan- 
dersetzen. Wie eigentlich fast alle ICs im CPC 464 wird auch der 8255 op- 
timal verwendet. Da bleibt kein Bıt ungenutzt. 


Doch werden wir konkret. 

Der 8255 bedient die Tastatur, den Sound-Chip, den Motor des Casset- 
ten-Recorders, erzeugt die Schreib-Signale des Recorders, liest den vom 
Recorder kommenden Bit-Strom, überprüft das V-Sync-Signal des CRTC, 
stellt fest, ob der Drucker empfangsbereit ist, fragt mit einem Bit den Zu- 
stand des EXP-Signals des Expansion Connectors ab, entscheidet über 
eine Brücke, ob die Erzeugung des Bildes nach PAL- oder SECAM-Norm 
mit 50 oder 60 Hertz Bildfrequenz erfolgen soll und zu guter Letzt bleiben 
noch ganze drei Bits über, die beim Einschalten Brücken abfragen und 
feststellen, was für einen Computer Sie sich gekauft haben. Der Zustand 
dieser Brücken entscheidet nämlich, ob Sie Schneider, Awa, Triumpf, 
Amstrad oder einen anderen der insgesamt acht verschiedenen mögli- 
chen Firmennamen in der Einschaltmeldung auf den Blidschirm bekom- 
men. 


All diese Funktionen mit den zur Verfügung stehenden 24 VO-Leitungen 
zu realisieren, zeugt von der ausgesprochenen Sparsamkeit und Pfiffig- 
keit der Hardware-Entwickler. 


Ein Blick auf den Schaltplan zeigt, wie der 8255 angeschlossen ist. 

Der Datenbus ist direkt mit dem Datenbus des Prozessors verbunden. 
Das CS-Signal (Chip-Select) wird vom Adressbit A11 des Prozessors er- 
zeugt. Die zur Registerauswahl vorhandenen Pins AO und Al des 8255 
sind mit den Prozessoradresspins A8 und A9 verbunden. 

Wie bereits erwähnt werden alle Peripherie-Bausteine im CPC über Port- 
Adressen angesprochen. Aus diesem Grund ist die Leitung RD* des 8255 
mit dem Signal IORD* verbunden. 

Erzeugt wird dieses Signal aus der Verknüpfung der Signale RD* und 
IORQ* des Z80 mit einem Gatter des IC112. Nur wenn IORO* und RD* 
Low sind, erscheint am Ausgang Pin 6 des IC 74LS32 ein Low. 

In ähnlicher Weise wird auch der WR*-Anschluß des 8255 angesteuert. 
Hier erscheint, vom Pin 3 des 74LS32 kommend, ein Low, wenn sowohl 
WR* alsauchIORO* desZ80 an den Pins 1 und2 des IC112 Low werden. 
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Aus diesen Daten können nun die Port-Adressen des 8255 bestimmt wer- 
den. Um z.B. in das Register 0, das Datenregister des Port A, einen Wert 
zu schreiben, müssen die Anschlüsse A11, A9 und AB Low sein. In binä- 
rer Schreibweise erhalten wir für das Highbyte des Adressbusses den 
Wert: 


A15 A14 A13 A12 A11 A10 A09 AO08 
1 1 1 1 0 1 0 0 


Das entspricht dem hexadezimalen Wert &F4 


Die unteren 8 Adressbits gehen in die Auswahl des 8255 nicht ein, hier ist 
jeder Wert zwischen &00 und &FF möglich. 

Auch die gesetzten Bits im Highbyte sind zur korrekten Adressierung 
des 8255 eigentlich nicht nötig, und so könnte man auf die Idee kommen, 
als High-Byte den Wert 00H einzusetzen. Das würde sogar funktionieren. 
Da aber die Dekodierung der einzelnen Peripherie-ICs in ähnlich unvoll- 
ständiger Weise vorgenommem wird, müssen die Bits gesetzt werden, 
sonst würden sich gleichzeitig andere ICs wie der CRTC oder das Gate 
Array mit angesprochen fühlen. 


Doch zurück zu unserem Beispiel. Um also das Register A mit einem Wert 
zu laden, muß der Wert &F400 auf den Adressbus gelegt werden. Das 
kann mit den Befehlen 


LD A,wert 
LD BC,&F400 
OUT (C),A 


erreicht werden. Entsprechend kann z.B. das Port-Register C mit den Be- 
fehlen 


LD BC,&F600 
IN A,‚(C) 


ausgelesen werden. 


Grundsätzlich werden alle drei Ports im Modus O verwendet. Somit ste- 
hen alle 24 Anschlüsse als YO-Leitungen zur Verfügung. 


Der Port A (&F400) ist mit den 8 Datenleitungen des Sound Generators 
AY-3-8912 verbunden. Je nach geforderter Aktion wird der Port A als 
Ausgang oder Eingang programmiert. 

Als Ausgang programmiert werden über die 8 Portleitungen die Steuer- 
befehle an den Sound-Chip geschickt. Diese Steuerbefehle finden Sie de- 
tailliert im Kapitel über die Programmierung des AY-3-8912. An dieser 
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Stelle sei nur erwähnt, daß der Sound-Chip auch über einen bidirektiona- 
len 8-Bit-Port verfügt. An diesen Port ist eine Seite der Tastatur-Matrix 
angeschlossen. Über den Port A des 8255 kann nun über den Umweg des 
Ports des AY-3-8912 festgestellt werden, ob eine Taste gedrückt ist. Zu 
diesem Zweck muß der Port A natürlich als Eingang programmiert wer- 
den. 


Der Port B (&F500) wird fest als Eingangsport programmiert. Über diesen 
Port werden alle erwähnten Abfragen außer der Tastaturabfrage getä- 
tigt. Dabei sind die einzelnen Bits dieses Ports wie folgt belegt: 


BitO ı Dieses Bit fragt den Zustand des V-Sync des CRTC ab. Da 
diese Abfrage recht rasch gehen muß, kann durch einfa- 
ches Rotieren des mit INP gelesenen Wertes das Bit O ins 
Carry-Flag geschoben werden. So kann schnell der Zu- 
stand des V-Sync festgestellt werden. 


Bit 1-3 ı Diese Bits entscheiden den Firmennamen in der Einschalt- 
meldung. 
Bit4 ı Dieses Bit ist verbunden mit der Brücke LKA4. Ist diese 


Brücke offen, so wird der Video-Controller für PAL-Betrieb 
mit 50 Hertz programmiert, eine geschlossene Brücke be- 
wirkt eine Programmierung des CRTC für die SECAM- 
Norm mit 60 Hz Bildwiederholfrequenz. Diese unter- 
schiedliche Programmierung ist wichtig, wenn der CPC 
464 über das Modul MP1 an einem Fernseher betrieben 
werden soll. 


Bit5 ı Dieses Bit fragt den Zustand des Signals EXP des Expan- 
sion Connectors ab. 


Bit6 ı Dieses Bit gibt den Zustand eines angeschlossenen Druk- 
kers wieder. Da der Drucker nicht zu allen Zeiten Zeichen 
empfangen kann, besteht die Möglichkeit, durch High-le- 
gen dieses Anschlusses einen Zeichentransfer zu unter- 
binden. 


Bit7 : Über dieses Bit werden die vom Recorder mit TTL-Pegel 
gelieferten Daten eingelesen. Auch hier gilt das zu Bit 0 
gesagte. Da diese Leitung sehr schnell geprüft werden 
muß, kann durch einmaliges Rotieren des Bit 7 in das Car- 
ry-Flag der Zustand dieser Leitung schnell bestimmt wer- 
den. 


Der noch verbleibende Port C (&F600) ist im CPC fest als Ausgangsport 
programmiert. Mit vier seiner acht Leitungen steuert er einen Teil der 
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Tastaturabfrage und zwei weitere Bits werden für den Recorder verwen- 
det. Die restlichen beiden Bits werden für die Ansteuerung des Sound- 
Chip benötigt. Da die Leitungen des Port C direkt gesetzt und gelöscht 
werden können, eignet er sich natürlich besonders für diese Aufgaben. 
Im einzelnen sind die Bits wie folgt verwendet: 


Bit 0-3 


Bit4 


Bit5 


Bit 6-7 


ı Diese Bits steuern die Tastaturmatrix. Die als Ausgang 


programmierten vier Leitungen sind verbunden mit dem 
IC101, einem BCD-Dezimal-Decoder. 

Dieser Decoder legt entsprechend der binären Eingangs- 
information einen seiner zehn Ausgänge auf Masse. Dabei 
sind als Eingangskombinationen die Werte zwischen O0 
und 9 erlaubt. 


ı Dieses Bit steuert den Motor des Cassettenrecorders. Der 


Motor wird allerdings nicht direkt, sondern über einen 
Transistor (und ein nachgeschaltetes Relais) gesteuert. 
Liegt dieses Bit auf Masse, stoppt der Motor, bei einem 
High am Ausgang von PB&4 leitet der Transistor Q101 und 
der Motor dreht sich bei gedrückter PLAY-Taste. 


: Über diesen Pin des 8255 werden die Tonfrequenzen vom 


Computer geliefert, die auf dem Recorder aufgenommen 
werden sollen und beim Abhören diesen merkwürdige 
Ton erzeugen. 


: Diese Portbits sind mit den Anschlüssen BC1 und BDIR 


des Sound-Chip verbunden und arbeiten als Chip-Select- 
und Strobe-Signal für den AY-3-8912. Eine detailliertere 
Beschreibung dieser Anschlüsse finden Sie im nächsten 
Kapitel über den Sound-Generator. 
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1.8 Der programmierbare Sound Generator AY-3-8912 


Der AY-3-8912 von General Instruments ist ein programmierbarer Sound 
Generator (PSG) der Spitzenklasse. Er wurde entwickelt für Telespiele, 
um diese mit besonders realistischem Sound zu versehen, nachdem die 
ersten Telespiele nur recht monotone Geräusche produzieren konnten. 
Um möglichst universell einsetzbar zu sein, wurde der PSG mit einer Viel- 
zahl von Möglichkeiten zur Klangbeeinflussung versehen. Zusätzlich 
sagte man sich bei der Entwicklung dieses ICs wohl, daß in fast allen Ein- 
satzgebieten auch irgendwelche Tasten, Joysticks oder Schalter abge- 
fragt werden müssen. So gab man diesem PSG auch noch einen bidirek- 
tionalen 8-Bit-Parallelport mit. 


Die Leistungsdaten dieses ICs im Überblick lauten: 


Drei unabhängig programmierbare Ton-Oszillatoren 
Ein programmierbarer Rausch-Generator 
Vollständig software-gesteuerte Analogausgänge 
Programmierbarer Mischer für Ton und Rauschen 
15 logarithmisch gestufte Lautstärkestufen 
Programmierbare Hüllkurven 

Bidirektionaler 8-Bit-Datenport 

TTL-Kompatibel 

Einfache 5 Volt Betriebsspannung 


Insgesamt verfügt der AY-3-8912 über 16 Register, von denen 15 Register 
genutzt werden können. Über diese Register können alle Klangmöglich- 
keiten des Chips programmiert werden. 


Die Schaltung des PSG kann in einzelne Funktionsblöcke unterteilt wer- 
den. 


Da ist zunächst der Block der Tongeneratoren. Die Tongeneratoren wer- 
den mit einem Taktsignal versorgt, das aus dem durch 16 geteilten Clock- 
Signal gewonnen wird. Die Tongeneratoren sind zuständig für die grund- 
sätzliche Erzeugung der drei rechteckförmigen Tonfrequenzen. 


Der Rauschgenerator erzeugt ein frequenzmoduliertes Rechtecksignal, 
dessen Pulsbreite von einem Pseudo-Rauschgenerator beeinflußt wird. 


Die Mischer koppeln die Ausgangssignale der drei Generatoren mit dem 
Rauschsignal. Die Kopplung kann für jeden Kanal getrennt programmiert 
werden. i 


Der Funktionsblock der Amplitudenkontrolle bietet dem Anwender zwei 


Möglichkeiten. Zum einen kann die Ausgangsamplitude (die Lautstärke) 
der drei Kanäle über die Programmierung des entsprechenden Lautstär- 
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ke-Registers beeinflußt werden. 

Alternativ besteht die Möglichkeit, sie vom PSG variabel zu beeinflussen. 
Dann wird der Ausgang des Hüllkurven-Registers genutzt, um die Laut- 
stärke zu beeinflussen. Da die Hüllkurve (auch als Envelope, Umschlag 
oder Umhüllung bezeichnet) mit vier getrennten Parametern program- 
mierbar ist, bestehen vielfältige Möglichkeiten der Tonbeeinflussung. 


Der Funktionsblock der D/A-Wandler ist zuständig für die Erzeugung der 
Lautstärke der Ausgangssignale. Da die Lautstärke- und Envelope-Infor- 
mationen als digitale Werte vorliegen, werden sie im D/A-Wandler umge- 
setzt. 


Derletzte Funktionsblock hat mit der Tonerzeugung nichts zu tun. In die- 
sem Block sind die zwei /YO-Ports untergebracht. Wenn Sie jetzt aufmer- 
ken, dann haben Sie aufmerksam gelesen. Tatsächlich enthält der Chip 
des AY-3-8912 zwei vollständige V/O-Ports, von denen aber nur einer an 
Anschlußpins herausgeführt ist. Derselbe Chip wird im AY-3-8910 einge- 
setzt, bei dem beide Ports zur Verfügung stehen. 


1.8.1 Die Anschlüsse des Sound Chip 


Da die Bezeichnungen der Anschlüsse des PSG nicht unbedingt selbster- 
klärend sind, hier die detaillierte Beschreibung der Funktion der Pins: 


DAO - 7 ı Diese Anschlüsse des Sound Chips werden mit dem Da- 
tenbus des Prozessors verbunden. Die Bezeichnung DA 
deutet an, daß sowohl Daten als auch (Register-)Adressen 
über diese Anschlüsse geführt werden. 


A8 ! Dieser Anschluß kann als ein CHIP-SELECT-Signal ver- 
standen werden. Um Register des PSG anzusprechen, 
muß dieser Anschluß High sein. 


BDIR & 

BC1,2 : Der Anschluß BDIR-Signal (Bus DIRection) und die An- 
schlüsse BC1 und BC2 (Bus Control) steuern den Register- 
zugriff auf den PSG. Auf denersten Blick mag die in der Ta- 
belle gezeigte Zuordnung etwas seltsam erscheinen. Da 
dies IC jedoch ursprünglich als Baustein zum Prozessor 
1610, einem speziellen 16-Bit-Prozessor von General In- 
struments, entwickelt wurde, hat man beim Entwurf auf 
die speziellen Eigenschaften und Steueranschlüsse dieses 
Prozessors Rücksicht genommen. 
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CHANNELC @ O DA0 
TEST1 0) O0 paı 
Vcc () () DA2 
CHANNELB ||) O DA3 
CHANNELA (|) () DAA4 
Vss () () DA5 
I0A 7 0) O0) DA6 
IOA 6 () O0 DA7 
I0A5 (0) O Bcı 
I0AAa () O0 BC2 
I0A 3 C 0 BDIR 
I0A 2 |) 0 A8 
I0aı QO O) RESET* 
I0A0 0) OD) CLOCK 





1.8.1.1 Soundchip AY-3—8912 
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ANALOGA 


ANALOGB 


ANALOGC 


IOA7 - 0 


CLOCK 


RESET 


BDIR BC2 BC1_ Funktion des PSG 


0 0 0 _INACTIVE 

0 0 1 LATCH ADRESS 
0 1 0 _INACTIVE 

0 1 1 READ FROM PSG 
1 0 0O _LATCHADRESS 
1 0 1 INACTIVE 

1 1 0 _WRITETO PSG 

1 1 1 LATCH ADRESS 


Innerhalb dieser Tabelle sind nur vier von acht Kombina- 
tionen wirklich sinnvoll. Darum wird häufig der Anschluß 
BC2 auf +5 Volt gelegt. Die verbleibende Tabelle wird nur 
noch von den Signalen BDIR und BC1 bestimmt und sieht 
folgendermaßen aus: 


BDIR BC1 Funktion 

0 0 INAKTIV, der PSG-Datenbus ist hochohmig 

0 1 READ, Daten können aus den PSG-Registern 
gelesen werden. 

1 0 WRITE, Daten können in das gewählte PSG- 
Register geschrieben werden 

1 1 LATCH, die Nummer oder Adresse des ge- 
wünschten PSG-Registers wird in den PSG 
geschrieben 


ı Dies ist der Ausgang des Kanals A. Hier können die von 


Kanal A erzeugten Töne abgenommen werden. Die maxi- 
male Ausgangsspannung ist 1 Vss. 


: Funktion wie Pin 1 für den KanalB. 


: Funktion wie Pin 1 fürden KanalC. 


: Die IOA-Anschlüsse stellen den 8-Bit-Port des PSG dar. Je 


nach Programmierung arbeiten die Anschlüsse als Aus- 
gang oder Eingang. Dabei kann nur die Betriebsart für den 
ganzen Port eingestellt werden. Ein gemischter Betrieb 
(gleichzeitig Bits als Eingang, andere Bits als Ausgang) ist 
nicht möglich. 


: Von der Frequenz dieses Signals werden alle Tonfrequen- 


zen durch Teilung abgeleitet. Die Frequenz dieses Signals 
sollte zwischen 1 und 2 MHz liegen. 


Durch einen Low-Pegel an diesem Anschluß werden alle 
internen Register zurückgesetzt. Ohne Reset stehen nach 
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dem Einschalten zufällige Werte in den verschiedenen Re- 
gistern, die Folge wäre ein (wahrscheinlich) sehr unmusi- 
kalisches 'Geräusch'. 


TEST1 : Testi wird nur von der Herstellerfirma verwendet und 
muß im Betrieb unbeschaltet bleiben. 


Vcc : An diesen Anschluß wird die Betriebsspannung von +5 
Volt angelegt. 


Vss ı Dies ist der Masse-Anschluß des PSG. 
1.8.2 Die Funktion der einzelnen Register des 8912 


Da jetzt geklärt ist, wie über die Anschlüsse BDIR und BC1 die Register 
grundsätzlich angesprochen werden können, wollen wir sehen, was für 
Funktionen die Register ausführen. Dabei ist die Registernummer, diein 
der folgenden Aufstellung verwendet wird, gleich mit der Nummer, die 
im Adress-Register eingetragen werden muß, um das gewünschte Regi- 
ster anzusprechen. 


Interessant ist noch die Tatsache, daß das Adlressregister seinen Inhalt 
bis zur nächsten Programmierung behält. Man kann also ohne Probleme 
mehrmals nacheinander auf ein Datenregister zugreifen, ohne jedes Mal 
das Adressregister neu laden zu müssen. 


Doch jetzt zur Registerbeschreibung. 


Reg 0,1 ı Diese Register bestimmen die Periodendauer und damit 
die Frequenz des Tonsignals an ANALOG A. Allerdings 
sind nicht alle 16 Bit benutzt. Verwendung finden alle 8Bit 
des Register O und die vier unteren Bit des Registers 1. Da- 
bei kann die Frequenz mit dem Register O fein, mit dem 
Reg. 1 in groben Stufen beeinflußt werden. Je kleiner der 
12-Bit-Wert dieser Register wird, desto höher wird der 


Ton. 

Reg 2,3 : Funktion wie Reg 0,1, aber KanalB. 

Reg 4,5 ı Funktion wie Reg 0,1, aber Kanal C. 

Reg6 ı Dieses Register beeinflußt mit seinen unteren 5 Bit den 
Rausch-Generator. Auch hier gilt: je kleiner der Wert im 
Register, desto höher die Rausch-Frequenz. 

Reg7 : In diesem Multi-Funktionsregister kontrollieren die ein- 


zelnen Bits unterschiedliche Aufgaben. In der folgenden 
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REG. 15 
B3,82,B1 BO 


1.8.2.1 Hüllkurven des PSG 
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Tabelle werden die Beeinflussungen genannt: 


BitO : TonvonKanalAein-/ausschalten O=ein / 1=aus 
Bit 1 : TonvonKanalBein-/ausschalten O=ein / 1=aus 
Bit2 : TonvonKanalCein-/ausschalten O=ein / 1=aus 
Bit 3 : RauschenzuKanalAzu-/abschalten 0=zu / 1=ab 
Bit4 : RauschenzuKanalBzu-/abschalten 0=zu / 1=ab 
Bit5 : RauschenzuKanalCzu-/abschalten 0=zu / 1=ab 
Bit6 ı Port AalsEin-/Ausgang O=in / 1=out 
Bit7 ı PortBalsEin-/Ausgang O=in / 1=out 
Reg8 ı Dieses Register bestimmt die Lautstärke des Signals an 
Kanal A. Zur Lautstärkeeinstellung werden die vier unte- 
ren Bits verwendet. 
Das Bit 4 hat eine besondere Bedeutung. Ist es gesetzt, 
dann wird die Lautstärke durch das Hüllkurven-Register 
bestimmt, der Inhalt der Bits O bis 3 wird dann ignoriert. 
Reg9 : Wie Reg 8 für KanalB. 
Reg 10 : Wie Reg 8 für KanalC. 
Reg11,12 : Alle 16 Bit dieser beiden Register beeinflussen die Perio- 
dendauer der Hüllkurve. Der Inhalt des Reg. 11 wird als 
Low-Byte betrachtet, d.h. er beeinflußt die Periodendauer 
in feinen Schritten, das Reg. 12 ist das High-Byte des Hüll- 
kurven-Generators. 
Reg 13 ı Die Bits 0 bis 3 dieses Registers bestimmen die Kurven- 


form des Hüllkurven-Generators. Die Zuordnung in Wor- 
ten verständlich wiedergeben zu wollen, ist fast unmög- 
lich. Die erzeugbaren Hüllkurven sind darum in der Grafik 
1.8.2.1 gezeigt. 


1.8.3 Der Betrieb des AY-3-8912 im CPC 


In diesem Abschnitt wollen wir uns mit dem konkreten Anschluß und 
einigen mehr praktischen Dingen zum Betrieb des Sound Chip im CPC be- 
schäftigen. Da die vorige Registerbeschreibung das Thema notgedrun- 
gen abstrakt und vielleicht nicht sehr anschaulich erläuterte, werden Sie 
nach Abschluß dieses Kapitels einige Spezialitäten des PSG besser ver- 
stehen. 


Schauen wir zuerst einmal auf den Schaltplan. 

Der PSG ist als IC102 zu finden. 

Die Pins 3, 17 und 19 sind auf + 5 Volt gelegt. Über den Pin 3bekommt der 
AY-3-8912 seine Betriebsspannung. Da BC2 (Pin 19) und Aß (Pin 17) auf + 
5 Volt liegen, gehen sie in die Registerauswahl nicht ein. 
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Die verbleibenden Register-Steueranschlüsse BC1 (Pin 20) und BDIR (Pin 
18) sind mit den Portbits PC6 und PC7 des 8255 verbunden. Je nach Zu- 
stand dieser Anschlüsse können dem PSG Registeradressen mitgeteilt 
sowie Daten in den PSG geschrieben oder herausgelesen werden. 


Der eigentliche Adress- und Datentransfer geschieht über die PSG-An- 
schlüsse DO bis D7, die mit dem Port A des 8255 verbunden sind. Jenach 
geforderter Aktion muß der Port A des 8255 als Ein- oder Ausgang pro- 
grammiert werden. 


Das Clock-Signal am Pin 15 ist ein Rechtecksignal mit einer Frequenz von 
1 MHz. Dieses Signal wird durch Teilung der Quarzfrequenz vom Gate Ar- 
ray geliefert. Von diesem Signal werden durch Frequenzteilung alle Ton- 
und Hüllkurvenfrequenzen abgeleitet. 


Der V/O-Port des PSG ist verbunden mit der Tastatur und dem Anschluß 
für den Joystick. Eine detaillierte Beschreibung der Tastatur und des Joy- 
sticks finden Sie in einem späteren Kapitel, hier sollen uns nur die klang- 
lichen Möglichkeiten des Sound Chip interessieren. 


Die wichtigsten Anschlüsse an diesem IC sind sicherlich die drei Analog- 
Ausgänge A,BundC an denPins 1, 4 und 5. Diese Ausgänge sind als so- 
genannte Open-Emitter-Ausgänge ausgeführt. Um eine Tonwechsel- 
spannung ausgeben zu können, werden Widerstände benötigt, die zwi- 
schen Ausgang und Masse geschaltet werden. Diese Funktion haben die 
Widerstände R121, R122 und R123. 

Von diesen Widerständen wird das Soundsignal einmal über die drei Wi- 
derstände R114, R115 und R116 zusammengemischt und steht als Mono- 
Signal am Anschluß 1 des Expansion Connectors zur Verfügung. Dieses 
Mono-Signal wird aber auch zum Steckverbinder CP001 geführt. Von hier 
gelangt das Signal zum internen Verstärker und Lautsprecher. 
Zusätzlich werden die drei Ausgänge aber noch auf die Stereo-Klinken- 
buchse an der Geräterückseite geführt. Dazu wird das Signal des Kanals 
B über die Widerstände R118/R119 gleichermaßen auf die beiden Stereo- 
Kanäle gelegt. Die Ausgänge A und C werden jeweils direkt überje einen 
Entkopplungskondensator (R117 und R120) auf einen der Stereo-Kanäle 
gelegt. 

Durch diese Art der Beschaltung sind bei geschickter Programmierung 
sogar echte Stereoeffekte möglich. Denkbar wäre z.B. einen Ton zu- 
nächst nur über den Kanal A auszugeben. Nach einiger Zeit könnte der- 
selbe Ton zusätzlich über den KanalB ausgegeben werden. Dabei könnte 
die Lautstärke des Signals an Kanal B langsam steigen, die Lautstärke 
des Signals dagegen entsprechend reduziert werden. Durch diese Maß- 
nahmen erscheint es, als würde der Ton von einer Ecke des Raums in die 
Mitte zwischen die beiden Lautsprecher-Boxen wandern. Von hier kann 
es jetzt bei Bedarf weiter in die andere Ecke gehen. 

Diese Möglichkeiten sind sogar in Basic mit dem leistungsstarken 
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SOUND-Kommando möglich. Das Bedienungs-Handbuch ist aber bei der 
Angabe der Verteilung der drei Tonkanäle auf die zwei Stereokanäle wi- 
dersprüchlich. Beachten Sie dies, wenn Sie Ihren CPC mit einer Stereoan- 
lage verbinden. Nur Klänge des Kanals B erscheinen auf beiden Kanälen 
der Stereoanlage. 


Wie aber erzeugt der PSG eigentlich die Töne? Betrachten wir einmal die 
Vorgänge an einem Kanal im Detail. 

Wie schon erwähnt werden alle Töne vom Clock-Signal an Pin 15 abgelei- 
tet. Zunächst wird das Taktsignal durch 16 geteilt. Daraus resultiert beim 
CPC eine Steuerfrequenz von 62,5 KHz. Diese Frequenz wird jetzt aufei- 
nen programmierbaren Frequenzteiler geführt. Jenach Inhalt der Tonge- 
nerator-Register wird die Steuerfrequenz weiter geteilt, um die ge- 
wünschte Tonfrequenz zu erhalten. 

Dabei haben die Entwickler des ICs besonders tief in die Trickkiste ge- 
griffen. Die Teilerkette besteht nicht nur aus Flip-Flops, die die Frequenz 
durch zwei teilen können. Durch eine spezielle Schaltungstechnik sind 
auch ungerade Teilerfaktoren möglich. Die Steuerfrequenz kann durch- 
aus auch durch drei oder 17 geteilt werden. Dadurch erst können gerade 
im hohen Frequenzbereich alle benötigten Werte erzeugt werden. 


Wenn Sie einmal im Handbuch des CPC im Anhang nachsehen, dann er- 
halten Sie für die Note D der vierten Oktave einen Periodenwert von 27. 
Wie kommt dieser Wert zustande? 

Als wir uns diese Frage das erste Mal stellten, wurden Haare gerauft und 
Hände gerungen. Wie wir auch rechneten, es ergab sich kein vernünfti- 
ger Wert. Erst einige Stunden und mehrereLLiter Kaffee später dämmerte 
die Erkenntnis, daß die so schön aufgemachte Tabelle im CPC-Handbuch 
falsch sein muß. Die Eingabe der Periode im SOUND-Kommando erzeugt 
eine Frequenz, die genau eine Oktave unter der angegebenen liegt. Die 
Eingabe von 'SOUND 1,284,100' erzeugt nicht die gewünschte Frequenz 
von 440 Hertz, produziert werden genau 220 Hertz! 

Die für die Errechnung der Periode benötigte Formel mußrichtig heißen: 


PERIODE = ROUND (62500/FREQUENZ) 


Scheinbar ist der Ersteller der Tabelle von einer Ansteuerfrequenz von 2 
MHz ausgegangen. 


Doch betrachten wir weiter die Erzeugung der Töne im PSG. Der Inhalt 
der Tongenerator-Register bestimmt also den Teilerfaktor für das Tonsi- 
gnal. Wird das Register 0 des PSG mit dem Wert 100, das Register 1 mit 
dem Wert O geladen, so wird die Steuerfrequenz durch 100 geteilt. Am 
Ausgang der Teilerkette des Kanals A liegt ein Signal mit der Frequenz 
von 625 Hertz an. 

Dieses Signal ist aber noch nicht am Ausgang A abzunehmen. Dazu muß 
der entsprechende Kanal zunächst eingeschaltet werden. Dies wird 
durch Löschen des entsprechenden Bits im Register 7 erreicht. Da wirin 
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unserem Beispiel den Kanal A gewählt haben, müssen wir das Bit O lös- 
chen. Dabei ist der Zustand der übrigen Bits zu beachten. Beim CPC be- 
deutet dies konkret, das Bit 6 nicht ungewollt zu verändern, da sonst die 
Tastatur gesperrt wird. 

Aber auch jetzt ist wahrscheinlich noch kein Ton zu hören, da noch die 
Lautstärke des jeweiligen Kanals einzustellen ist. Für Kanal A ist das Re- 
gister 8 zuständig. Ein Wert von 1 erzeugt nun einen leisen Ton, bei ei- 
nem Wert von 15 erhalten wir die maximale Lautstärke. 


Setzen wir das Bit 4 im Lautstärke-Register, dann wird die Information in 
den Bits 0 bis 3 ignoriert. Jetzt bestimmen die Register 11, 12 und 13 die 
Lautstärke. Allerdings ist die Lautstärke jetzt nicht mehr auf einen Wert 
fixiert, sondern variabel. 


Betrachten wir zunächst das Register 13. Dieses Register trägt den offi- 
ziellen Namen ’ENVELOPE SHAPE/CYCLE CONTROL REGISTER’. Die 
Funktion wird am besten in einem kleinen Beispiel deutlich. 

Nachdem wir die Register 0, 1, 7 und 8 mit den entsprechenden Werten 
versorgt haben, schreiben wir einmal in das Reg. 13 den Wert 12. Jetzt 
sind die Bits 2 und 3 gesetzt, die unteren 2 Bits gelöscht. 

Die in der Registerbeschreibung gezeigte Tabelle zeigt bei dieser Kombi- 
nation eine Folge langsam ansteigender und schnell abfallender 'Zak- 
ken’. In der Praxis bedeutet dies, daß die Lautstärke des Tons zunächst 
langsam bis zum Maximum ansteigt. Dann wird der Ton abgeschaltet 
und die Lautstärke nimmt wieder zu. Dieser Zustand bleibt erhalten, bis 
ein neues Kommando zum Register 13 geschickt wird. 


Die Zeit des Ansteigens der Lautstärke kann über die Register 11 und 12 
eingestellt werden. Diese Register beeinflussen ähnlich den Tongenera- 
tor-Registern eine weitere programmierbare Teilerkette im PSG. Die Tei- 
lerkette wird mit einem Signal versorgt, das dem durch 256 geteilten 
Clock-Signal entspricht. Das ergibt eine Frequenz von 3906.25 Hertz ent- 
sprechend einer Periodendauer von etwa 250 Microsekunden. 


WirdindasReg. 11 ein Wert 1, in das als High-Byte arbeitende Reg 12 der 
Wert 0 geschrieben, so wird tatsächlich die Lautstärke des Tones in 250 
Microsekunden von 0 bis zur maximalen Lautstärke hochgeregelt. Das 
liegt aber schon im Bereich der hörbaren Töne und erzeugt einen deutli- 
chen Pfeifton, der dem eigentlich gewünschten Ton überlagert wird. 
Aus diesem Grund werden die Registerwerte immer deutlich größer ge- 
wählt werden. Beim Maximalwert (255 ins Reg 11 und Reg 12) dauert das 
Ansteigen bis zur vollen Lautstärke ganze 16,8 Sekunden. 


Diese Beeinflussung der Lautstärke über die Envelope-Register wird von 
der Software des CPC nicht verwendet. Das ENV-Kommando beeinflußt 
die Lautstärke des Tons nur über Manipulationen der unteren vier Bit des 
Lautstärke-Registers. Das ENT-Kommando des CPC hat im PSG über- 
haupt kein Equivalent. Diese Funktion wird durch geschicktes Verän- 
dern der Tongenerator-Register erzeugt. 


1.9 Die Schnittstellen des CPC 464 


Der Begriff Schnittstelle läßt sich definieren als Verbindungsstelle zwi- 
schen Computer und Außenwelt. Dabei kann die Außenwelt sowohl ein 
anderer Computer, ein Drucker oder sonstige Peripherie, ein Meßgerät 
oder auch der Mensch sein. Nach dieser Definition von Außenwelt wollen 
wirin diesem Kapitelnicht nur die an der Geräte-Rückseite angebrachten 
Steckverbindungen beschreiben, sondern auch Tastatur, Monitoran- 
schluß und Recorder mit einbeziehen. 

Die für den Benutzer wichtigsten Schnittstellen sind Tastatur und Moni- 
tor, da diese den unmittelbaren Kontakt zum Computer darstellen. Fan- 
gen wir darum mit diesen beiden an. 


1.9.1 Die Tastatur 


Insgesamt sind auf der CPC-Tastatur 74 Tasten untergebracht. Da die 
beiden SHIFT-Tasten parallel geschaltet sind, sind also 73 einzelne Ta- 
sten abzufragen. 

Die Matrix, in der die Tasten angeordnet sind, besteht aus 8 mal 10 Lei- 
tungen. Da auch die Joysticks über diese Matrix abgefragt werden, wer- 
den insgesamt 79 Tastenpositionen belegt. Der zweite Joystick, über die 
Buchse im ersten angeschlossen wird, aber nicht auf eigene Positionen 
der Matrix geführt, die zugehörigen Schalter sind zu Tasten der Tastatur 
parallel geschaltet. 


Hardwaremäßig wird die Tastatur über den 8255 und den Sound Chip ab- 
gefragt. Das funktioniert im einzelnen etwa folgendermaßen. 

Der 8255 liefert an den Portausgängen PCO bis PC3 ein Halbbyte, das 
durch den Decoder IC101 in eine dezimale Information gewandelt wird. 
Je nach anliegender Eingangsinformation wird einer der zehn Ausgänge 
Low. Dieser Decoder, ein 74LS145 wird darum auch BCD-Dezimal-Deco- 
der genannt. Liegt die Eingangsinformation nicht im Bereich von O bis 9, 
dann liegen alle Decoder-Ausgänge auf High. 


Der Parallel-Port des Sound Chip ist für die Tastatur-Abfrage als Ein- 
gangsport programmiert. Liegt an diesen Eingängen keinSignalan, dann 
erhält man beim Lesen des Ports an allen Eingängen eine 1, insgesamt al- 
so &FF. 


Es sei jetzt einmal die Eingangsinformation des Decoders &04. Entspre- 
chend wird der Ausgang Pin 5 Low. Davon nimmt der Port des Sound 
Chip aber so lange keine Notiz, wie keine entsprechende Taste gedrückt 
wird. Ein Druck auf die ESC-Taste z.B. hat zu diesem Zeitpunkt keine 
Auswirkung, da der Ausgang Pin 8 des Decoders High ist. Wird aber die 
SPACE-Taste gedrückt, dann ändert sich der vom Sound Chip gelieferte 
Wert. Jetzt liegt durch die gedrückte Taste das Bit 7 des Port an Masse 
und wir erhalten den Wert &7F vom Sound Chip. 
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Fünfzigmal in der Sekunde werden alle Tasten einmal überprüft. Dazu 
werden nacheinander an die vier verwendeten Ausgänge des Port C die 
Werte O0 bis 9 ausgegeben und nach jeder Ausgabe der Wert des Sound 
Chip geprüft. Werden dabei irgendwelche gedrückten Tasten registriert, 
so werden die gedrückten Tasten in einer Tabelle gespeichert und bei 
Bedarf in Tastennummern und die entsprechenden Zeichen umgerech- 
net. 


Sehr angenehm an der Tastatur ist die Tatsache, daß bis zu 20 Zeichen 
zwischengespeichert werden. In Basic-Programmen kann man schon 
Eingaben machen, während der Computer noch Berechnungen vor- 
nimmt oder mit der Bildschirmausgabe beschäftigt ist. Nur bei Benut- 
zung des Recorders ist die Tastaturabfrage gesperrt, da die dafür benö- 
tigte Zeit auf Grund des kritischen Timings nicht zur Verfügung steht. 
Einzige Ausnahme ist die ESC-Taste, die ja möglicherweise zum Ab- 
bruch der Cassettenoperation benötigt wird. 


Übrigens gibt es bei der Tastatur eine kleine Besonderheit. Drücken Sie 
doch einmal gleichzeitig die Tasten J, KundL. Zur großen Überraschung 
erscheint auch noch ein H auf dem Bildschirm. Dies passiert immer, wenn 
drei Tasten gedrückt werden, die die Ecken eines Vierecks in der Tastat- 
ur-Matrix bilden, also auch bei 123 oder DFG. In diesem Fall erscheint 
gleichzeitig das vierte Zeichen der Matrix. 

Dieser 'Fehler’ ist nicht weiter schwerwiegend, allerdings können Pro- 
gramme auch durch gleichzeitiges Drücken der Tasten 2,3 und E beendet 
werden. 


1.9.2 Der Video-Anschluß 


Der Video-Anschluß des CPC stellt alle Signale für den Betrieb eines Mo- 
nitors zur Verfügung. Dabei ist es unerheblich, ob es sich um den mitge- 
lieferten Monitor oder einen (fast) beliebigen anderen handelt. 


Das Gate Array liefert für den Monitor vier Signale. Drei Signale enthalten 
die Information über die Farbe, das vierte Signal ist eine Mischung aus 
den CRTC-Signalen V-Sync und H-Sync. 

Diese Signale werden mit den Widerständen R131, R132 und R133 sowie 
R195 gemischt und mit dem Transistor Q102 verstärkt. Das entstehende 
Ausgangssignal hat die Bezeichnung LUM und dient den grünen Monito- 
ren als Video-Signal. Aber auch handelsübliche Farbmonitore mit einfa- 
chem Video-Eingang können über dieses Signal bei Darstellung aller Far- 
ben betrieben werden. 
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1.9.3 Der Recorder 


...ist die Cassette ein ausgezeichneter Standard-Datenspeicher zu einem sehr 
günstigen Preis. 


Dieses Zitat aus dem CPC-Bedienungshandbuch (Kapitel 2 Seite 9) ist un- 
eingeschränkt richtig. 


Auch wenn Sie ein Floppy-Laufwerk besitzen oder später anschaffen 
wollen, so wird der eingebaute Recorder sicher auch weiterhin gute 
Dienste leisten. Da die vom CPC verwendeten 3-Zoll-Disketten noch rela- 
tiv teuer sind, kann die Cassette als sehr preiswertes 'Back-Up-Medium’ 
genutzt werden. 


Der Recorder selbst ist ein handelsübliches Laufwerk, wie es auch in ein- 
fachen Cassetten- und Radio-Recordern zu finden ist. Das erklärt auch 
das Vorhandensein der eigentlich sinnlosen Pause-Taste. 


Die Elektronik des Recorders ist allerdings den Bedürfnissen im CPC an- 
gepaßt worden. Das Ausgangssignal ist ein Rechteck-Signal mit annä- 
hernd 5 Volt Amplitude. Dadurch kann es direkt vom Bit 7 des Port B des 
8255 verarbeitet werden. 

Auch der Audio-Verstärker, über den der Sound des CPC zu hören ist, 
wurde auf der Recorder-Platine untergebracht. 


Doch wenden wir uns dem verwendeten Aufzeichnungsformat zu. 
Grundsätzlich kann der Recorder die Daten nur bitweise speichern. Je- 
des zu speichernde Byte muß also in die einzelnen Bits zerlegt und über- 
tragen werden. Diese Zerlegung wird vom Prozessor per Software vorge- 
nommen, wobei zuerst das höchstwertige Bit zum Recorder geschickt 
wird. 


Das vom 8255 gelieferte Signal für den Recorder ist ein Rechtecksignal. 
Jedes Bit wird als eine Rechteck-Schwingung aufgezeichnet, bei der die 
Low-Phase genau so lang ist wie die High-Phase. Man sagt auch, das 
Rechteck-Signal habe ein Tastverhältnis von 1:1. Ein O-Bit benötigt die 
halbe Zeit eines 1-Bits. 

Aus diesem Grund sind die Angaben über die Aufzeichnungsgeschwin- 
digkeit auch nur ungefähre Angaben. Es ist offensichtlich, daß ein Daten- 
block aus lauter 0-Bytes in der Hälfte der Zeit gespeichert und geladen 
werden kann, wie ein ebensolanger Block, der ausschließlich aus &FF be- 
steht. Da aber statistisch die Verteilung von O- und 1-Bits in einem Daten- 
block etwa gleich ist, kann man von den Angaben 1000 Baud (1Baud =1 
Bit pro Sekunde) bei SUPER-SAVE und 2000 Baud bei SPEED-LOAD aus- 
gehen. 


Jede Datei, unabhängig, ob es sich um Programme oder Daten handelt, 
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kann maximal 65536 Bytes lang sein. Die Dateien werden in Blocks über- 
tragen, die jeweils 2048 Bytes enthalten. Jeder Block enthält maximal 
acht 256 Bytes große Datensegmente. Vor jedem Block wird ein Header, 
also ein Kopf oder Vorspann, übertragen. 


Obwohl es keine elektrische Verbindung zum Verstärker und Lautspre- 
cher gibt, kann trotzdem auch bei niedrig eingestellter Lautstärke das 
Laden und Abspeichern von Daten und Programmen verfolgt werden. 


Der Header der Blocks ist akustisch einfach zu identifizieren. Es ist der zu 
Beginn eines jeden Blocks hörbare lange gleichmäßige Ton sowie einige 
folgende Bytes, die aber mit dem Ohr nicht zu unterscheiden sind. 

Der lange, gleichmäßige Ton ist eine Serie von 2048 1-Bits. Nach diesen 
Bits folgt ein einziges 0-Bit und darauf ein Synchronisationsbyte. Die lan- 
ge Folge der 1-Bits zu Beginn wird vom Rechner benötigt, um die Aufnah- 
me-Baud-Rate zu bestimmen. Das 0-Bit zeigt dem Rechner, daß dieser 
Vorspann beendet ist und das Sync-Byte wird benötigt, um zwischen der 
Header-Information und den Daten zu unterscheiden. 

Die Header-Information steht in einem 64 Byte langen Datenbereich, der 
vor jedem 2K-Daten-Block übertragen wird. In diesem Header-File finden 
sich Informationen über die eigentliche Datei, z.B. der Name, ob das File 
geschützt ist oder nicht, ob es sich um ein Basic-Programm oder eine As- 
cii-Datei handelt und wie lang das Programm ist. 


Der genaue Aufbau dieses Header ist folgendermaßen: 


Bytes0-15 : Name der Datei, wenn kürzer als 16 Bytes, dann mit 00 auf- 
gefüllt. 


Byte 16 : Block-Nummer, in diesem Byte steht die Nummer, die 
beim Laden oder auch beim Catalog angezeigt wird. 


Byte 17 : Steht in diesem Byte ein anderer Wert als 00, dann handelt 
es sich um den letzten Block der Datei. 


Byte 18 ! Dieses Byte enthält den File-Typen. Die Information ist in 
den einzelnen Bits verschlüsselt. Die Bedeutung der Bits 
folgt im Anschluß an diese Tabelle. 


Bytes 19,20 : In diesen Bytes ist die Länge der File-Information dieses 
Blocks enthalten. Ist der Block, also die 2K, voll beschrie- 
ben, so enthalten diese Bytes den Wert &0800, beim letz- 
ten Block oder bei Programmen, die kürzer als 2 K sind, ist 
hier die Anzahl der Bytes des Blocks enthalten. 


Bytes 21,22 : Diese Bytes geben die Ladeadresse an, von wo die Daten 
ursprünglich geschrieben wurden. Bei Basic-Programmen 
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ist das die Adresse 368 Dezimal, bei Binär-Files, also Ma- 
schinensprache, normalerweise die Adresse, an der das 
Programm im Speicher läuft. 


Byte 23 : Ist der Inhalt dieses Bytes ungleich Null, dann handelt es 
sich bei dem Block um den ersten Block des Files. 


Bytes 24,25 : In diesen Bytes ist die Länge des Files enthalten. 


Bytes 26,27 : Die Möglichkeiten dieser Bytes werden leider nicht direkt 
vom Basic des CPC unterstützt. Sie enthalten die Starta- 
dresse eines Maschinensprache-Files, die ja nicht unbe- 
dingt mit der Ladeadresse übereinstimmen muß. Diese 
Bytes ermöglichen bei entsprechender Programmierung 
des Ladeprogramms einen 'Auto-Start'. 


Die restlichen Bytes 28 bis 63 des Header werden nicht vom Betriebssy- 
stem genutzt und stehen dem versierten Programmierer zur Verfügung. 


Doch jetzt die Aufschlüsselung der Bits im Byte 18 des Header. 


BitO ı Ist dieses Bit gesetzt, so ist das entsprechende File als ge- 
schützt erklärt. Geschützte Programme können von Basic 
aus mit 'SAVE “NAME“,p’ erzeugt werden. 


Bit 1-3 ı Diese Bits bestimmen den Typ des Files. Obwohl mit drei 
Bit acht verschiedene File-Typen möglich sind, werden 
nur die File-Typen Basic-Prg (0), Binärfile (1) und Asciida- 
tei (3) verwendet. 


Bit4-7 : In diesen Bits ist normalerweise eine 0 zu finden, nur As- 
ciidateien haben im Bit 4 eine 1. 


Wie bereits erwähnt wird die gespeicherte Information in den einzelnen 
Blocks weiter unterteilt zu einzelnen Segmenten. Jedes Segment besteht 
aus 256 Daten-Bytes und Checksummen-Bytes. Die Checksumme jedes 
Segments wird nach einer speziellen Formel berechnet und erlaubt es, 
beim Lesen des Files zu prüfen, ob die Bits ordnungsgemäß übertragen 
wurden. Sobald die errechnete Checksumme nicht mit den gelesenen 
Werten übereinstimmt, wird der READ ERRORBB angezeigt. 

Der READ ERROR A zeigt an, daß ein Bit gelesen wurde, dessen Zeit zu 
lang für die errechneten Werte für Null- oder Eins-Bits ist. Dieser Fehler 
entsteht häufig beim Lesen von Programmen, wenn bei der Aufnahme 
die Cassette klemmte und jetzt bei der Wiedergabe 'leiert'. 

Der dritte mögliche Fehler ist der READ ERRORD.. Dieser Fehler dürfte 
nurin den seltensten Fällen auftreten, daersignalisiert, daß der gelesene 
Block länger als die zulässigen 2048 Bytes ist. Das kann aber nur auftre- 
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ten, wenn der Anwender beim Speichern in die Header-Information grö- 
Bere Werte als erlaubt einträgt. 


Sicher kennen Sie den Basic-Befehl ’SPEED WRITE par’. Je nach verwen- 
detem Parameter werden Daten mit durchschnittlich 1000 oder 2000 
Baud auf Cassette gespeichert. Damit ist aber noch nicht die obere Gren- 
ze der Geschwindigkeit erreicht. Durch Verwendung einer Betriebssy- 
stem-Routine läßt sich jede Baudrate zwischen 700 Baud und etwa 3600 
Baud einstellen. Die benötigte Routine hat ihren Einsprung auf der 
Adresse &BC68. Sie erwartet in zwei Registern Parameter und stellt ent- 
sprechend die Schreibgeschwindigkeit ein. Ein Wert wird im HL-Regi- 
sterpaar übergeben und bestimmt die Baudrate. Die Formel zur Bestim- 
mung dieses Wertes lautet: 


Baudrate = 333333/halbe Länge eines Null-Bits 


Bei 1000 Baud ergibt sich daraus eine Zeit von 666 Microsekunden für ein 
Null-Bit, ein Eins-Bit ist genau doppelt so lang. 


Die im Recorder verwendete Elektronik hat aber eine Besonderheit. Wer- 
den abwechselnd Null- und Eins-Bits gelesen, so versucht die Elektronik 
die Zeitunterschiede auszugleichen. Dadurch werden Eins-Bits kürzer, 
Null-Bits aber erscheinen als längere Impulse als nach der Aufzeichnung 
zu erwarten wären. Aus diesem Grund muß eine Vorkompensation 
durchgeführt werden, die Null-Bits werden kürzer aufgezeichnet, Eins- 
Bits werden mit geringfügig längeren Zeiten aufgezeichnet. Diese für die 
Vorkompensation benötigten Zeiten werden im Akku der Routine über- 
geben. 


Für Versuche zur Bestimmung der höchsten, halbwegs zuverlässigen 
Schreibgeschwindigkeit genügt es, im Akku einen Wert von 10 zu über- 
geben. Um mit 3600 Baud aufzuzeichen, muß die folgende Routine einmal 
aktiviert werden: 


LD HL,93 

LD A,10 
CALL &BC68 
RET 


Diese wenigen Bytes können leicht mit den folgenden Zeilen in den Spei- 
cher gelegt werden: 


10 MEMORY HIMEM - 10 

20 FOR I=1TO9 

30 READ X : POKE HIMEM + 1,X 

40 NEXT I 

50 CALL HIMEM + 1 

60 DATA &21,&5D,&00,&3E,&0A,&CD,&68,&BC,&C9 
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Varieren Sie ruhig etwas mit den Werten inHL und Akku (der zweite und 
der fünfte Wert in der Data-Zeile), um die maximale Aufzeichnungsfre- 
quenz zu bestimmen. Diese ist vom verwendeten Cassettenmaterial ab- 
hängig. Aber auch die Gleichlaufeigenschaften Ihres Recorders spielen 
eine nicht unerhebliche Rolle bei der Zuverlässigkeit hoher Aufnahmege- 
schwindigkeiten. 


Werden die Werte zu klein gewählt, dann kann der CPC die geforderten 
Zeiten nicht mehr einhalten, als Ergebnis erhalten Sie die Fehlermeldung 
WRITE ERROR A. 


Zum Schluß noch ein Tip: 

Sie werden sicher beim Abspeichern sehr langer Programme mit vielen 
Variablen bemerkt haben, daß es bis zu 15 Minuten dauern kann, bis die 
Daten oder das Programm gespeichert sind. Das liegt an der Tatsache, 
daß der CPC zum Speichern einen Bereich von 2K für die zu übertragen- 
den Blocks benötigt. Dieser Buffer wird an der oberen Speichergrenze an- 
gelegt. Ist dieser Bereich jedoch mit Variablen belegt, dann werden diese 
Variablen in einen anderen Speicherbereich copiert. Dieser Vorgang ist 
vergleichbar mit der viel gefürchteten Garbage Collection, die immer 
dann auftritt, wenn im Speicher für Zeichenketten und Arrays kein aus- 
reichender Platz vorhanden ist. 

Die durch die Variablenverschiebung auftretende Wartezeit kann man 
aber deutlich reduzieren, indem zu Beginn des jeweiligen Programms 
dieser 2k-Puffer bereits angelegt und geschützt wird. Ein möglicher Pro- 
grammanfang könnte folgendermaßen aussehen: 


10 OPENOUT “DUMMY“ 

20 MEMORY HIMEM - 1 
30 CLOSEOUT 

40 

50 ’REST DES PROGRAMMS 


Dieser Vorgang ist natürlich nur sinnvoll, wenn Sie in dem entsprechen- 
den Programm auch mit Dateien arbeiten. Ist das nicht derFall, dann kön- 
nen Sie auf die gezeigten Programmzeilen verzichten und vor dem ge- 
wünschten Abspeichern den Befehl CLEAR eingeben. Dadurch werden 
alle zuvor definierten Variablen gelöscht und das Anlegen des Casset- 
tenpuffers geht ohne nennenswerte Zeit vonstatten. 
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1.9.4 Die Centronics-Druckerschnittstelle 


Man findet an jedem Computer etwas, das man für verbesserungswürdig 
hält. Beim CPC ist das ohne Frage die Druckerschnittstelle. Hier ist leider 
zu stark gespart worden. 

Wir meinen nicht die mechanische Ausführung der Steckverbindung. Die 
getroffene Wahl ist sicherlich die für den Hersteller preiswerteste, aber 
auch für den Computerbesitzer nicht von Nachteil, da die benötigten 
Steckverbinder mittlerweile recht preiswert zu haben und auch recht zu- 
verlässig sind. 

Ursache für unseren 'Unmut’ ist die Tatsache, daß die Schnittstelle über 
nur sieben Datenbits verfügt. Die meisten Drucker, sogar der von Schnei- 
der zum CPC angebotene, haben einen 8-Bit-Eingang, und entsprechend 
sind viele Kommandos und Möglichkeiten dieser Drucker nur über Um- 
wege oder überhaupt nicht zu erreichen. 


Aber betrachten wir zunächst den hardwaremäßigen Aufbau der 
Schnittstelle. 

In der Hauptsache besteht die Schnittstelle aus dem IC106, einem 8-fa- 
chen Latch 74LS273. Die acht einzelnen Latches arbeiten wie Flip-Flops, 
die an den Eingängen liegende Information wird mit einer High-Low- 
Flanke am Takt-Eingang Pin 11 gespeichert und steht bis zu einem RE- 
SET oder einer Neuprogrammierung an den Ausgängen zur Verfügung, 
unabhängig von sich ändernden Eingangssignalen. 

Das Taktsignal, dessen High-Low-Flanke das Speichern der Eingangs- 
werte bewirkt, wird mit dem OR-Gatter 74LS32, IC112, Pins 11, 12 und 13 
erzeugt. Der Ausgang Pin 11 wird dann Low, wenn beide Eingänge Low 
sind. 

Auch der Druckeranschluß wird über die Portadressierung angespro- 
chen. Aus diesem Grund liegt das Signal IOWR* an einem Eingang des 
OR-Gatters, am anderen Eingang liegt die Adressleitung A12. 

Wie auch bei den anderen Peripherie-Bausteinen ist die Dekodierung al- 
so sehr unvollständig. Entsprechend müssen alle Adressleitungen, die 
nicht für die Decodierung benötigt werden, High sein, um Kollisionen mit 
anderen verwendeten Portadressen zu vermeiden. Damit ergibt sich eine 
effektive Portadresse von &EFxx. 


Die Eingänge des Drucker-Latch sind mit dem Prozessor-Datenbus ver- 
bunden. Die Ausgänge liegen am Druckeranschluß. Nur das Bit 7 wird 
über ein als Inverter benutztes NAND-Gatter des IC110 an den Centro- 
nics-Port gelegt. Dies Bit stellt das für den Drucker benötigte Strobe-Si- 
gnal dar. Normalerweise ist dies Signal High. Will der Rechner aber ein 
Zeichen an den Drucker schicken, so legt er das zu übertragende Byte auf 
die Datenleitungen und kurz darauf das Strobe-Signal auf Low. Damit 
wird das zu übertragende Byte von Drucker akzeptiert. 

Voraussetzung dafür ist allerdings, daß das Signal Busy des Druckers 
Low ist. Der Zustand des Busy-Signals wird vom Bit 6 des 8255-Ports B 
abgefragt. 
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Wie aber kann das Strobe-Signal erzeugt werden? Nichts einfacher als 
das. 

Jedes zu übertragende Byte wird zuerst mit &7F verUNDet. Damit ist das 
oberste Bit des Bytes mit Sicherheit gelöscht. Dieses Byte wird per OUT- 
Befehl auf den Printer-Port ausgegeben. 

Jetzt liegen die zu übertragenden Bits bereits am Drucker an, das Strobe- 
Signal ist über den Inverter aber immer noch High. Darum wird anschlie- 
ßend mit OR &80 das Bit 7 des auszugebenden Wertes gesetzt und eben- 
falls auf den Printer-Port ausgegeben. An dem zu übertragenden Wert 
hat sich nichts geändert, nur das Strobe-Signal ist durch den Inverter 
Low geworden. 

Dieses Signal muß aber auch wieder High werden, darum wird mit UND 
das oberste Bit wieder gelöscht und das Byte noch einmal ausgegeben. 
Damit ist ein Byte vom Rechner zum Drucker geschickt worden. 


Von Basic aus ist die Ausgabe auf den Drucker kein Problem. Aber auchin 
Maschinensprache muß nicht der ganze 'Kram'’ selbst geschrieben wer- 
den. Es gibt mehrere Routinen, die einem einigen Programmieraufwand 
abnehmen. 

Da ist zunächst die Routine mit Einsprung bei &BD2B. Über diese Routine 
kann man ein Zeichen auf den Drucker ausgeben. Das jeweilige Zeichen 
muß sich dabei im Akku befinden. Zusätzlich prüft diese Routine, ob der 
Drucker 'Busy’ ist. Meldet sich der Drucker innerhalb von 0.4 Sekunden 
nicht, dann kehrt die Routine mit gelöschtem Carry-Flag zurück. Dann 
muß ein neuer Versuch mit demselben Zeichen gestartet werden. Diese 
Routine wird auch vom Basic-Interpreter verwendet. Bei geglückter 
Übertragung ist das Carry gesetzt. Daraufhin kann das nächste Zeichen 
gesendet werden. 


Eine weitere Routine hat ihren Einsprung drei Bytes weiter (&BD2E). Die- 
se Routine kann genutzt werden, um den Zustand des Druckers zu prü- 
fen. Ist kein Drucker angeschlossen oder meldet der Drucker 'Busy’, kann 
also momentan keine Zeichen entgegen nehmen, dann kehrt diese Routi- 
ne mit gesetztem Carry zurück, andernfalls ist das Carry gelöscht. 


Die dritte verwertbare Routine (&BD31) erledigt alle Vorgänge, um ein 
Zeichen auf dem Drucker auszugeben. Dabei muß aber der Programmie- 
rer vorher prüfen, ob der Drucker empfangsbereit ist und das gewünsch- 
te Zeichen im Akku übergeben. Wird die Überprüfung des Zustands ver- 
säumt, dann geht das Zeichen eventuell ins 'Leere'. 


Wie diese Routinen einsetzbar sind, finden Sie etwas später in diesem 
Buch. Dort zeigen wir am Beispiel einer Text- und einer Grafik-Hardcopy 
den Einsatz dieser und anderer Routinen, die den Gebrauch verdeutlicht. 


Aber noch eine Besonderheit gilt es bei der vorhandenen Beschaltung 
des Centronics-Anschlusses zu berücksichtigen. 
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Die Kontaktbelegung des Druckerports verleitet geradezu, sich die benö- 
tigten Steckverbindungen und ein Stück Flachbandkabel zu besorgen 
und sich ein solches Kabel selbst zu fertigen. Handelt es sich bei den Ver- 
bindern dazu noch um sogenannte Quetschverbinder, dann haben auch 
handwerklich ungeschickte CPC-Besitzer ein solches Kabel in 5 bis 10 Mi- 
nuten selbst zusammengestellt. Damit lassen sich dann alle Drucker mit 
Centronics-Eingang am CPC verwenden. 

Aber beim ersten Probelauf gibt es eine große Überraschung. Der Druk- 
ker geht erstaunlich großzügig mit dem Papier um. Nach jeder gedruck- 
ten Zeile wird erst einmal eine Leerzeile eingeschoben. 


Ursache ist folgendes: 

Der CPC fügt an das Ende jeder Druckzeile die Zeichenfolge CR/LF, also 
die Befehlsfolge für Wagenrücklauf und Zeilenvorschub. Dadurch wird 
das Papier eine Zeile weiter transportiert. Zusätzlich und ohne ersichtli- 
chen Grund ist aber noch der Pin 14 des Centronics-Anschlusses des CPC 
mit Masse verbunden. Das bewirkt bei den meisten Druckern einen wei- 
teren Zeilenvorschub, so daß immer eine Leerzeile produziert wird. 


Abhilfe schafft in diesem Fall die Unterbrechung der Leitung zum Pin 14 
des Druckers. Nach dem Auftrennen dieser Leitung und evtl. nötigem 
Einstellen von Schaltern im Drucker wie z.B bei Epson sollte aber alles in 
Ordnung sein. 


1.9.5 Der Joystickanschluß 


Hauptsächlich wird der Joystickanschluß sicher so genutzt, daß er sei- 
nem Namen auch gerecht wird: als Eingang zur Abfrage eines Joysticks. 
Über sieben der verfügbaren 9 Anschlüsse lassen sich aber auch andere 
Tasten oder Schalter abfragen. Bei entsprechender Programmierung und 
bei Verzicht auf Interrupt und Tastatur-Abfrage könnten diese sieben 
Anschlüsse sogar als Ausgang betrieben werden. Die Joystickanschlüs- 
se sind ja mit dem bidirektionalen Port des Sound Chip verbunden und 
könnten bei den erwähnten Einschränkungen aus als Ausgang arbeiten. 
Allerdings ist für Ausgabezwecke der Centronics-Port sicher einfacher 
zu handhaben. 


Wie schon im Kapitel 1.9.1 beschrieben, werden die Joysticks als Tasten 
der Tastatur angesehen. Aus diesem Grund sind die benötigten sieben 
Eingänge des Sound Chip-Ports auf die Joystickbuchse gelegt. Zusätzlich 
sind noch zwei Ausgänge des BCD-Dezimal-Dekoders IC101 auf die 
Buchse gelegt. 


Jede fünfzigstel Sekunde wird einmal komplett die Tastatur abgefragt. 
Dabei wird auch der Zustand der Joysticks abgefragt. Für Basic-Program- 
me steht der Zustand der Joysticks mit der JOY(nummer)-Funktion zur 
Verfügung. Auch mit INKEY könnte der Zustand der Joysticks einfach be- 
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stimmt werden. Aber auch für Assembler-Fans gibt es die Möglichkeit, 
den Zustand der Joysticks einfach zu bestimmen. Die System-Routine 
&BB24 liefert im HL-Doppelregister den aktuellen Zustand in Bits ver- 
schlüsselt zurück. Im H-Register und im Akku erhält man beim Aufruf 
dieser Routine den Zustand des Joystick 0, das L-Register gilt für Joystick 
1. Die Verschlüsselung der Joysticktasten erfolgt nach dem gleichen 
Schema wie bei der JOY (x)-Funktion, Bit 0 ist gesetzt für vorwärts, Bit 1 
für rückwärts, Bit 2 für links und so weiter. 


1.9.6 Der Expansion Connector 


Diese Schnittstelle ist die universellste des CPC. An diesem 50-poligen 
Leiterplattenverbinder befinden sich neben allen Signalen des Prozes- 
sors auch noch verschiedene Steuersignale. Hier werden alle Erweite- 
rungen des Systems angeschlossen. 


Die Bedeutung der Signale 3 bis 39 ist ja bereits aus der Beschreibung des 
Prozessors bekannt. Darum wollen wir uns hier auf die verbleibenden 
Anschlüsse beschränken. 


Am Pin 1 steht das Soundsignal noch einmal zur Verfügung. Allerdings 
ist dies Signal nur Mono, alle drei Kanäle werden direkt hier zugeführt. 


Pin 2 und Pin 49 sind mit der Masse der Stromversorgung verbunden. 


Eine Besonderheit ist das Signal BUS-RESET* am Pin 40. Durch Low-le- 
gen dieses Signals wird ein Reset des Systems durchgeführt. 

Leider löscht der CPC beim Reset den ganzen Speicher. Darum ist dieses 
Signal als 'Notbremse’ für abgestürzte Maschinenprogramme genau so 
wirkungsvoll wie das aus- und wieder einschalten. 


Am Pin 41 steht das eigentliche RESET-Signal für externe Erweiterungen 
zur Verfügung. Beachten Sie aber, das nicht alle Bausteine mit diesem 
RESET-Signal versorgt werden können. Der 8255 z.B. benötigt dieses Si- 
gnal invertiert. 


Sehr interessant sind die beiden Signale ROMEN* und ROMDIS. Das an 
Pin 42 des Expansion Connectors liegende ROMEN * signalisiert bei Low- 
Pegel einen Zugriff auf das eingebaute 32K-Rom. Dieser Zugriffkann aber 
durch High-Pegel am Pin 43, ROMDIS unterbunden werden. Dadurch 
kann das gesamte eingebaute Rom durch externe Roms oder Eproms er- 
setzt werden. 

Bei entsprechender Dekodierung der Adressleitungen können aber auch 
nur bestimmte Bereiche im eingebauten Rom ausgeblendet und ersetzt 
werden. 
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Eine ähnliche Funktion haben die beiden Signale RAMRD* und RAMDIS 
für Lesezugriffe auf das interne Ram. Diese an den Pins 43 und 44 liegen- 
den Signale können genutzt werden, um z.B. bestimmte Ram-Bereiche 
gegen Roms oder auch Rams auszutauschen. 

Die Ansteuerung externer Rams ist allerdings beim CPC nicht so ganz 
einfach. Hauptsächliche Schwierigkeit ist die Tatsache, daß das WR*-Si- 
gnal für die internen Rams nicht vom Prozessor, sondern vom Gate Array 
produziert wird. Dieser Schreibimpuls kann leider durch keinen (bekann- 
ten?) Programmtrick verhindert werden, so daß ein Schreibzugriff aufein 
externes Ram auch immer das interne Ram adressiert und beschreibt. 


Das am Pin 46 verfügbare Signal CURSOR wird bei entsprechender Pro- 
grammierung vom Video-Controller geliefert. Der CRTC verfügt ja über 
die Möglichkeit des Hardware-Cursors. Je nach Programmierung er- 
scheint an diesem Ausgang ein Rechteck-Signal mit einer Frequenz von 
etwa 1.5 oder 3 Hertz. Aber auch ständige Low- und High-Pegel an die- 
sem Anschluß sind programmierbar. 

Nach dem Einschalten des CPC liegt hier ein ständiger Low-Pegel. 


Der LPEN-Eingang (Light Pen) an Pin 47 ist direkt mit dem Light Pen-Ein- 
gang des CRTC verbunden. Dieses IC verfügt über alle nötigen Register 
zum Betrieb des Lightpen. 

Allerdings wird die Nutzung des Light Pen besonders bei hochauflösen- 
der Grafik im CPC sehr schwierig realisierbar, da der Video-Controller 
zwar die MA-Adresse der momentanen Light Pen-Position liefert, aber 
keine Angaben über die aktuelle RA-Adresse macht. Durch den speziel- 
len Aufbau des Video-Ram ist diese Angabe aber nötig, wenn auf dem 
Bildschirm mit dem Light Pen gezeichnet werden soll. 


Der Eingang Pin 48 trägt die Bezeichnung EXP* und ist mit dem 8255- 
Port B Bit 4 verbunden. Eine externe Erweiterung kann diesen Anschluß 
an Masse legen und sich auf diese Weise dem Betriebssystem bemerkbar 
machen. 


Das letzte zu erwähnende Signal am Pin 50 ist das Taktsignal des Prozes- 


sors. Dieses Signal mit einer Frequenz von 4 MHz wird z.B. als Taktsignal 
für den Floppy-Controller benötigt. 
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2 DASBETRIEBSSYSTEM 


Hinter diesem, für den Uneingeweihten nichtssagenden Namen verbirgt 
sich der Dreh- und Angelpunkt des ganzen Rechners. Hier ist praktisch 
das Stellwerk, in dem die Weichen zur Verbindung von Anwenderpro- 
gramm und Hardware gestellt werden. 

Auch der Basic-Interpreter ist in diesem Zusammenhang als Programm 
zu sehen, welches via Betriebssystem auf die Hardware des Rechners zu- 
greift. Dieser verbindenden Funktion wegen haben wir das Kapitel auch 
in die Mitte des Buches gerückt. 

Der Aufbau des Betriebssystems ist logisch klar untergliedert in sog. 
Packs, von denen jedes einen speziellen Aufgabenbereich hat. Das be- 
ginnt auf der untersten Ebene beim MACHINE PACK, welches am hard- 
warenächsten ist und z.B. den Printer-Port, die Sound-Register usw. 
bedient, dann weiter über das SCREEN PACK, das den Bildschirm hand- 
habt und seinerseits vom TEXT PACK und GRAPHICS PACK aufgeru- 
fen wird. 

Beim genauen Hinsehen fällt auf, daß jedes Pack streng in sich geschlos- 
sen ist, und die Kommunikation mit anderen Packs über genau definierte 
Schnittstellen erfolgt. Darüber hinaus verfügt jedes Pack über einen eige- 
nen Ram--Bereich als Arbeitsspeicher. Der Ansprung von Routinen er- 
folgt in der Regel über Vektoren im Ram, selten über die direkte Rom-A- 
dresse. 

Das legt die Vermutung nahe, daß das Betriebssystem, vermutlich der 
Kürze der zur Verfügung stehenden Zeit wegen, von mehreren Program- 
mierern geschrieben wurde, jeder für ein oder mehrere Packs zuständig, 
nachdem man sich nur über die Schnittstellen geeinigt hat. 

Wie dem auch gewesen sein mag, jedenfalls eröffnet dieser klare Aufbau 
und der Zugriff bis in den kleinsten Winkel über Vektoren dem Anwen- 
dungsprogrammierer ungeahnte und bisher nicht gekannte Aspekte. 
Als Beispiel sei nur die Möglichkeit genannt, einen Treiber für einen ech- 
ten acht Bit Drucker (wie auch immer dieser hardwaremäßig angeschlos- 
sen sein mag) zu schreiben und diesen durch Verbiegen nur des Vektors 
MC WAIT PRINTER dem gesamten System zugänglich zu machen. 
Dieser Tip soll Ihnen auch als Warnung dienen: Bedienen Sie sich ruhig der 
Routinen des Betriebssystems, aber nur über die Vektoren! Es könnte ja bereits 
jemand anders (Rom Cartridge) einige Vektoren verstellt haben, um be- 
stimmte Funktionen erst einmal über eigene Routinen zu leiten. Sie sä- 
hen mit Ihrem Druckertreiber ja auch ganz schön alt aus, wenn die Aus- 
gabe für die File-# 8 direkt über $07F2 laufen würde und nicht über 
$BDF1. 


Mit der Zeit werden Sie schon selber darauf kommen, daß eigene Pro- 
gramme mit minimalem Aufwand geschrieben werden können, wenn 
man sich nur fleißig der Vektoren bedient. Absolut neu ist, daß sogar die 
Arithmetikroutinen von Basic über diesen Mechanismus führen, was ei- 
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nerseits dazu dienen kann, eigene Berechnungen dort ausführen zu las- 
sen, andererseits, um eigene Programme dort einzuhängen, weil Sie viel- 
leicht eine höhere Genauigkeit wünschen, usw. 


Da wir Ihnen jetzt so viel von Vektoren vorgeschwärmt haben, beginnen 
wir im nächsten Kapitel gleich damit. 
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2.1 Die Betriebssystem-Vektoren 


Auf den folgenden Seiten stellen wir Ihnen die Ram- Adressen vor, über 
die Sie Routinen im Betriebssystem anspringen oder die Sie bei Bedarf 
verändern können, um bestimmte Funktionen über eigene Programme 
zu führen. 

Die Funktion der Routine ist da mit ein paar Worten angerissen, wo man 
sich unter dem Namen allein nicht viel vorstellen kann. Nähere Angaben 
zu einigen Teilen finden Sie in der Einleitung zu den jeweiligen Packs. 
Teils handelt es sich hier um komplette Routinen, die hierher kopiert wur- 
den undin die Sie notfalls mitten hinein springen können, teils um RST1 
oder RST5, gefolgt von der Inline- Address (siehe hierzu Kapitel 1.1.2), 
die ins Rom verweist. 

Im Anhang 4.1 können Sie nachschauen, wo diese Routinen im Rom zu 
finden sind. 


B900 KLUROM ENABLE 

B903 KL UROM DISABLE 

B906 KLLROM ENABLE 

B909 KLLROM DISABLE 

B90C KLROM RESTORE schaltet die alte Rom-Konfiguration wieder 
ein. 

B90F KLROM SELECT schaltet ein Expansion—Rom (bis zu 252 sind 
theoretisch möglich) ein. 

B912 KL CURR SELECTION Welches Expansion—-Rom ist derzeit in 
Betrieb? 

B915 KL PROBE ROM Um welche Art von Rom-Erweiterung handelt 
es sich? 

B918 KL ROM DESELECT Vorherige Rom-Erweiterung wiederher- 
stellen. 

B91B KLLDIR 

B91E KLLDDR 

B921 KLPOLLSYNCHRONOUS Gibt es einen Event mit höherer Prio- 
rität als die des laufenden? 

B939 RST 7INTERRUPT ENTRY CONT'’D 

B97C KL LOW PCHL CONT'D 

B982 RST 1 LOW JUMP CONT'D 

B9YAB Konfig vorber. & Sprung ausf. 

B9B1 KLFAR PCHL CONT'D 

B9B9 KLFARICALL CONT'D 

B9BF RST 3 LOW FAR CALL CONT'D 

BA10 KLSIDE PCHL CONT'’D 

BA16 RST2 LOW SIDE CALL CONT’D 

BA2E RST 5FIRM JUMP CONT'’D 

BA4A KLLROM ENABLE CONT'D 

BA54 KLLROM DISABLE CONT'D 
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BASE 
BA68 
BA72 
BA7E 
BA83 
BASC 
BAA2 
BAA6 


KLUROM ENABLE CONT'D 
KLUROM DISABLE CONT'D 
KL ROM RESTORE CONT'D 
KL ROM SELECT CONT'D 

KL PROBE ROM CONT'D 

KL ROM DESELECT CONT'D 
KL CURR SELECTION CONT'D 
KL LDIR CONT'D 


BAAC KL LDDR CONT'D 
BACB RSTARAMLAMCONT'D 
BADC RAMLAM (IX) entsprichtld a,(ix) 


BBOO 
BBO3 
BBO6 
BBO9 


BBOC 


BBOF 
BB12 
BB15 
BB18 
BB1B 
BBi1E 
BB21 
BB24 
BB27 


BB2A 


BB2D 
BB30 
BB33 
BB36 
BB39 


BB3C 
BB3F 
BB42 
BB45 
BB48 
BB4AB 


BB4E 
BB51 


KM INITIALIZE 

KM RESET 

KM WAIT CHAR Aufein Zeichen von der Tastatur warten. 

KM READ CHAR Zeichen von der Tastatur holen, falls vorhan- 
den. 

KM CHAR RETURN Zeichen im Tastaturpuffer für den nächsten 
Zugriff hinterlegen. 

KMSET EXPAND Erweiterungsstring einrichten. 
KMGETEXPAND Zeichen vom Erweiterungsstring holen. 

KM EXP BUFFER Speicher für Erweiterungsstring zuweisen. 
KM WAIT KEY Auf Tastendruck warten. 

KMREADKEY Tastennummerholen, falls eine gedrückt wurde. 
KM TESTKEY Wurde eine Taste gedrückt? 

KM GETSTATE Shift-Status holen. 

KM GET JOYSTICK 

KMSET TRANSLATE Eintrag in die Tastaturtabelle vornehmen 
(1. Ebene). 

KMGETTRANSLATE Eintrag aus Tastaturtabelle holen (1. Ebe- 
ne). 

KM SET SHIFT Wie BB27, jedoch 2. Ebene. 

KM GET SHIFT Wie BB2A, jedoch 2. Ebene. 

KMSET CONTROL Wie BB27, jedoch 3. Ebene. 

KM GET CONTROL Wie BB2A, jedoch 3. Ebene. 

KM SET REPEAT Wiederholungsfunktion für bestimmte Taste 
setzen. 

KM GET REPEAT Ist Wiederholungsfunktion für eine bestimm- 
te Taste gesetzt? 

KM SET DELAY Tastenwiederholungseinsatz und -geschwin- 
digkeit setzen. 

KM GET DELAY o.a. Parameter holen. 

KM ARM BREAK Break-Taste erlauben. 

KM DISARM BREAK Break-Taste verriegeln. 

KM BREAKEVENT Routinen bei Drücken der Break- Taste aus- 
führen. 

TXT INITIALISE 

TXT RESET 
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BB54 


BB57 
BB5A 
BB5D 
BB60 
BB63 


BB66 
BB69 
BB6C 
BB6F 
BB72 

BB75 
BB78 
BB7B 
BB7E 
BB81 

BB84 


BB87 
BB8A 
BB8D 
BB90 
BB93 
BB96 
BB9Y9 
BB9IC 
BB9YF 
BBA2 
BBA5 


BBA8 


BBAB 


BBAE 


BBB1 


BBB4 
BBB7 


BBBA 
BBBD 
BBCO 
BBC3 


TXT VDU ENABLE Es können Zeichen auf den Bildschirm ge- 
schrieben werden. 

TXT VDU DISABLE Zeichendarstellung verhindern. 

TXT OUTPUT (Steuer-) Zeichen darstellen oder ausführen. 
TXTWRCHAR Zeichen darstellen. 

TXT RD CHAR Zeichen vom Bildschirm lesen. 

TXT SET GRAPHIC Darstellung von Steuerzeichen ein— oder 
ausschalten. 

TXT WIN ENABLE Größe desIfd. Textfensters festlegen. 

TXT GET WINDOW Welche Größe hat das Ifd. Textfenster? 
TXT CLEAR WINDOW Lfd. Textfenster löschen. 

TXT SET COLUMN 

TXT SETROW 

TXT SET CURSOR 

TXT GET CURSOR 

TXT CURENABLE Cursor erlauben (Anwenderprogramm). 
TXT CUR DISABLE Cursor verriegeln (Anwender). 
TXTCURON Cursor erlauben (Betriebssystem). 

TXT CUR OFF Cursor verriegeln (Betriebssytem, höhere Priori- 
tät als BB7B/BB7E). 

TXT VALIDATE Cursor innerhalb des Textfensters? 

TXT PLACE CURSOR Cursor ein 

TXT REMOVE CURSOR Cursor aus 

TXTSET PEN Vordergrundfarbe setzen. 

TXT GETPEN Vordergrundfarbe? 

TXTSET PAPER Hintergrundfarbe setzen. 

TXT GET PAPER Hintergrundfarbe? 

TXTINVERSE Lfd. Vorder- und Hintergrundfarbe vertauschen. 
TXTSET BACK Transparentmodus ein / aus 

TXT GETBACK Transparentmodus? 

TXT GET MATRIX Adresse des Punktmusters eines Zeichens 
holen. 

TXT SET MATRIX Adresse des (anwenderdefinierten) Punkt- 
musters eines bestimmten Zeichens setzen. 

TXT SET M TABLE Startadresse und erstes Zeichen einer an- 
wenderdefinierten Punktmatrix setzen. 

TXT GET M TABLE Startadresse und erstes Zeichen einer An- 
wendermatrix? 

TXTGETCONTROLS Adresse der Steuerzeichen-Sprungtabel- 
le holen. 

TXTSTRSELECT Textfenster wählen. 

TXT SWAP STREAMS Die Parameter (Farben, Fenstergrenzen 
usw.) zweier Textfenster werden miteinander vertauscht. 

GRA INITIALISE 

GRA RESET 

GRA MOVE ABSOLUTE 

GRA MOVE RELATIVE 
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BBC6 
BBC9 
BBCC 
BBCF 


BBD2 


BBD5 


BBD8 


BBDB 
BBDE 
BBE1 
BBE4 
BBE7 
BBEA 
BBED 


BBFO 
BBF3 
BBF6 


BBF9 


BBFC 


BBFF 
BC02 
BC05 


BC08 
BCOB 
BCOE 
BC11 
BC14 
BC17 


BC1A 
BC1D 
BC20 


BC23 
BC26 


BC29 
BC2C 


GRA ASK CURSOR Wo ist der lfd. Grafikcursor? 

GRA SET ORIGIN 

GRA GET ORIGIN 

GRA WIN WIDTH Linke und rechte Begrenzung des Grafikfen- 
sters setzen. 

GRA WIN HEIGHT Obere und untere Begrenzung des Grafikfen- 
sters setzen. 

GRA GET W WIDTH Linke und rechte Begrenzung des Grafik- 
fensters? 

GRA GET W HEIGHT Obere und untere Begrenzung des Grafik- 
fensters? 

GRA CLEAR WINDOW _ Grafikfenster löschen. 

GRASET PEN Schreibfarbe setzen. 

GRAGETPEN Schreibfarbe? 

GRA SET PAPER Hintergrundfarbe setzen. 

GRA GET PAPER Hintergrundfarbe? 

GRA PLOT ABSOLUTE Grafikpunkt setzen (absolut) 

GRA PLOT RELATIVE Grafikpunkt setzen (relativ zum lfd. Cur- 
sor). 

GRA TEST ABSOLUTE Punkt gesetzt? (absolut) 

GRA TEST RELATIVE Punkt gesetzt? (relativ zum lfd. Cursor). 
GRA LINE ABSOLUTE Linie von der lfd. zur absoluten Position 
ziehen. 

GRA LINE RELATIVE Linie von der lfd. bis zur rel. Distanz zie- 
hen. 

GRA WR CHAR Ein Zeichen an der lfd. Grafikcursorposition 
schreiben. 

SCR INITIALISE 

SCR RESET 

SCR SET OFFSET Startadresse des ersten Zeichens relativ zur 
Basisadresse des Videorams setzen. 

SCRSET BASE Basisadresse des Videorams setzen. 
SCRGETLOCATION Lfd. Bildschirmstart? (Basis + Offset). 
SCR SET MODE 

SCR GET MODE 

SCR CLEAR . Bildschirm löschen. 

SCR CHAR LIMITS Größtmögliche Zeilen— und Spaltenzahl des 
Bildschirms holen (abhängig vom Modus). 

SCR CHAR POSITION 

SCR DOT POSITION 

SCRNEXTBYTE Eine gegebene Bildschirmadresse um eine Zei- 
chenposition weiterrechnen. 

SCR PREV BYTE Bildschirmadresse eine Position zurückrech- 
nen. 

SCRNEXTLINE Bildschirmadresse eine Zeile weiterrechnen. 
SCR PREV LINE Bildschirmadtresse eine Zeile zurückrechnen. 
SCRINKENCODE 
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BC2F 
BC32 
BC35 
BC38 
BC3B 
BC3E 
BC41 
BC44 


BC47 


BC4A 


BC4D 


BC50 


BC53 
BC56 
BC59 
BC5C 
BC5F 
BC62 
BC65 
BC68 
BC6B 
BC6E 
BC71 
BC74 
BC77 
BC7A 
BC7D 
BC80 
BC83 
BC86 


BC89 
BC8C 
BC8F 
BC92 
BC95 
BC98 


BC9IB 
BC9YIE 
BCA1 
BCA4A 


SCR INK DECODE 

SCRSETINK Farbe(n) einer Ink—-# zuordnen. 

SCRGETINK Farbe(n) einer Ink-#? 

SCRSET BORDER Rahmenfarbe(n) setzen. 

SCR GET BORDER Rahmenfarbe(n)? 

SCRSET FLASHING Blinkzeiten setzen. 

SCR GET FLASHING Blinkzeiten? 

SCRFILLBOX Vorgegebenes Fenster mit einer Farbe füllen (Po- 
sitionen zeichenbezogen, mode-abhängig). 

SCR FLOOD BOX Vorgegebenes Fenster mit einer Farbe füllen 
(Positionen sind Bildschirmadressen, mode-unabhängig). 

SCR CHAR INVERT Bei einem Zeichen Vorder—- und Hinter- 
grundfarbe vertauschen. 

SCR HW ROLL Bildschirm eine Zeile auf oder ab (hardwaremä- 
Big). 

SCR SW ROLL Bildschirm eine Zeile auf oder ab (softwaremä- 
Big). 

SCRUNPACK Zeichenmatrix vergrößern (für Mode 0/1). 
SCRREPACK Zeichenmatrix wieder auf Originalform stauchen. 
SCR ACCESS Steuerzeichen sichtbar/unsichtbar setzen. 

SCR PIXELS Punkt auf dem Bildschirm setzen. 

SCR HORIZONTAL Horizontale Linie ziehen. 

SCR VERTICAL Vertikale Linie ziehen. 

CAS INITIALISE 

CASSETSPEED Schreibgeschwindigkeit setzen. 

CAS NOISY Kassettenmeldungen ein / aus. 

CASSTART MOTOR 

CASSTOP MOTOR 

CAS RESTORE MOTOR Alten Motorzustand wiederherstellen. 
CASIN OPEN 

CASIN CLOSE 

CASIN ABANDON Eingabedatei sofort schließen. 

CASIN CHAR Zeichen lesen (aus dem Puffer). 

CASINDIRECT Gesamte Datei in den Speicher ziehen. 

CAS RETURN Zuletzt gelesenes Zeichen wieder zurück in den 
Puffer. 

CAS TEST EOF Dateiende? 

CAS OUT OPEN 

CAS OUT CLOSE 

CASOUT ABANDON Ausgabedatei sofort schließen. 
CASOUTCHAR Zeichen schreiben (in den Puffer). 

CAS OUT DIRECT Definierten Speicherbereich auf Kassette 
schreiben (nicht über Puffer). 

CAS CATALOG 

CAS WRITE Block schreiben. 

CASREAD Block lesen. 

CASCHECK Block aufdem Band mit Speicherinhalt vergleichen. 
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BCA7 


SOUND RESET 


BCAA SOUND QUEUE Ton an die Warteschlange anhängen. 
BCAD SOUND CHECK Noch Platz in der Warteschlange? 


BCBO 


BCB3 
BCB6 
BCB9 
BCBC 
BCBF 
BCC2 
BCC5 
BCC8 
BCCB 
BCCE 
BCD1 
BCD4A 


BCD7 


SOUND ARM EVENT Eventblock für den Fall 'scharf machen’, 
daß in der Warteschlange ein Platz frei wird. 

SOUND RELEASE Töne erlauben. 

SOUND HOLD Töne sofort anhalten. 

SOUNDCONTINUE Zuvorangehaltene Töne weiter bearbeiten. 
SOUND AMPL ENVELOPE Lautstärkehüllkurve einrichten. 
SOUND TONE ENVELOPE Tonhüllkurve einrichten. 

SOUNDA ADDRESS Adresse einer Lautstärkehüllkurve hölen. 
SOUNDT ADDRESS Adesse einer Tonhüllkurve holen. 

KL CHOKE OFF Kernel rücksetzen. 

KLROM WALK Irgendwelche Rom-Erweiterungen? 
KLINITBACK Rom-Erweiterung einhängen. 

KLLOG EXT Residente Erweiterung einhängen. 

KL FIND COMMAND Befehl in allen eingehängten Speicherbe- 
reichen suchen. 

KLNEW FRAME FLY Eventblock einrichten und einhängen. 


BCDA KL ADD FRAME FLY Eventblock einhängen. 


BCDD 
BCEO 
BCE3 
BCE6 
BCE9I 
BCEC 
BCEF 
BCF2 
BCF5 
BCF8 


BCFB 
BCFE 
BDO1 
BDO4 
BD07 
BDOA 
BDOD 
BD10 
BD13 


BD16 
BD19 
BDI1C 
BDIF 
BD22 
BD25 


KL DEL FRAME FLY Eventblock aushängen. 

KL NEW FAST TICKER Wie BCD7. 

KL ADD FAST TICKER Wie BCDA. 

KL DEL FAST TICKER Wie BCDD. 

KL ADD TICKER Tickerblock einrichten und einhängen. 

KL DEL TICKER Tickerblock aushängen. 

KLINITEVENT Eventblock einrichten 

KLEVENT Eventblock 'kicken'. 

KLSYNC RESET Sync Pending Queue löschen. 

KL DEL SYNCHRONOUS Bestimmten Block aus der Pending 
Queue löschen. 

KL NEXTSYNC Der nächste bitte. 

KLDOSYNC Eventroutine ausführen. 

KL DONE SYNC Eventroutine fertig. 

KL EVENT DISABLE 

KL EVENT ENABLE 

KL DISARM EVENT Eventblock verriegeln (Zähler negativ). 
KL TIME PLEASE 

KL TIME SET 

MC BOOT PROGRAM Setzt das Betriebssystem zurück und 
übergibt die Steuerung einer Routine in (hl). 

MC START PROGRAM 

MC WAITFLYBACK Strahlrücklauf abwarten. 

MC SET MODE 

MC SCREEN OFFSET 

MC CLEAR INKS 

MC SET INKS 
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BD28 
BD2B 
BD2E 
BD31 
BD34 
BD37 


MC RESET PRINTER 

MC PRINTCHAR Zeichen drucken wenn möglich. 

MC BUSY PRINTER Drucker noch tätig? 

MC SEND PRINTER Zeichen drucken (warten, bis es geht). 
MC SOUND REGISTER Sound Controller mit Daten versorgen. 
JUMP RESTORE Alle Sprungvektoren initialisieren. 


Die folgenden Vektoren werden von BASIC benutzt. 


BD3A 
BD3D 
BD40 
BD43 
BD46 
BD49 
BD4C 
BD4F 
BD52 
BD55 
BD58 
BD5B 
BD5E 
BD61 
BD64 
BD67 
BD6A 
BD6D 
BD70 
BD73 
BD76 
BD79 
BD7C 
BD7F 
BD82 
BD85 
BD88 
BD8B 
BD8E 
BD91 
BD94 
BD97 
BD9YIA 
BD9YD 
BDAO 
BDA3 
BDA6 
BDA9 


EDIT 

FLO Variable von (de) ?» (hl) kopieren 
FLO Int DD Flo 

FLO 4-Byte-Wert DD Flo 

FLO Flo DD Int 

FLO Flo 2» Int 

FLO FIX 

FLO INT 

FLO 

FLO Zahl mit 10la multiplizieren. 
FLO Addition 

FLO Subtraktion 

FLO Subtraktion 

FLO Multiplikation 

FLO Division 

FLO Zahl mit 2la multiplizieren. 
FLO Vergleich 

FLO Vorzeichenwechsel 
FLOSGN 

FLO DEG / RAD 

FLOPI 

FLO SQOR 

FLO Potenzierung 

FLOLOG 

FLO LOG1O0 

FLO EXP 

FLO SIN 

FLO COS 

FLO TAN 

FLO ATN 

FLO 4-Byte-Wert x 256 2» Flo 
FLO RND Init 

FLO Set RND Seed 

FLO RND 

FLO Letzten RND-Wert holen. 
INT 

INT 

INT Vorzeichen in b übernehmen. 
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BDAC INT Addition 

BDAF INT Subtraktion 

BDB2 INT Subtraktion 

BDB5 INT Multiplikation mit Vorzeichen 
BDB8 INT Division mit Vorzeichen 
BDBB INT MOD 

BDBE INT Multiplikation ohne Vorzeichen 
BDC1 INT Division ohne Vorzeichen 
BDC4 INT Vergleich 

BDC7 INT Vorzeichenwechsel 

BDCA INTSGN 


Hier beginnen die sog. INDIRECTIONS. Das sind Sprünge ins Betriebs- 
system, die nicht global versorgt werden, sondern individuell von jedem 
Pack, wenn dessen RESET oder INITALISE durchlaufen wird. 


BDCD TXT DRAW CURSOR Cursor auf den Bildschirm. 
BDDO TXT UNDRAW CURSOR Cursor aus. 

BDD3 TXT WRITE CHAR Zeichen auf den Bildschirm. 
BDD6 TXT UNWRITE Zeichen vom Bildschirm lesen. 
BDD9 TXT OUT ACTION Zeichen abbilden oder ausführen. 
BDDC GRA PLOT Punkt setzen. 

BDDF GRA TEST Punkt? 

BDE2 GRALINE Linie ziehen. 

BDE5 SCRREAD Punkt vom Bildschirm holen. 

BDE8 SCR MODE CLEAR _ Bildschirm mit Ink#0 löschen. 
BDEE KM TEST BREAK Break-Taste gedrückt? 

BDF1 MC WAIT PRINTER Zeichen zum Drucker schicken. 
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2.2 Das Betriebssystem RAM 


Hier finden Sie eine Auflistung des Betriebssystem—-Ram, soweit wir die 
Bedeutung der einzelnen Adressen herausgefunden haben. 
Voraussetzung für die Benutzung ’on the fly’ ist allerdings, daß Sie sich 
über die Wirkung von Manipulationen vorher genau im Klaren sind, denn 
wie Sie sehen spielt die Musik fast ausschließlich hier, d.h. alles, was im 
Betriebssystem Rang und Namen hat, mauschelt in dieser Ecke, wobei es 
sich nicht nur um bedeutungslose Flags oder Pointer handelt, sondern 
zum Teil um wesentlich massivere Dinge wie z.B. die Sprungtabelle des 
TEXTSCREEN. 

Wir sehen natürlich ein, und dazu haben Sie sich ja auch dieses Buch ge- 
kauft, daß so etwas geradezu zum Probieren herausfordert. Also bitte, 
'ran an den Speck. Vergessen Sie nur nicht, vorher Ihr gerade eingetipp- 
tes Programm in Deckung zu bringen; es könnte Schaden nehmen. 


BO8B Basic Stackpointer 

BO8D Zeiger Stringsstart 

BO8F Zeiger Stringende 

BO9A Zeiger Stringdescr. Stack 
BO9C Stringdescr. Stack 

BOBA Stringdescriptor 

BOC1 Variablentyp 

BOC2 INTvar / AdıFLOvar / PointSTRdesc 
B100 KL Start Int Pending Queue 
B104 KLdiv. Flags f. Int. Rout. 
B105 KLspsave 

B187 KL Timer low 

B189 KL Timer high 

B18B KL Timerflag 

B18C KL Start Frame Fly Chain 
B18E KL Start Fast Ticker Chain 
B190 KLStart Ticker Chain 

B192 KL Count for Ticker 

B193 KLStart Sync Pending Queue 
B195 KLPriorität lfd. Event 

B196 KL auszuführender Befehl 
B1A8 KLiIfd. Exp. -Rom 

B1A9 KLEinsprung lfd. Rom 

B1AB KLIfd. Rom-Konfig. 

B1C8 SCR curr. Screen Mode 

B1CA SCR Adır. Screen Start 

B1CB SCR High Byte Screen Start 
B1CC SCR Write Indirection 

B1iCF SCR Bit Masken abh. v. Mode 
B1D7 SCR Flash Periods 
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B1D8 
B1D9 
B1EA 
B1FB 
B1FD 
BiFE 
B20C 
B20D 
B21C 
B22B 
B23A 
B249 
B258 
B267 
B276 
B285 
B287 
B288 
B289 
B28A 
B28B 
B28C 
B28D 
B28E 
B28F 
B290 
B291 
B293 
B294 
B296 
B2B8 
B2B9 
B2C3 
B328 
B32A 
B32C 
B32E 
B330 
B332 
B334 
B336 
B338 
B339 
B342 
B344 
B4DE 
B4EO 


SCR Flash Period 1. Farbe 

SCR Farbspeicher 2. Farben 

SCR Farbspeicher 1. Farben 

SCR Flag lfd. Farbsatz 

SCR curr. Flash Period 

SCR Event Block: Set Inks 

TXT lfd Bildschirmfenster 

TXT Start Params Fenster O 

TXT Params Fenster 1 

TXT Params Fenster 2 

TXT Params Fenster 3 

TXT Params Fenster 4 

TXT Params Fenster 5 

TXT Params Fenster 6 

TXT Params Fenster 7 

TXT lfd Cursor Pos.(Row,Col) 
TXT Fenst.Flag(0O=ges. Bildsch.) 
TXT lfd Fenster oben 

TXT lfd Fenster links 

TXT lfd Fenster unten 

TXT lfd Fenster rechts 

TXT lfd Roll Count 

TXT lfd Cursor Flag 

TXT VDU Flag (O=disabled) 

TXT lfd Pen 

TXT lfd Paper 

TXT Ifd Background Mode 

TXT Graph Char Write Mode (0O=disabl) 
TXT 1. Zeichen User Matrix 

TXT Adır. User Matrix 

TXT Zeichenzähler Control Buffer 
TXT Start Control Buffer 

TXT Sprungtabelle Steuerzeichen 
GRA X Origin 

GRA Y Origin 

GRA Ifd X Koord. 

GRA lfd Y Koord. 

GRA X Koord GRA Fenster links 
GRA X Koord GRA Fenster rechts 
GRA Y Koord GRA Fenster oben 
GRA Y Koord GRA Fenster unten 
GRAPen 

GRA Paper 

GRA Rechenpuffer X Koord 

GRA Rechenpuffer Y Koord 

KM Exp. String Pointer 

KM Put Back Buffer 
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B4E1 
BA4E3 
B4E5 
B4E7 
B4E8 
B4EYI 
B4EB 
B4ED 
Bari 
B4F4 
BaF5 
BAFF 
B50D 
B541 
B543 
B545 
B547 
B551 
B552 
B555 
B55C 
B59B 
B5SDA 
B60A 
B6FA 
B800 
B802 
B803 
B805 
B807 
B847 
B848 
B84A 
B84C 
B8D1 
B8DD 


KM Adır. Start Exp Buffer 

KM Adr. Ende Exp Buffer 

KM Aaır. Start freier Exp Buffer 
KM Shift Lock State 

KM Caps Lock State 

KM Delay 

KM Key State Map 

KM Key 16...23 

KM Joystick 1 

KM Joystick O0 

KM währ. Scan gedr. Keys 

KM Multihit Kontr. zu BA4F5 
KM Break Event Block 

KM Aar. Key Translation Table 
KM Adır. Key SHIFT Table 

KM Aadır. Key CTRL Table 

KM Aadır. der Repeat Tabelle 
SOUND alte Sound Akt. (nach HOLD) 
SOUND Ifd Sound Aktivität 
SOUND Sound Event Block 
SOUND Params Kanal A 
SOUND Params Kanal B 
SOUND Params Kanal C 
SOUND Lautstärke Hüllkurven 
SOUND Ton Hüllkurven 

CAS Cass. Message Flag 

CAS Input Buffer Status 

CAS Adr. Start Input Buffer 
CAS Pointer Input Buffer 

CAS File Header Input 

CAS Output Buffer Status 

CAS Adır. Start Output Buffer 
CAS Pointer Output Buffer 
CAS File Header Output 

CAS Cass. Speed 

EDIT Insert Flag 
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2.4 Nutzung von Betriebssystemroutinen 


Der CPC enthält mehrere hundert 2.T. sehr sinnvolle und für den Pro- 
grammierer gut zu benutzende Routinen oder Funktionen. So gibt es 
Routinen zur Abfrage der Tastatur, zum Ausgeben eines Zeichens auf 
dem Bildschirm, zum Verwalten der Windows oder zum Betrieb des 
Druckers. 

Trotz der Fülle der im Betriebssystem vorhandenen Funktionen gibt es 
aber Dinge, die der CPC von Haus aus nicht kann. So fehlt z.B. die Mög- 
lichkeit, den Inhalt des Bildschirms, Text oder Grafik, auf einen ange- 
schlossenen Drucker auszugeben. 


Diese 'Hardcopy’' genannte Möglichkeit wollen wir Ihnen an zwei Bei- 
spielen zeigen. Im ersten Beispiel geht es dabei um eine ausschließliche 
Texthardcopy, die mit jedem angeschlossenen Drucker funktioniert, die 
zweite Hardcopy-Routine ermöglicht den Ausdruck aller Zeichen ein- 
schließlich der CPC-Grafikzeichen. Auch in hochauflösender Grafik er- 
stellte Bilder lassen sich mit dieser Routine ausdrucken. 

Als Drucker wurde von uns der NLO 401 gewählt. Dieser preiswerte 
Drucker ist, was seinen Vorrat an Steuerzeichen angeht, erstaunlich 
kompatibel mit den Epson—-Druckern MX/RX/FX. Dadurch laufen die bei- 
den Programme auch auf den erwähnten Epson-Druckern (und allen 
sonstigen Kompatiblen) ohne Anpassung. 


Am Ende dieses Kapitels haben Sie nicht nur zwei schnelle Hardcopy- 
—Routinen, sondern auch einen Einblick in die Nutzung einiger Betriebs- 
system-Routinen. 


Um den Bildschirminhalt auf einen angeschlossenen Drucker auszuge- 
ben, muß man die Zeichen zeilenweise vom Bildschirm lesen und druk- 
ken. Durch den speziellen Aufbau des Video—Ram kann man aber leider 
nicht direkt die Zeichen auslesen. 


Statt dessen muß über den 'Umweg’ einer Betriebssystem -Routine das 
Zeichen an der momentanen Cursor—Position bestimmt werden. Diese 
Routine (TXT RD CHAR, &BB60) übergibt das Zeichen im Akku und setzt 
das Carry-Flag, wenn ein Zeichen gefunden wurde. Befindet sich an der 
Cursor-Position dagegen kein Zeichen des CPC-Zeichensatzes, dann 
enthält der Akku eine Null, das Carry-Flag ist gelöscht. 


Des weiteren wird eine Routine benötigt, die uns den Cursor positioniert, 
damit wir die Zeichen nacheinander lesen können. Diese Funktion wird 
durch TXT SET CURSOR, &BB75, ausgeführt. Wird diese Adresse aufge- 
rufen, so wird der Inhalt des H-Registers als Spalte, der Inhalt vonLals 
Zeile interpretiert. Dabei ist die linke obere Schreibstelle durch &0101 
adressierbar. 
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Allerdings gibt es an dieser Stelle ein kleines Problem. Nachdem wir den 
Cursor mit unserer Abfrage des Bildschirms einmal über den gesamten 
Bildschirm gejagt haben, sollte er hinterher wieder an seinem ursprüng- 
lichen Platz stehen. Dazu müssen wir vor dem ersten Positionieren die 
Stelle des Cursors ermitteln und merken. 

Das kann mittels TXT GET CURSOR, &BB78, geschehen. Nach dem Auf- 
ruf von TXT GET CURSOR enthält das HL-Registerpaar die derzeitige 
Cursor-Position. Diesen Wert müssen wir uns merken und zum Ab- 
schluß der Hardcopy wieder restaurieren. 


Die mittels TXT RD CHAR erhaltenen Zeichen müssen an den Drucker 
ausgegeben werden. Dazu dient uns MC SEND PRINTER mit dem Ein- 
sprung bei &BD31. Wird diese Adresse aufgerufen, dann wird das im Ak- 
ku befindliche Zeichen auf den Printerport ausgegeben. 


Allerdings erwartet MC SEND PRINTER, daß der Drucker empfangsbe- 
reit ist. Ob das der Fall ist, stellt MC BUSY PRINTER, &BD2E, für uns fest. 
Ist der Drucker nicht empfangsbereit, nicht eingeschaltet oder nicht an- 
geschlossen, dann kommt MC BUSY PRINTER mit gesetztem Carry-Flag 
zurück. In diesem Fall muß diese Routine solange aufgerufen werden, bis 
das Carry gelöscht ist. Dann kann mit MC SEND PRINTER das gewünsch- 
te Zeichen ausgegeben werden. 


Nun kann aber ja auch der Fall auftreten, daß eine einmal ausgelöste 
Hardcopy nicht zuende ausgedruckt werden soll. In unseren Program- 
men wollen wir durch Drücken der 'DEL’-Taste die Hardcopy abbrechen 
können. Also benötigen wir eine weitere Routine, die feststellt, ob diese 
Taste gedrückt ist. 

Diese Aufgabe kann z.B. von KM TEST KEY, &BB1E, ausgeführt werden. 
wird diese Adresse mit einem gültigen Tastencode im Akku aufgerufen, 
dann ist nach dem Rücksprung das Zero-Flag gelöscht, wenn die ent- 
sprechende Taste gedrückt ist. Andernfalls ist das Zero—-Flag gesetzt. 


Damit haben wir eigentlich alle System-Routinen, um eine Hardcopy zu 
schreiben. Aber spätestens beim eifrigen Programmieren wird uns auf- 
fallen, daß wir ja garnicht wissen, ob zum Zeitpunkt der Hardcopy 20, 40 
oder gar 80 Zeichen dargestellt werden. 

Gut, man könnte sagen: Diese Hardcopy funktioniert nur im Bildschirm- 
modus «x. Das wäre aber eine unschöne Einschränkung, die mit geringem 
Programmieraufwand zu vermeiden ist. 


SCR GET MODE mit dem Einsprung bei &BC11 teilt uns im Akku und in 
den beiden Flags Carry und Zero mit, in welchem Darstellungsmodus 
sich der CPC gerade befindet. Entsprechend können wir eine Hardcopy 
mit der benötigten Zeichenzahl erstellen. 
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Doch jetzt zum eigentlichen Programm. Leser ohne Assembler können 
das am Schluß dieses Kapitels abgedruckte Basicprogramm verwenden. 
Es enthält beide Hardcopy—-Programme in Data-Zeilen. 


A100 
BB78 
BB75 
BB60 
BD2E 
BD31 
BC11 
BBIE 


GETCRS 
SETCRS 
RDCHAR 
TSTPTR 
PRTCHR 
GETMOD 
TSTKEY 


A100 CD78BB 
A103 2264A1 
A106 CD11BC 
A109 17 

A10A 3263A1 
A10D 210101 
A110 2266A1 
A113 3A63A1 LLI 
A116 47 
A117 0E14 
A119 05 
ANA ES 
At1B CD75BB 
AIIE Ei 
A1IF CD60BB 
A122 Ci 
A123 3802 
A125 3E20 
A127 CD58A1 GOOD 
Al2A ES 
A12B C5 
A12C 3E42 
A12E CDIEBB 
A131 CI 
A132 Ei 
A133 201C 
A135 24 
A136 OD 
A137 20E0 
A139 10DC 
A13B 3EOD 
A13D CD58A1 
A140 3EOA 
A142 CD58A1 


LOOP 
LLOOP 


WEITER 


ORG 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


CALL 
LD 
CALL 
RLA 
LD 
LD 


#A100 
#BB78 
#BB75 
#BB60 
#BD2E 
#BD31 
#BC11 
#BBI1E 


GETCRS 
(OLDPOS),HL 
GETMOD 


(MODE), A 

HL #0101 
(CRSPOS),HL 
A,(MODE) 
BA 

C,20 

BC 

HL 

SETORS 


NZ,EXIT 

H 

C 
NZ,LLOOP 
LOOP 
A,#0D 
PRTOUT 
A,#0A 
PRTOUT 


‚alte Cursorpos. merken 


‚Bildschirmmodus holen 
Anzahl der Zeichen/20 
‚und merken 

‚in die obere linke Ecke 
‚den Cursor 


‚1,2.oder 4 mal 

;20 Zeichen in eine Zeile 
‚Cursor platzieren 

‚und das Zeichen 
‚bestimmen 

‚gültiges Zeichen? 


‚sonst Leerzeichen 
‚ausgeben 


;ESC gedrückt? 


‚wenn ja, dann Ende 


‚20 Zeichen gedruckt? 
‚ganze Zeile? 
;CR/LF ausgeben 
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A145 2A66A1 LD  HL,(CRSPOS) ;Cursorpos. für 


A148 2C INC L ‚nächste Reihe 
A149 2266A1 LD _ (CRSPOS),HL ;bestimmen 

A14C 7D LD AL 

A14D FEIA CP 26 ‚25 Zeilen gedruckt? 
A14F 2002 JR NZLL 

A151 2A64A1 EXIT LD _ HL,(OLDPOS) ;wenn ja, dann alte 
A154 CD75BB CALL SETCRS ;Cursorpos. restaurieren 
A157 C9 RET ; undzurück 

A158 05 PRTOUT PUSH BC 

A159 CD2EBD P1 CALL TSTPTR ‚Printer Busy? 
A15C 38FB WR 6Pi 

A1SE CD31BD CALL PRTCHR ‚Zeichen ausgeben 
A161 01 POP BC 

A162 09 RET 


A163 00 MODE DEFB 0 
A164 0000  OLDPOS DEFW 0000 
A166 0000  CRSPOS DEFW 0000 


Durch die Kommentare im Listing sollte das Programm einfach zu verste- 
hen sein. Die einzige Besonderheit stellt die Methode zur Berechnung der 
Anzahl pro Zeile auszugebener Zeichen dar. Darum wollen wir noch kurz 
darauf eingehen. 


Nach dem Aufruf vonSCR GET MODE enthält der Akku jenach Modus 0, 
1 oder 2. Zusätzlich haben Carry- und Zero-Flag folgende Zustände: 


Mode 0 = Carry 1, Zero 0 
Mode 1 = Carry 0, Zero 1 
Mode 2 = Carry 0, Zero 0 


Durch den Befehl SLA wird der Inhalt des Akkus um ein Bit nach links ver- 
schoben. Das entspricht einer Multiplikation mit zwei. Zusätzlich wird 
der Zustand des Carry-Flags in das freigewordene Bit 0 des Akku über- 
tragen, das 'herausgefallene’ Bit 7 wird in das Carry übernommen. 

Im Mode 0 wird die im Akku befindliche 0 rotiert. Das hat auf den Inhalt 
des Akkus keinen Einfluß. Da aber das vom Aufruf von SCR GET MODE 
gesetzte Carry-Flag in das Bit O des Akkus übertragen wird, enthält der 
Akku nach dem Befehl SLA eine 1. Diese 1 bewirkt, daß ein mal 20 Zei- 
chen in einer Zeile Ausgedruckt werden. 

Im Mode 1 enthält der Akku eine 1, das Carry istin diesem Mode gelöscht. 
Nach dem Befehl SLA enthält der Akku eine 2. Somit werden 2 mal 20 Zei- 
chen in einer Zeile ausgegeben. Analog sind die Verhältnisse im Mode 2. 
Allerdings ist das Ergebnis des Befehls SLA eine 4 im Akku, welche 4 mal 
20 gleich 80 Zeichen in einer Druckzeile bewirken. 
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Etwas anders sind die Verhältnisse, wenn es darum geht, eine Grafik- 
—Hardcopy zu erzeugen. Hier können uns die Routinen TXT SET CUR- 
SOR und TXT RD CHAR nicht weiterhelfen. 

Als erste Aktion wird mit GRA INITIALISE der Grafik— Modus eingeschal- 
tet. Danach bestimmen wir mit GRA GET PAPER die Farbnummer des 
Hintergrundes. Mit diesem Wert werden alle Punkte des Bildschirms ver- 
glichen. Ist die Farbe eines Pixels vom Hintergrund verschieden, dann 
wird auf dem Papier ein Punkt erzeugt, erhalten wir dagegen die Hinter- 
grundfarbnummer, dann wird kein Punkt gedruckt. 


Leider verfügt der CPC nur über einen 7—-Bit—-Druckeranschluß. Dadurch 
ergeben sich gewisse Komplikationen. 

Zunächst bedeutet dies, daß wir mit einem Male 7 Punkte, die unterein- 
ander angeordnet sind, auf den Drucker ausgeben können. Insgesamt 
hat die Grafik des CPC eine vertikale Auflösung von 200 Punkten. Das 
läßt sich aber nicht ohne Rest durch 7 teilen. Wir behalten vier Pixelreihen 
am unteren Bildrand übrig, die gesondert behandelt werden müssen. Da- 
für gibt es aber bei der Grafik-Hardcopy keine Probleme mit unter- 
schiedlichen Textmodi. Egal, ob 20 oder 80 Zeichen, der erzeugte Aus- 
druck ist immer richtig. 


Ein weiteres Problem mit dem 7-Bit-Ausgang ergibt sich bei der Be- 
fehlsübermittlung an den Drucker. Das Einschalten der Grafik mit ESCL 
erfordert für die vorhandenen 640 Pixel pro Zeile eine Angabe, die mit 
dem CPC garnicht zu übertragen ist. Um die geforderte Anzahl der Gra- 
fikpunkte auf dem Drucker zu erhalten, lautet die Steuersequenz: 


PRINT +#8,CHR$(27);“L“;CHR$(128)CHR$(2) 


Der Wert 128 stellt das Problem dar. Binär ausgedrückt ist 128 ein Wert 
mit gesetztem achtem Bit. Alle anderen Bits sind Null. Würden wir diesen 
Wert andenDrucker schicken, sokäme dort nur eine Nullan, dadasachte 
Bit ja als Strobe verwendet wird und nicht an den Drucker ausgegeben 
werden kann. 


Wir haben dies Problem in der Weise umgangen, indem wir uns auf 639 
Punkte in horizontaler Richtung beschränken. Das ist zwar ein Punkt we- 
niger, als auf dem Bildschirm vorhanden ist, dadurch reduziert sich aber 
der erste zu übertragende Wert auf 127. Nicht sehr elegant, aber es 
klappt. 


Bevor wir nun zum Listing der Grafik-Hardcopy kommen, müssen wir 
noch auf eine Besonderheit hinweisen. 

Obwohl der Bildschirm physikalisch nur 200 Rasterzeilen darstellt, wird 
im CPC bei allen Grafik— Routinen mit einer vertikalen Auflösung von 400 
Punkten gerechnet. Dadurch ergibt sich ein deutlich besseres Verhältnis 


94 


von X—- zu Y-Richtung, als wenn nur mit den tatsächlich vorhandenen 
200 Zeilen gerechnet würde. 

Der Effekt ist gut sichtbar, wenn Sie einmal das im Basic-Handbuch zum 
CPC abgedruckte Programm zum Zeichnen eines Kreises ausprobieren. 
Der Kreis ist tatsächlich (fast) rund. Ohne die beschriebene Korrektur 
würde eine auf der Seite liegende Ellypse erzeugt. 

Die Korrektur muß auch in unserer Hardcopy stattfinden, allerdings in der 
genau entgegen gesetzten Form. Auch wir ermitteln die Grafik—-Koordi- 
naten im Raster 400x640 Punkte, auf dem Drucker werden aber nur 200 
Punkte in vertikaler Richtung ausgegeben, um die Verzerrungen gering 
zu halten. 


A000 ORG #A000 

BBBA GRINT EQU +#BBBA 

BBE7 GETPAP EQU #BBE7 

BBFO TSTPOI EQU +BBFO 

BD2B PRINTO EQU +BD2B 

BD2E TSTPTR EQU +BD2E 

BBIE TSTKEY EQU #BBIE 

A000 CDBABB CALL GRINIT ;Grafik-Modus einschalten 

A003 CDE7BB CALL GETPAPER ;Hintergrundfarbe bestimmen 

A006 32BDA0 LD _ (PAPER),A 

A009 CD6CAO CALL INITP :Drucker auf 7/72 Zoll einstellen 

A00C 218F01 LD _HL,399 ‚wir fangen oben und 

A0OF 22BEAO LD _ (Y-MERK),HL 

A012 110000 LD DEO ‚links an zu drucken 

A015 3E07 LD A7 ‚leider nur mit 7 Nadeln 

A017 32C0A0 LD _ (ANZAHL),A 

AO1A CD7CAO LLOOP CALL PRTESC ;ESC-Sea. für Grafik 

AO1D 0EOO  LLI LD 00 ;C enthält Bitmuster für Printer 

AOIF 3ACOAO LD  A,(ANZAHL) 

A022 47 LD BA ;B = Dotreihen-Zähler 

A023 E5 BYTLP PUSH HL 

A024 D5 PUSH DE 

A025 C5 PUSH BC 

A026 CDFOBB CALL TSTPOINT ;Farbe des Pixels an der 
‚Position (h//de) bestimmen 

A029 C1 POP BC 

AQA DI POP DE 

A02B 21BDA0 LD _ HL,PAPER 

A02E BE CP HU) ‚Pixelfarbe=Hintergrundfarbe? 

AUF Ei POP HL 

A030 37 SCH ; wenn Pixel <> Paper, dann 

A031 2001 JR NZ,DOT ‚Carry-Flag setzen, sonst 

A033 A7 AND A ‚Carry loeschen 

A034 CB11 DOT RL C ‚Carry ins unterste Bit 
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A036 
A037 
A038 
AO3A 
A03D 
AO3E 
A041 
A042 
A043 
A046 
A047 
A049 
AO4A 
ADAC 
AO4F 
A051 
A052 
A053 
A054 
A055 
A056 
A059 
A0SC 
AOSE 
AOSF 
A061 
A062 
A063 
A065 
A067 
AOGA 
A06C 
AO6E 
A071 
A073 
A076 
A078 
A0TB 


2B 

2B 

10E9 
CDAFAO 
79 
CDA6AO0 
13 

E5 
217F02 
37 
ED52 

Ei 

3805 
2ABEA0 
18CC 
23 

TC 

B5 

Cc8 

2B 
110000 
22BEA0 
3E07 
BD 
2089 
TC 

B4 
20B5 
3E04 
32C0A0 
18AE 
3E1B 
CDAGA0 
3E41 
CDA6AO0 
3E07 
CDA6AO 
c9 


AUTC E5 
A07D 3E42 


AOTF 
A082 
A083 
A085 
A086 
A087 
A089 


CD1EBB 
Ei 

2802 

Ei 

c9 
3EOD 
CDA6A0 


NXTROW 


INITP 


PRTESC 


NOKEY 


DEC 
DEC 
DUNZ 
CALL 


CALL 
INC 
PUSH 


SCF 
SBC 
POP 
JR 


JR 
INC 
LD 
OR 


DEC 


LD 


PUSH 
LD 
CALL 
POP 


HL ‚des C-Registers schieben, 
HL ;HL=HL-2, nächster Punkt, 
BYTLP ‚und das ganze 7 Mal 
TEST ‚Sonderbehandl. der letzten 
AC ‚Bitmuster in Akku übertragen 
PRINT ‚und drucken 

DE 

HL 

HL,639 ‚eine Zeile gedruckt? 
HL,DE 

HL 

C,NXTROW 

HL,(Y-MERK) 

LL1 

HL ;Sonderbehandl. der 

A,H ‚letzten 4 

L 

zZ 

HL 

DE,O ‚Vorbereiten der nächsten 
(Y-MERK),HL ;Druckzeile 

A,7 

L ‚letzte 7-er Reihe? 
NZ,LLOOP 

A,H 

H 

NZ,LLOOP 

A4 ‚dann nur noch 4Reihen 
(ANZAHL),A 

LLOOP 

A,27 ‚für NLA/MX/RYUFX 

PRINT ;ESC AT, um den richtigen 
A‚,65 ‚Zeilenvorschub zu bekommen 
PRINT 

A,7 

PRINT 

HL ;DEL-Taste gedrückt? 
A‚66 ‚wenn ja, dann HC abbrechen 
TSTKEY 

HL 

Z,NOKEY ;DEL war nicht gedrückt 
HL ‚Stack manipulieren 

: ‚umandenRetzukommen 
A,#0D ;CR/LF ausgeben 

PRINT 
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A08C 3E0A LD A10 


A0OBE CDA6AO CALL PRINT 

A091 3EIB LD A227 ‚ESCL 127 2 = Grafik 
A093 CDA6A0 CALL PRINT ‚mit 639 Punkten 
A096 3E4C LD A/76 

A098 CDAGA0 CALL PRINT 

A09B 3ETF LD  A,127 

A0O9D CDAGA0 CALL PRINT 

AOA0 3E02 LD A2 

AOA2 CDA6A0 CALL PRINT 

A0OA5 C9 RET 

AOA6 CD2EBD PRINT CALL TSTPTR ‚Drucker Busy? 
AOA9 38FB JR G,PRINT 

AOAB CD2BBD CALL PRINTOUT ;Zeichen drucken 
ADAE C9 RET 

AOAF 3ACOA0 TEST LD  A,(ANZAHL) ‚Behandlung der letzten 
A0OB2 FED? CP 7 ‚vier Dotreihen 
AOB4 CB RET Z 

A0OB5 AF XOR A 

A0B6 CB11 RL 06 ‚dreimal 0 über Carry 
A0OB8 CB11 RL C ins C-Reg. schieben 
AOBA CB11 RL C 

A0OBC C9 RET 


A0BD 00 PAPER DEFB 0 
AOBE 0000 Y-MERK DEFW 0000 
AOCO 00 ANZAHL DEFB 0 


Zum Abschluß jetzt der versprochene Basic—-Lader. Damit können Sie die 
Programme auch einsetzen, wenn Sie keinen Monitor oder Assembler be- 
sitzen. 


100 REM Grafik-Hardcopy für cpc 464 mit NLQ/MX/RX/FX 
110 REM hardcopy wird mit ’CALL &A000’ aufgerufen 
120 REM text-hardcopy für den cpc 464 

130 REM hardcopy wird mit ’call &a100’ aufgerufen 
140 FOR i = &a000 TO &a0bf 

150 READ byte : POKE i,byte : s = s + byte : NEXT 

160 DATA &CD,&BA,&BB,&CD,&E7,&BB,&32,&BD 

165 DATA &A0,&CD,&6C,8&A0,&21,&8F,&01,&22 

170 DATA &BE,&A0,&11,8&00,8&00,&3E,8&07,8&32 

175 DATA &C0,&A0,&CD,&7C,&A0,&0E,&00,&3A 

180 DATA &C0,&A0,&47,8&E5,&D5,&C5,&CD,&FO 

185 DATA &BB,&C1,&D1,&21,&BD,&A0,&BE,&E1 

190 DATA &37,&20,&01,&A7,&CB,&11,&2B,&2B 

195 DATA &10,&E9,&CD,&AF,&A0,&79,&CD,&A6 

200 DATA &A0,8&13,&E5,&21,&7F,&02,&37,& ED 

205 DATA &52,&E1,&38,&05,&2A,&BE,&A0,&18 
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210 DATA &CC,&23,&7C,&B5,&C8,&2B,&11,&00 
215 DATA &00,&22,&BE,&A0,&3E,&07,&BD,&20 
220 DATA &B9,8&7C,8&B4,&20,&B5,&3E,8&04,8&32 
225 DATA &C0,&A0,8&18,&AE,&3E,&1B,&CD,&A6 
230 DATA &A0,&3E,8&41,&CD,&A6,8&A0,&3E,&07 
235 DATA &CD,&A6,&A0,&C9,&E5,&3E,&42,&CD 
240 DATA &1E,&BB,&E1,&28,8&02,&E1,&C9,&3E 
245 DATA &0D,&CD,&A6,&A0,&3E,&0A,&CD,&A6 
250 DATA &A0,&3E,&1B,&CD,&A6,&A0,&3E,&4C 
255 DATA &CD,&A6,&A0,&3E,&7F,&CD,&A6,&A0 
260 DATA &3E,8&02,&CD,&A6,&A0,&C9,&CD,&2E 
265 DATA &BD,&38,&FB,&CD,&2B,&BD,&C9,&3A 
270 DATA &C0,&A0,&FE,&07,&C8,&AF,&CB,&11 
275 DATA &CB,8&11,&CB,&11,&C9,&00,&00,&00 
280 IF s <> 23767 THEN PRINT “error in grafik-hc“ : END 
290 PRINT “grafik-hc korrekt geladen“ 

300 FOR i = &a100 TO &a162:s=0 

310 READ byte : POKE i,byte:s = s + byte : NEXT 
320 DATA &CD,8&78,&BB,&22,8&64,&A1,&CD,&11 
325 DATA &BC,&17,&32,863,&A1,&21,&01,&01 
330 DATA &22,8&66,&A1,&3A,&63,&A1,&47,&0E 
335 DATA &14,8&C5,&E5,&CD,&75,&BB,&E1,&CD 
340 DATA &60,&BB,&C1,&38,&02,&3E,&20,&CD 
345 DATA 8&58,&A1,&E5,&C5,&3E,&42,&CD,&1E 
350 DATA &BB,&C1,&E1,&20,&1C,8&24,&0D,&20 
355 DATA &E0,8&10,&DC,&3E,&0D,&CD,&58,&A1 
360 DATA &3E,&0A,&CD,8&58,&A1,&2A,&66,&A1 
365 DATA &2C,&22,8&66,&A1,&7D,&FE,&1A,&20 
370 DATA &C2,&2A,864,&A1,&CD,&75,&BB,&C9 
375 DATA &C5,&CD,&2E,&BD,&38,&FB,&CD,&31 
380 DATA &BD,&C1,&C9 

390 IF s <> 11873 THEN PRINT “error in text-hc“ : END 
400 PRINT “text-hc korrekt geladen“ 
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2.4 Die Behandlung von Interrupts im Betriebssystem 


Die wohl schnellste und leistungsfähigste Möglichkeit, innerhalb eines 
Betriebssystems auf bestimmte Ereignisse zu reagieren, ist die Inter- 
rupt-Technik. 

Sie wissen sicher, was das ist. Falls nicht, hier das Wesentliche in dürren 
Worten: 

Ein Interrupt (auf Deutsch: eine Unterbrechung) ist in der Regeleein Hard- 
wareereignis, welches ein laufendes Programm über sein Auftreten in- 
formiert. Abhängig von diesem Ereignis soll die Software jetzt zugeord- 
nete Aktionen durchführen, und zwar, je nach Dringlichkeit, möglichst 
schnell. Eine derartige Aktivität ist z.B. das Scrollen des Bildschirms wäh- 
rend der Dunkelphase des Elektronenstrahls, damit es für den Betrachter 
möglichst flimmerfrei über die Bühne geht. 

Diese Interupttechnik bietet den Vorteil, den übrigen Programmablauf 
wirklich nur für eine notwendige Aktion zu unterbrechen, so daß die Soft- 
ware nicht dauernd nachschauen muß, ob nun etwas passiert ist oder 
nicht. 

Es gibt naturgemäß viele Möglichkeiten, eine solche Fähigkeit in ein Be- 
triebssystem zu integrieren (wie böse Zungen behaupten, ebenso viele, 
wie es Programmierer gibt), aber wir müssen zugeben, daß uns eine sol- 
che Variante, wie sie uns im CPC 464 geboten wird, noch nicht unterge- 
kommen ist. 


Es handelt sich hier um einen raffinierten Mix von Hardwareinterrupt 
(Unterbrechung, wenn nötig) und Polling (regelmäßig nachschauen, was 
los ist). 

Wie dringend eine 'Anfrage’' behandelt werden soll, entscheidet der Pro- 
grammierer der zugehörigen Routine. Im Klartext: 

Es gibt in der Maschine nur einen einzigen Interrupt, und das ist der Ti- 
mer (im System 'Fast Ticker’ genannt), der alle 1/300s eine Unterbre- 
chung erzeugt. Alles Weitere ergibt sich hieraus, wie Sie sehen werden. 


Es ist hier an der Zeit, einige neue Begriffe einzuführen, auf die Sie ab hier 
und auch im Rom-Listing öfter stoßen werden. 

1. EVENT bedeutet ganz einfach Ereignis. Verstehen Sie in diesem Zu- 
sammenhang bitte eine Art softwaregesteuerten Interrupt. 

2. FRAME FLYBACK ist nichts anderes als der oben erwähnte Strahl- 
rücklauf des Bildschirmes, was alle 1/50s geschieht. 

3. TICKER ist ein Vielfaches des Fast Ticker und erscheint ebenfalls alle 1/ 
50s. 


Das Ganze wird einfach so gehandhabt, daß der Programmierer, also u.U. 
Sie, bestimmt, welche Routinen seines Programmes wie oft zum Zeit- 
punkt Frame Flyback, Ticker oder gar Fast Ticker angesprungen werden 
sollen, und zwar automatisch, also ohne sein weiteres Zutun. Als Vorbe- 
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reitung dazu ist dem Betriebssystem lediglich, neben ein paar weiteren 
Kleinigkeiten, einmal die Adresse der Routine(n) mitzuteilen. Das Weite- 
re findet sich. 

Diese bereitzustellende Information nennt sich EVENT BLOCK. Hierin 
ist hinterlegt, wie oft und wann die Routine aufgerufen werden soll, ob 
vor evtl. weiteren Routinen (Prioritätensteuerung) oder ob es damit Zeit 
hat, usw. 


Bei jedem Eintritt von Ticker, Fast Ticker oder Frame Fly schaut das Be- 
triebssystem nach, ob es zugehörige Event-Blocks gibt. Falls ja, werden 
sie, entsprechend ihrer Priorität, aufgerufen. Einige Event-Blocks gibt 
es übrigens immer, z.B. die Aktion, zum Zeitpunkt Frame Fly das Farbre- 
gister zu versorgen. 


Die einem bestimmten Ereignis zugeordneten Blocks sind durch Pointer 
miteinander verkettet, so daß sich das Betriebssystem von einem zum 
anderen durchhangeln kann. Demzufolge ist es ohne Bedeutung, an wel- 
cher Adresse ein solcher Block steht, solange er sich nur in den zentralen 
32k des Ram befindet. Diese kleine Einschränkung muß deswegen ge- 
macht werden, da dieser Bereich der einzige ist, auf den jederzeit, unab- 
hängig von der übrigen Rom-Konfiguration, zugegriffen werden kann. 
Soll ein solcher Block ausgeführt werden, so wird er in eine andere Kette 
eingereiht, die sog. Pending Queue. Dieser Vorgang heißt Kicken. 

Die Pending Queue wird am Ende der systemeigenen Interrupt-Routine 
abgearbeitet. Sie sagen sich sicher, daß ein vorhandener Block selbstver- 
ständlich ausgeführt werden soll, wozu also noch extra in eine besondere 
Schlange einreihen? 

Nun, so selbstverständlich ist das nicht, denn Sie haben durchaus die 
Möglichkeit, die Behandlung eines Blockes für eine Weile auszusetzen, 
ohne daß Sie Ihn aus der Primärqueue ausketten müssen, was übrigens 
bei Event-Blocks der Ticker-Queue besonders komfortabel zu machen 
ist. 

Übrigens: Nicht daß Sie glauben, es gäbe in dem Rechner nur diesen Ti- 
mer-Interrupt. Hardware-Freaks haben ohne weiteres die Möglichkeit, 
via Expansion—Bus einen Interrupt zu erzeugen (asynchron), nur sollte 
dann auch eine entsprechende Routine vorhanden sein, die den zugehö- 
rigen Event -Block 'kickt'. 


Werden wir doch einmal konkret. Was ist zu tun, wenn von diesem Me- 
chanismus Gebrauch gemacht werden soll? 
Zunächst wird natürlich ein Event—-Block angelegt, dessen Aufbau wie 
folgt vorgeschrieben ist. Allen Event-Arten ist folgender Teil gemein- 
sam: 
Byte0+1Kettungsadresse für die Pending Queue. Dieses Feld darf nur 
vom Betriebssystem versorgt werden! 
Byte2 Zähler 
Solange der Zähler > 0 ist, verbleibt der Block in der Pending 
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Queue, d.h. die Routine wird sooft ausgeführt, bis er =0 ist. 
Ist der Zähler < 0 (d.h. > 127), bleibt der Block in der betreffen- 
den Kette (Ticker usw.). Auch ein Kicken führt in diesem Fall 
nicht zur Ausführung der Routine, was ansonsten ein Erhöhen 
des Zählers und damit auch den Ansprung bei nächster Gele- 
genheit zur Folge hätte. 

Byte3 Klasse 
BitO = 1 = Bei der Sprungadtresse handelt es sich um eine Near 
Address, d.h. sie liegt im zentralen Ram, bzw. unteren Rom. 
BitO = 0 = Die Sprungadlesse ist eine Far Address, also im obe- 
ren Rom zu suchen. 
Die Bits 1-4 bestimmen die Priorität. 
Bit5 muß immer =0 sein! 
Bit6 = 1 = Express. Die Express-Events haben eine höhere 
Priorität als normale Events mit der höchsten Priorität. 
Bit7 = 1 = Asynchroner Event. Diese Events haben keine War- 
teschlange, sondern werden beim Kicken (KL EVENT) sofort in 
die Interrupt Pending Queue eingereiht. Handelt es sich sogar 
um einen Express, wird er auf der Stelle ausgeführt, ansonsten 
erst am Ende der Interrupt—Routine. i 
Achtung: Die Routine für asynchrone Express-Events muß im 
zentralen Ram liegen! 

Byte4+5 Adresse der Routine 

Byte6 Rom Select, wenn Sprungadresse vom Typ Far ist, sonst unbe- 
nutzt. 

Byte7 Hier beginnt das Benutzerfeld, welches beliebig lang sein darf. 
Es kann zur Übergabe von Parametern an die Routine dienen. 
Beim Ansprung einer Event-Routine enthält hl die Adresse 
von Byte 5 des Event-Blocks, wenn es sich um eine Near Ad- 
dress handelte, ansonsten die Adresse von Byte 6. 
Dieser Umstand ermöglicht es, mehrere Blocks für die gleiche 
Routine anzulegen, welche anhand der Parameter sehen kann, 
von welchem Block sie gerufen wurde. 


Abhängig vom Typ des Events, also Ticker, Fast Ticker oder Frame Fly, 

werden noch zwei oder sechs Bytes dem gemeinsamen Teil vorange- 

stellt. Im Falle Fast Ticker und Frame Fly sind es nur zwei Bytes für die 

Kettung (nicht verändern!) in der Fast Ticker List, bzw. Frame Fly List. 

Die sechs Bytes für den Ticker haben folgende Bedeutung: 

Byte 0+1 Kettung für Ticker List (nicht verändern!) 

Byte2+3 Tick Count bestimmt, wie oft ein Ticker erscheinen muß, bevor 
der Block einmal gekickt wird. 

Byte4+5 Reload Count gibt an, mit welchem Wert der Tick Count nach 
Ablauf wieder geladen werden soll. 


Nachdem Sie also Ihren Block mit den Werten versorgt haben, soweit sie 
Ihnen bekannt sind (das sollten wenigstens die letzten 5 Bytes (Event 
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Count=0) des gemeinsamen Teils sein), brauchen Sie nur noch hl mit der 
Startadresse Ihres Blockes laden (im Falle Ticker gehört noch der Tick 
Count nach de und der Reload Count nach bc) und, jenach dem, die Rou- 
tine KL ADD TICKER, KL ADD FAST TICKER oder KL ADD FRAME 
FLY anspringen, und ab geht die Post. 

Zum Aushängen des Blocks aus der Liste benutzen Sie die Routinen KL 
DEL TICKER usw., wobei hl wieder die Adresse, diesmal die des zu ent- 
fernenden Blocks, enthalten muß. 


Versuchen Sie es einmal und schauen Sie nach, wie das Betriebssystem 


es macht, denn immer wiederkehrende Prozesse werden auch dort über 
den Event—-Mechanismus abgehandelt. 
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2.5 Das Betriebssystem — ROM — Listing 


Allgemein zum Rom-Listing möchten wir noch anmerken, daß wir uns 
zwar die größte Mühe gegeben haben, es für Sie brauchbar herzurichten, 
aber es bleiben durchaus noch weiße Flecken auf unserer 'Landkarte’, 
und zwar immer dort, wo es nicht um die Systemstruktur als solche geht, 
sondern ganz spezielle Funktionen durchgeführt werden. Dazu zählen 
der CASSETTE MANAGER, der GRAPHICS MANAGER und der 
SOUND MANAGER. Derartige Dinge sind naturgemäß schwer zu inter- 
pretieren, da der Gedankengang des jeweiligen Programmierers unmög- 
lich nachzuvollziehen ist. Wir hoffen, daß Sie das nicht als allzu große Ein- 
schränkung empfinden. Der Nutzung der Routinen steht natürlich nichts 
im Wege. ; 


Hinweise zum Ansprung bestimmter Programmteile mit den Übergabe- 
parametern finden Sie im Vorwort zu jedem Pack, soweit sie zum häufige- 
ren Gebrauch geeignet erscheinen. 


Die Übergabeparameter aller vektorierter Routinen, brauchbar oder 
nicht, finden Sie im Schneider Firmware Manual, aus dessen englischer 
Version wir auch die Namen der Packs entnommen haben, um, falls Sie im 
Besitz desselben sind, durch Neuschöpfungen keine Verwirrung zu stif- 
ten. 


2.5.1 KERNEL (KL) 


Das Kernel, wie der Name schon vermuten läßt, hält die Fäden in der 
Hand. 

So ist es für die Ablaufsteuerung zuständig, d.h. Interruptbehandlung 
und damit verbunden die Bearbeitung von Events, Bearbeitung der Re- 
starts, Einhängen von Romerweiterungen und Umschalten der Speicher- 
konfiguration. 

Für den Anwender eventuell brauchbar sind die Routinen im Zusammen- 
hang mit dem Event—-Mechanismus. Sehen Sie hierzu Kapitel 2.4. 
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0000 01897F 
0003 ED49 

0005 C38005 
0008 C382B9 
000B C37CB9 


000E C5 
000oF C9 


0010 C316BA 
0013 C310BA 


0016 D5 
0017 C9 


0018 C3BFBY 
001B C3B1B9 
001E EI 


001F 00 
0020 C3CBBA 


0023 C3B9B9 


0026 00 
0027 00 
0028 C32EBA 


002B 00 
002C ED49 
002E DI 
002F FB 


nop 
out 
ExXX 
ei 


KERNEL 


bc,7fB9 U Rom dis., Mode 1, res Teiler 
(o),c 
0580 RESET CONT'D 


B982 (0413) RST 1 LOW JUMP CONT'D 
B97C (040D) KLLOW PCHL CONT’D 


be 
jp (be) 


BA16(04A7) RST2LOW SIDE CALL CONT'D 
BA10(04A1) KL SIDE PCHLCONT’D 


de 
jp (de) 


BYBF (0450) RST 3 LOW FAR CALL CONT'D 
B9B1 (0442) KLFAR PCHL CONT’D 
h) 


BACB(055C0) RST4RAMLAMCONT'D 
B9B9 (044A) KLFAR ICALL CONT’D 


BA2E (04BF) RST 5 FIRM JUMP CONT'D 


(d),c 


Are ASTEGUSER 


0030 F3 
0031 DI 
0032 212800 
0035 71 
0036 1808 
0038 C339B9 


003B C9 
0030 00 
003D 00 
003E 00 
003F 00 


di 
EXxX 
Id 
Id 
jr 
ip 
ret 


nop 
nop 
nop 
nop 


RSTO nach High Kernel Restore 
h1,002B 
(hi),c 
0040 
B939 (03CA) RST 7 INTERRUPT ENTRY CONT'D 


EXT INTERRUPT 
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KERNEL 


Kerr Bishierher wird ins Ram kopiert 


0040 CBD1 set 2,c L Rom disable 
0042 18E8 jr 002C 
rer Restore High Kernel Jumps 
0044 214000 Id h1,0040 0037 

0047 2D dec | bis 

0048 TE Id a,(h) 0000 

0049 77 Id (hl),a ins Ram 

004A 20FB jr nz,0047 kopieren 

0046 3EC7 Id a,C7 RSTOnach 

004E 323000 Id (0030),a 0030 

0051 219103 Id h1,0391 Jump 

0054 110089 Id de,B900(0391) Block 

0057 01E901 Id bc,01E9 kopieren 

005A EDBO Idir 
er KLCHOKEOFF 
0050 F3 di 

005D 3AABB1 Id a,(B1AB) (fd. Rom-Konfig.) 
0060 ED5BAYBI Id de,(B1A9) (Einsprung Ifd. Rom) 
0064 06C0 Id b,C0 Firmware- 

0066 2100B1 Id h1,8100 Ram 

0069 3600 Id (hi),00 bis 

006B 23 inc hl B1CO 

006C 10FB dinz 0069 löschen 

006E 47 Id b,a 

006F OEFF Id c,FF 

0071 A9 xor  C war ein Rom on ? 
0072 CO ret nz ja> 

0073 4F ld c.a 

0074 5F ld e,a 

0075 57 ld d,a 

0076 CI ret 

0077 7C ld a,h 

0078 B5 or l 

0079 79 ld ac 

007A 2004 jr nz,0080 

007C 7D ld a,l falls hl=0 

007D 2106C0 ld hl,C006 Default laden 
0080 32A8B1 ld (B1AB),a (lfd. Exp.-Rom) 
0083 32ABB1 ld (B1AB),a (lfd. Rom-Konfig.) 
0086 22A9B1 ld (B1A9),hl (Einsprung lfd. Rom) 
0089 21FFAB ld hl,ABFF Params für 

008C 114000 ld de,0040 RST3 laden 

008F O1FFBO ld bc,BOFF 

0092 3100C0 ld sp,C000 

0095 DF rst 3 FAR CALL 

0096 A9B1 dw B1A9 

0098 C7 ıst 0 
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KERNEL 


KEEEE E ee KLTIMEPLEASE 


0099 F3 

009A ED5B89B1 
009E 2A87B1 
00A1 FB 

00A2 C9 


di 
Id de,(B189) 
Id hl,(B187) 


ei 
ret 


(Timer high) 
(Timer low) 


Kr KLTIMESET 


00A3 F3 

00A4 AF 

00A5 328BB1 
00A8 ED5389B1 
00AC 2287B1 
00AF FB 
00B0 C9 


di 
xor a 

Id (B18B),a 

Id (B189),de 
d Bier) 

ei 


ret 


(Timerflag) 
(Timer high) 
(Timer low) 


Kr ea Scan Events 


00B1 2187B1 
00B4 34 
00B5 23 
00B6 28FC 
00B8 O06F5 
00BA ED78 
00BC IF 
00BD 3008 
00BF 2A8CB1 
0002 7C 
00C3 B7 
00C4 C45301 
00C7 2ABEB1 
00CA 7C 
00CB B7 
00CC C45301 
00CF CD611F 
00D2 2192B1 
00D5 35 
00D6 CO 
00D7 3606 
00D9 CDB71B 
00DC 2A90B1 
00DF 7C 
00E0O B7 
00E1 C8 
00E2 2104B1 
00E5 CBC6 
00E7 C9 


00E8 2B 
00E9 3600 
00EB 2B 
00EC 3A01B1 
00EF B7 
00FO 200C 
00F2 2200B1 
00F5 2202B1 


Id h1,8187 
inc (hi) 

inc hl 

jr 2,00B4 
Id b,F5 

in a,(c) 

ra 

jr nc,00C7 
ld hl,(B18C) 
ld a,h 

or a 

call nz,0153 
ld hl,(B18E) 
ld a,h 

or a 

cal nz,0153 
cal 1F61 

ld h1,B192 
decc (hl) 

ret nz 

ld (hl),06 
cal  1BB7 

ld h1,(B190) 
ld a,h 

or a 

ret z 

ld h1,B104 
set 0,(hl) 

ret 

decc hl 

ld (hl),00 
decc hl 

ld a,(B101) 
or a 

jr nz,00FE 
ld (B100),hl 
ld (B102),hl 


Timer low 
update 
Timer 


Port B 

VSYNC ? 

nein > 

(Start Frame Fly Chain) 


Kick Event 
(Start Fast Ticker Chain) 


Kick Event 
Scan Sound Queues 
Count for Ticker 


Update Key State Map 
(Start Ticker Chain) 


div. Flags f. Int. Rout. 
Ticker Chain muß noch 
bearbeitet werden 


(Start Int Pending Queue) 
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00F8 
00FB 
O00FD 


00FE 
0102 
0105 
0106 
0107 
0108 
0109 


010A 
010E 
0111 

0112 

0113 

0114 

0117 

0119 
011B 
011D 
0120 
0121 

0122 
0124 
0125 
0126 

0127 
012B 
012C 
012F 
0130 
0132 
0135 
0137 
0139 
013B 
013C 
013D 
0140 
0141 

0142 
0145 
0146 
0147 
0149 
014B 
014C 
014D 
O14E 
0152 


2104B1 
CBF6 
cg 


ED5BO2B1 


3187B1 


ED7BO5B1 
c9 


ld 
set 
ret 


ld 
ld 
ex 


inc 
ld 
ret 


ld 

ld 
push 
push 
push 
ld 
bit 

jr 
set 


ld 
or 
jr 
ld 
inc 


ld 
inc 
call 


bit 


pop 


KERNEL 


h1,B104 div. Flags f. Int. Rout. 
6,(hl) 


de,(B102) 
(B102),hl 
de,hl 
(hl),e 

hl 

(hl),d 


(B105),sp (sp save) 

sp,B187 Timer low 

hl 

de 

bc 

hl,B104 div. Flags f. Int. Rout. 
6,(hl) 

2,0139 

7,(hl) 

h1,(B100) (Start Int Pending Queue) 
a,h 

a 

2,0132 

e,(hl) 

hl 

d,(hl) 

(B100),de (Start Int Pending Queue) 
hl 


020A 


011D 

hl,B104 div. Flags f. Int. Rout. 
0,(hl) Ticker Queue pending ? 
2,0149 nein Ü; 

(hl),00 


af,af' 

0189 Ticker Chain bearbeiten 
a 

af,af' 

h1,B104 div. Flags f. Int. Rout. 
a,(hl) 

a noch etwas zu bearbeiten ? 
nz,011B ja 

(hl),00 alle Flags löschen 

bc 

de 

hl 

sp,(B105) sp rückladen 
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KERNEL 


rer Kick Event 


0153 5E Id e,(hl) 

0154 23 inc hl 

0155 7E Id a,(hl) 

0156 23 inc hl 

0157 B7 or a 

0158 CAE201 ip z,01E2 KLEVENT 

015B 57 Id d,a 

015C D5 push de 

015D CDE201 cal O01E2 KLEVENT 

0160 EI pop hl 

0161 18F0 jr 0153 Kick Event 
KR KLNEWFRAMEFLY 
0163 E5 push hl 

0164 23 inc hl 

0165 23 inc hl 

0166 CDD201 cal 01D2 KLINITEVENT 

0169 Ei pop hl 
Be  KLADD FRAME FLY 
016A 118CB1 Id de,B18C Start Frame Fly Chain 

016D C37303 ip 0373 Add Event 

0170 118CB1 Id de,B18C Start Frame Fly Chain 

0173 C38203 jp 0382 Delete Event 
ter KLNEW FAST TICKER 
0176 E5 push hl 

0177 23 inc hl 

0178 23 inc hl 

0179 CDD201 cal 01D2 KLINIT EVENT 

017C E1 pp hl 
Br KLADD FAST TICKER 
017D 118EB1 Id de,B18E Start Fast Ticker Chain 

0180 037303 ip 0373 Add Event 
KR ara Delete Fast Ticker 
0183 118EB1 Id de,Bi8E Start Fast Ticker Chain 

0186 038203 ip 0382 Delete Event 
re Ticker Chain bearbeiten 
0189 2A90B1 Id hl,(B190) (Start Ticker Chain) 

018C 7C Id a,h 

018D B7 or a 

018E C8 ret z 

018F 5E Id e,(hl) 

0190 23 inc hl 

0191 56 Id d,({hl) 

0192 23 inc hl 

0193 4E Id c,(hl) 

0194 23 inc hl 

0195 46 Id b,(hi) 

0196 78 Id a,b 
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0197 Bi 
0198 2816 
019A 0B 
019B 78 
0190 B1 
019D 200E 
019F D5 
01A0 23 
01A1 23 
01A2 ES 
01A3 23 
01A4 CDE201 
01A7 E1 
01A8 46 
0149 2B 
01AA 4E 
01AB 2B 
01AC DI 
01AD 70 
O1AE 2B 
O1AF 71 
01B0 EB 
01B1 18D9 


DEZ zz zz zZ z zz zz z zz zz; 


01B3 E5 
01B4 23 
01B5 23 
01B6 F3 
01B7 73 
01B8 23 
0189 72 
01BA 23 
01BB 71 
01BC 23 
01BD 70 
O1BE Ei 
01BF 119081 
01C2 C37303 


LEZEZZZZZZZZZZZ ZZ ZZ; 


0105 1190B1 
01C8 CD8203 
01CB DO 
01CC EB 
01CD 23 
0ICE 5E 
O1CF 23 
01D0 56 
01D1 C9 


or 
jr 
dec 
Id 

or 

jr 
push 
inc 
inc 
push 
inc 
call 
pop 
Id 
dec 
Id 
dec 
pop 
Id 
dec 
Id 

ex 

jr 


push 
inc 
inc 
di 
Id 
inc 
Id 
inc 
Id 
inc 
Id 
pop 
Id 
ip 


Id 
call 
ret 
ex 
inc 
Id 
inc 
Id 
ret 


KERNEL 


01E2 KLEVENT 


de,B190 Start Ticker Chain 
0373 Add Event 


KR rer Delete Ticker 


de,B190 Start Ticker Chain 
0382 Delete Event 
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KERNEL 


KR rer KLINITEVENT 


01D2 F3 
01D3 23 
01D4 23 
01D5 3600 
01D7 23 
01D8 70 
01D9 23 
01DA 73 
01DB 23 
01DC 72 
01DD 23 
01DE 71 
01DF 23 
01E0O FB 
01E1 C9 


di 
inc 
inc 
Id 
inc 
Id 
inc 
Id 
inc 
Id 
inc 
Id 
inc 
ei 
ret 


hi 
hl 
(nı),00 
hl 
(hl), 
hl 
h),e 
hi 
(h),d 
hl 
(hi),c 
hi 


tt KLEVENT 


01E2 23 
01E3 23 
01E4 F3 
01E5 TE 
01E6 34 
01E7 FA0602 
01EA B7 
O1EB 2013 
01ED 23 
O1EE 7E 
01EF 2B 
01FO B7 
01F1 F22F02 
01F4 08 
01F5 3012 
01F7 08 
01F8 87 
01F9 F2E800 
01FC 23 
01FD 23 
O1FE 1823 
0200 08 
0201 3801 
0203 FB 
0204 08 
0205 CI 


0206 35 
0207 18F7 
0209 08 
020A FB 
020B 7E 
020C B7 
020D F8 
020E ES 
020F CD1C02 
0212 El 


inc 
inc 
di 
Id 
inc 
IP 
or 
jr 
inc 
ld 
dec 
or 
jp 
ex 
jr 
ex 
add 
jp 
inc 
inc 
jr 
ex 
jr 
ei 
ex 
ret 


dec 
jr 

ex 

ei 

ld 

or 
ret 
push 
call 
pop 


hl 
hl 


a,(hl) 

(hi) 

m,0206 Event Ont >127/<0 

a 

nz,0200 Event Cnt >0 & <127 
hl 

a,(hl) 

hl 

a 

p,022F Sync Event einhängen 
af,af' 

nc,0209 

af,af' 

a,a 

p,00E8 

hl 

hl 

0223 

af,af' 

c,0204 


af,af' 


(hl) 
0200 
af,af' 


a,(hl) 
a 

m 

hl 
021C 
hl 
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KERNEL 


0213 35 dec (hl) 

0214 C8 ret z 

0215 F20EO2 jp p,020E 

0218 34 inc (hl) 

0219 C9 ret 
Br KLDOSYNC 
021A 23 inc hl 

021B 23 inc hl 

0210 23 inc hl 

021D 7E Id a,(hl) 

021E 23 inc hl 

021F IF rra 

0220 D2B9B9 jp nc,B9B9(044A) KLFARICALLCONT'D 
0223 5E Id e,(hl) 

0224 23 inc hl 

0225 56 Id d,(hl) 

0226 EB ex de,hl 

0227 E9 jp (hi) 


Bere KLSYNO RESET 


0228 210000 Id h1,0000 


022B 2294B1 Id (B194),hl 

022E C9 ret 
rer Sync Event einhängen 
022F E5 push hl 

0230 47 Id b,a Priorität & b 
0231 1196B1 ld de,B196 

0234 EB ex de,hl 

0235 2B dec hl 

0236 2B dec hl 

0237 56 ld 4,(hl) Adr. nächster 
0238 2B decc hl Event Block 
0239 5E ld e,(hl) D de 

023A 7A ld a,d 

023B B7 or a 

023C 2807 jr 2,0245 

023E 13 inc de 

023F 13 inc de 

0240 13 in de 

0241 1A ld a,(de) lfd Priorität > ge- 
0242 B8 cp b fundene Priorität? 
0243 30EF jr nc,0234 nein D) 

02455 Di pop de 

0246 1B decc de 

0247 23 in hl 

0248 7E ld a,(hl) 

0249 12 ld (de),a 

024A 1B dec de 

024B 72 ld (hl),d 

024C 2B dec hl 

024D TE ld  a,{hl) 

024E 12 ld (de),a 

024F 73 ld (hl),e 
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KERNEL 


0250 08 ex af,af' 

0251 3801 jr c,0254 

0253 FB ei 

0254 08 ex af,af' 

0255 CI ret 
Ber KLNEXTSYNC 
0256 F3 di 

0257 2A93B1 Id h1,(B193) (Start Sync Pending Queue) 
025A 7C Id a,h 

025B B7 or a 

0250 2817 jr 2,0275 

025E E5 push hl 

025F 5E Id e,(hl) 

0260 23 inc hl 

0261 56 Id d,(hl) 

0262 23 inc hl 

0263 23 inc hl 

0264 3A95B1 Id a,(B195) (Priorität Ifd. Event) 

0267 BE cp (hi) 

0268 300A jr nc,0274 

026A F5 push af 

026B 7E Id a,(hl) 

0260 3295B1 Id (B19),a (Priorität Ifd. Event) 

026F ED5393B1 Id (B193),de (Start Sync Pending Queue) 
0273 Fi pop af 

0274 Ei pp hl 

0275 FB ei 

0276 C9 ret 
Br KLDONESYNC 
0277 329581 Id (B19),a (Priorität Ifd. Event) 

027A 23 inc hl 

027B 23 inc hl 

027C 35 decce hi) 

027D C8 ret z 

027E F3 di 

027F F22F02 jp p,022F Sync Event einhängen 
0282 34 inc (hi) 

0283 FB ei 

0284 C9 ret 
nn KLDELSYNCHRONOUS 
0285 CD8E02 cal 028E KL DISARM EVENT 

0288 1193B1 Id de,B193 Start Sync Pending Queue 
028B C38203 jp 0382 Delete Event 
BB KLDISARM EVENT 
028E 23 inc hl 

028F 23 inc hl 

0290 36C0 Id (h),CO 

0292 2B dee hl 

0293 2B dc hl 

0294 C9 ret 
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KERNEL 


Br KLEVENTDISABLE 


0295 2195B1 Id hl,B195 Priorität Ifd. Event 
0298 CBEE set 5,(hl) 

029A C9 ret 
Kr KLEVENTENABLE 
029B 2195B1 Id hl,B195 Priorität Ifd. Event 
029E CBAE res 5,(hl) 

02A0 C9 ret 
Br KLLOGEXT 
02A1 ES push hl 

02A2 ED5BA6BI Id de,(B1A6) 

02A6 22A6B1 Id (B1A6),hl 

02A9 73 Id (hi),e 

02AA 23 inc hl 

02AB 72 Id (hl),d 

02AC 23 inc hl 

02AD 71 Id (h)),c 

02AE 23 inc hl 

02AF 70 Id (hl),b 

02B0 EI pp hl 

02B1 C9 ret 
Br KL FIND COMMAND 
02B2 1196B1 Id de,B196 auszuführender Befehl 
02B5 011000 Id bc,0010 

02B8 CDA6BA cal BAA6(0537) Rom off & Konfig save 
02BB EB ex de,hl 

02BC 2B decc hl 

02BD CBFE set 7,(hl) 

02BF 2AA6B1 Id h1,(B1A6) 

0202 7D Id a,l 

0203 1810 jr 02D5 

0205 E5 push hl 

0206 23 inc hl 

0207 23 inc hl 

0208 4E Id c,(hl) 

0209 23 inc hl 

02CA 46 Id b,(h)) 

02CB CDF402 cal O02F4 

02CE DI pop de 

02CF D8 ret c 

02D0 EB ex de,hl 

02D1 7E Id a,(hl) 

02D2 23 inc hl 

02D3 66 Id h,(hl) 

02D4 6F Id 1,a 

02D5 B4 or h 

02D6 20ED jr nz,02C5 

02D8 OEFF Id c,FF 

02DA 0C inc cc 

02DB CD83BA cal BA83(0514) KLPROBE ROM CONT’D 
02DE F5 push af 

02DF E603 and 03 
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02E1 
02E2 
02E5 
02E7 
02E8 
02E9 
02EB 
02EC 
02ED 
02EF 


02FO 
02Fi 


02F4 
02F7 
02F8 
02F9 
02FB 
02FC 
02FD 
O02FF 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
030A 
030D 
030E 
030F 
0311 
0312 
0313 
0314 
0316 
0317 
0319 
031A 
031B 
031C 
031E 
031F 
0320 
0321 
0322 
0323 
0325 
0326 


47 
CCF402 
3809 
Fi 

87 
30EF 
79 

B7 
28EB 
c9 


Fi 
C30B06 


2104C0 
78 

B7 
2804 
60 

69 
0EFF 
CD7EBA 
C5 

5E 

23 

56 

23 

EB 
1817 
0196B1 
0A 

BE 
2008 
23 

03 

87 
30F7 
EB 
180C 
TE 

23 

87 
30FB 
13 

13 

13 

TE 

B7 
20E5 
C1 
C38CBA 


call 
jr 
pop 
add 
jr 
Id 
or 
jr 
ret 


pop 
Ip 


Id 
Id 
or 
jr 
Id 
Id 
Id 
call 
push 
Id 
inc 
Id 
inc 
ex 
jr 
Id 
Id 
cp 


inc 
inc 
add 
jr 
ex 
jr 
Id 
inc 
add 
jr 
inc 
inc 
inc 
Id 
or 
jr 
pop 
Jp 


b,a 
z,02F4 
c,02F0 
af 

aa 
nc,02DA 
a,C 


a 
2,02DA 


af 
060B 


hl,C004 
a,b 


a 
z,02FF 

h,b 

Ic 

FF 

BATE (050F) 
bc 


e,(hl) 


a,h) 
a 


nz,030A 
bc 
BABC (051D) 


KERNEL 


MC START PROGRAM 


KL ROM SELECT CONT'D 


auszuführender Befehl 


KL ROM DESELECT CONT'D 
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KERNEL 


kr KLROMWALK 


0329 
032B 
032E 
032F 
0331 


AEEZZEZZZZZZZZZZZ ZZ 


0332 
0333 
0335 
0336 
0339 
033C 
033E 
033F 
0341 

0342 
0345 
0346 
0347 
0348 
034B 
034F 
0351 

0352 
0353 
0354 
0355 
0356 
0359 
035A 
035D 
035E 
035F 
0360 


0363 
0364 
0365 
0366 
0367 
0368 
036A 
036B 
036C 
036D 
036E 
036F 
0370 
0371 


0E07 
CD3203 
0D 
20FA 
cg 


79 
FEO8 
DO 
CD7EBA 
3A00CO 
E603 
3D 
201F 
05 
CD06CO 
D5 

23 

EB 
21AAB1 
ED4BABB1 
0600 

09 

09 

73 

23 

72 
2IFCFF 
19 
CDA102 
2B 

DI 

C1 
C38CBA 


TE 
BB 
23 
TE 
2B 
2003 
BA 
37 
08 
B7 
C8 
6E 
67 
18F0 


Id 
cp 
ret 
call 
Id 
and 
dec 
jr 
push 
call 
push 
inc 
ex 
Id 
Id 
Id 
add 
add 
Id 
inc 
Id 
Id 
add 
call 
dec 
pop 
pop 
Ip 
Id 
cp 
inc 
Id 
dec 
jr 
cp 
scf 
ret 
or 
ret 
Id 
Id 
jr 


c,07 

0332 KLINIT BACK 
c 

nz,032B 


BERKER rer KLINITBACK 
a,C 

08 

nc 

BATE (050F) KLROM SELECT CONT'D 
a,(C000) 

03 

a 

nz,0360 

bc 

C006 

de 

h 

de,hl 

h1,BIAA 

bc,(B1A8) (Ifd. Exp.-Rom) 

b,00 

hl,bc 

hl,bc 

(hi),e 

h 

(hl),d 

hI,FFFC 

hl,de 

02A1 KLLOGEXT 

h 

de 

bc 

BASC (051D) KLROM DESELECT CONT’D 


a,(h) 
e 
hi 
a,(hi) 
hl 


nz,036D 
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WE a a er € 
0373 EB ex 
0374 F3 di 
0375 CD6303 call 
0378 3806 jr 
037A 73 Id 
037B 23 inc 
037C 72 Id 
037D 13 inc 
037E AF xor 
037F 12 Id 
0380 FB ei 
0381 C9 ret 


KH FE a a € 


0382 EB ex 
0383 F3 di 
0384 CD6303 call 
0387 3006 jr 
0389 1A Id 
038A 77 Id 
038B 13 inc 
0380 23 inc 
038D 1A Id 
038E 77 Id 
038F FB ei 
03% CI ret 
0391 C35EBA jp 
0394 C368BA ip 
0397 C34ABA ip 
039A C354BA ip 
039D C372BA jp 
03A0 C37EBA ip 
03A3 C3A2BA ip 
03A6 C383BA ip 
03A9 C38CBA ip 
03AC C3A6BA ip 
03AF C3ACBA ip 


DEZ zz zZ z zz z z z Z z zz zz; 


0382 3A94B1 Id 
0385 B7 or 
0386 C8 ret 
0387 E5 push 


KERNEL 


KerkKeekeeeeee re Add Event 


de,hl 


0363 
c,0380 
(hi),e 
hl 
(hl),d 
de 

a 
(de),a 


Delete Event 


KEREERE re 


de,hl 


0363 

nc,038F 

a,(de) 

(hi),a 

de 

hl 

a,(de) 

(h)),a 

BASE (04EF) KLU ROM ENABLE CONT'D 
BA68 (04F9) KL U ROM DISABLE CONT'D 
BA4A (04DB) KLLROM ENABLE CONT'D 
BA54 (0465) KLLROM DISABLE CONT'D 
BA72 (0503) KLROM RESTORE CONT'D 
BATE (050F) KLROM SELECT CONT'D 
BAA2 (0533) KL CURR SELECTION CONT'D 
BA83 (0514) KL PROBE ROM CONT’'D 
BASC (051D) KLROM DESELECT CONT’D 
BAA6 (0537) KLLDIR CONT'D 

BAAC (053D) KLLDDRCONT'D 


kkkkkkkerrereaeereraaaae KLPOLLSYCHRONOUS 
a,(B194) 

a 

Z 

hl 
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03B8 
0389 
03BC 
03BD 
03BE 
03C0 
03C1 
0302 
0303 
0306 
0307 
03C8 
0309 


LEE ZZ zZ zz zZ ZZ zz zu z 


03CA 
03CB 
03CC 
03CE 
030F 
03D0 
03D1 

03D2 
03D3 
0304 
03D5 
03D7 
0309 
03DC 
03DD 
03DE 
03DF 
03E1 

03E4 
03E5 
03E7 
03EA 
03EB 
03ED 
03EE 
03F0 
03F1 

03F4 
03F5 
03F6 

03F7 

03F9 
03FA 
03FB 
03FD 
03FE 
O3FF 
0400 


F3 
2A93B1 
7C 

B7 
2807 
23 

23 

23 
3A95B1 
BE 

E1 

FB 

c9 


F3 

08 
3833 
D9 

79 

37 

FB 

08 

F3 

F5 
CB91 
ED49 
CDB100 
B7 

08 

4F 
067F 
3A04B1 
B7 
2814 
FAGABI 
79 
E60C 
F5 
CB91 
D9 
CDOAO1 
D9 

Ei 

79 
E6F3 
B4 

4F 
ED49 
D9 

Fi 

FB 

c9 


di 
Id 
Id 
or 
jr 
inc 
inc 
inc 
Id 
cp 
pop 
ei 
ret 


di 
ex 
jr 
EXX 
Id 
scf 
e 
ex 
di 
push 
res 
out 
call 
or 
ex 
Id 
Id 
Id 
or 
jr 
IP 
Id 
and 
push 
res 
EXX 
call 
EXX 
pop 
Id 
and 
or 
Id 
out 
EXX 
pop 
e 
ret 


KERNEL 


h1,(B193) (Start Sync Pending Queue) 
a,h 


a 

2,0307 

h 

h 

hl 

a,(B195) (Priorität Ifd. Event) 
(hi) 

h 


ee RST 7 INTERRUPT ENTRY CONT'D 


af,af' 
c,0401 EXT INTERRUPT ENTRY 


a,C 


af,af' 


af 

2,C 

(c),c L Rom enable 

00B1 Scan Events 

a 

af,af' 

c,a 

b,7F 

a,(B104) (div. Flags f. Int. Rout.) 


a 
z,03FB 
m,B96A (03FB) 
a,C 

0C 

af 

3,c 


010A 


hl 

a,C 

F3 

h 

c,a 

(e),c alte Konfig. setzen 


af 
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KERNEL 


Re EXTINTERRUPTENTRY 


0401 
0402 
0403 
0404 
0406 
0408 
040B 


WE € 


040D 
040E 
040F 
0410 
0411 


**%* 
0413 
0414 
0415 
0416 
0417 
0418 
0419 
041A 
041B 
041D 
041F 
0420 
0421 

0422 
0423 
0424 
0426 
0427 
0428 
042B 
042C 
042D 
042E 
042F 
0430 
0432 
0434 
0436 
0437 
0439 
043A 
043B 
043D 
043E 
043F 
0440 
0441 


08 

Et 

F5 
CBD1 
ED49 
CD3B00 
18CF 


F3 
E5 
D9 
DI 
1806 


LEZZZZZZZZE ZZ zo 


F3 
D9 
E 

5E 
23 

56 
08 
7A 
CBBA 
CBB2 
07 

07 

07 

07 
A9 
E60C 
A9 
05 
CDA8B9 
F3 
D9 
08 

79 
c1 
E603 
CB89 
CB81 
B1 
1801 
D5 
4F 
ED49 
B7 
08 
D9 
FB 
c9g 


ex 
pop 
push 
set 
out 
call 
jr 


di 
push 
exX 
pop 
jr 


di 
EXX 
pop 
Id 
inc 
Id 
ex 
Id 
res 
res 
rica 
rilca 
rica 
rica 
xor 
and 
xor 
push 
call 
di 
EXX 
ex 
Id 
pop 
and 
res 
res 
or 
jr 
push 
Id 
out 
or 
ex 
EexX 
ei 
ret 


(c),c L Rom disable 


werke KLLOWPCHLCONT'D 
hl 


de 
0419 


arrekkkkeekekee AST 1 LOW JUMP CONT'D 


hl 
e,(hi) 


d,(hl) 
af,af' 
a,d 
7,d 
6,d 


c 

0C 

c 

bc 

B9AB (0439) Konfig vorber. & Sprung ausf. 


af,af' 

a,C 

bc 

03 

1,c 

0,c 

c 

043A 

de Sprungadr. auf Stack 
c,a 

(c),c Rom Konfig setzen 
a 

af,af' 


Sprung ausführen 
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KERNEL 


rer KLFARPCHLCONT’D 


0442 F3 di 

0443 08 ex af,af' 

0444 79 Id ac 

0445 E5 push hl 

0446 DI EXX 

0447 DI pop de 

0448 1815 jr 045F 
Br KLFARICALLCONT'D 
044A F3 di 

044B ES push hl 

044C DI EXX 

044D EI pp hl 

044E 1809 jr 0459 
re RST3LOW FAR CALLCONT'D 
0450 F3 di 

0451 DI exx 

0452 Ei pp hl 

0453 5E Id e,(hl) 

0454 23 inc hl 

0455 56 Id d,(hl) 

0456 23 inc hl 

0457 E5 push hl 

0458 EB ex de,hl 

0459 5E Id e,(hl) 

045A 23 inc hl 

045B 56 Id d,(hl) 

0450 23 inc hl 

045D 08 ex af,af' 

045E TE Id a,(hl) 

045F FEFC cp FC Rom# > 252 ? 
0461 30BE jr nc,0421 ja 

0463 O06DF ld b,DF Expansion Rom 
0465 ED79 out (c),a einschalten 
0467 21A8B1 ld hl,B1A8 lfd. Exp.-Rom 
046A 46 ld b,(hl) 

046B 77 ld (h)),a 

046C C5 push bc 

046D FDES5 push iy 

046F 3D dc a 

0470 FEO7 cp 07 

0472 300F jr nc,0483 

0474 87 add aa 

0475 C6AC add aAC 

0477 6F ld l,a 

0478 CEB1 adc aBi 

047A 9 sub 1 

047B 67 ld h,a 

047C 7E ld a,(hl) 

047D 23 inc hl 

047E 66 ld h,(hl) 

047F 6F ld l,a 

0480 E5 push hl 
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0481 
0483 
0485 
0486 
0488 
048A 
048D 
048F 
0490 
0491 
0492 
0493 
0494 
0495 
0497 
0499 
049C 
049E 
049F 


WERE € 


04A1 
04A2 
04A3 
04A4 
04A5 


WERE + 


04A7 
04AB 
0449 
04AA 
04AB 
04AC 
04AD 
O4AE 
O4AF 
04B0 
04B1 
0483 
04B5 
0487 
04B8 
0489 
04BC 
04BD 


FDE1 
067F 
79 
CBD7 
CB9F 
CDA8B9 
FDE1 
F3 

D9 

08 

59 

c1 

78 
06DF 
ED79 
32A8B1 
067F 
7B 
188F 


F3 
E5 
D9 
Di 
1808 


F3 

D9 

E1 

5E 

23 

56 

23 

E5 

08 

7A 
CBFA 
CBF2 
E6CO 
07 

07 
21ABB1 
86 
18A4 


pop 
ld 


ld 
set 
res 


di 
push 
EXX 


pop 
ir 


di 
EexX 
pop 
Id 
inc 
Id 
inc 
push 


KERNEL 


iy 


b,7F 

ac 

2,a L Rom disable 
3,a U Rom enable 


B9AB (0439) Konfig vorber. & Sprung ausf. 
iy 


af,af' 

e,c 

bc alte 

a,b Expansion Rom- 

b,DF Konfiguration 

(c),a wiederherstellen 

(B1AB),a (lfd. Exp.-Rom) 

b,7F 

ae ‚ 
0430 


ee KLSIDE PCHLCONT'D 
hl 


de 
04AF 


a RST2 LOW SIDE CALL CONT'D 


hl,B1AB Ifd. Rom-Konfig. 
a,(hi) 
0463 


Be RST5 FIRM JUMP CONT'D 


04BF 
0400 
0401 
0402 
0403 
04C4 
0405 


F3 
D9 
EI 
SE 
23 
56 
CB91 


di 
EXX 
pop 
Id 
inc 
Id 
res 


hl 
e,(hl) 
hl 
d,hl) 
2,C 
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KERNEL 


04C7 ED49 out (e),c L Rom enable 
0409 EDS33FBA Id (BAS3F),de Sprungadr. laden 
04CD DI EXX 

04CE FB ei 

04CF CD3EBA cal BA3E(04CF) und ausführen 
04D2 F3 di 

0403 DI EXX 

04D4 CBD1 set 2,0 L Rom disable 
04D6 ED49 out (c),c 

04D8 DI EXX 

0409 FB ei 

04DA C9 ret 
er KLLROMENABLE 
04DB F3 di 

04DC DI EXX 

04DD 79 Id a,C 

04DE CB91 res 2,0 

04E0 ED49 out (e),c L Rom enable 
04E2 DI exx 

04E3 FB ei 

04E4 C9 ret 
ee KLLROM DISABLE 
04E5 F3 di 

04E6 DI EXX 

04E7 79 Id a,C 

04E8 CBDI set 2,0 

04EA ED49 out (e),c L Rom disable 
04EC DI EexxX 

04ED FB ei 

04EE C9 ret 
re KLU ROM ENABLE 
04EF F3 di 

04F0 DI exx 

04F1 79 Id ac 

04F2 CB99 res IC 

04F4 ED49 out (e),c U Rom enable 
04F6 DI Exx 

04F7 FB ei 

04F8 C9 ret 


Br KLU ROM DISABLE 


04F9 F3 di 


04FA DI EXX 

04FB 79 Id ac 

04FC CBD9 set 3,c 

04FE ED49 out (c),c U Rom disable 
0500 DI EXX 

0501 FB ei 

0502 C9 ret 
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KERNEL 


ner KLROMRESTORE 


0503 F3 di 

0504 DI ExX aenthält 

0505 A9 xor € die alte 

0506 E60C and 0C Konfiguration 

0508 A9 xor  c 

0509 AF Id c,a 

050A ED49 out (cc 

050C DI EXX 

050D FB ei 

050E C9 ret 
nn KLROMSELECT 
050F CD5EBA cal _BA5E(04EF) KLU ROM ENABLE CONT'D 

0512 180F jr 0523 
nn KLPROBE ROM 
0514 CD7EBA cal BA7E(050F) KLROM SELECT CONT'D 

0517 3A00CO Id a,(C000) 

051A 2A01CO Id hl,(C001 
tr KL ROM DESELECT 
051D F5 push af 

0S1E 78 Id a,b 

051F CD72BA cal BA72(0503) KLROM RESTORE CONT'D 

0522 Fi pop af 

0523 E5 push hl 

0524 F3 di 

0525 O6DF Id b,DF Expansion Rom (# in c) 

0527 ED49 out (e),c einschalten 

0529 21A8B1 ld h1,B1A8 lfd. Exp.-Rom 

052C 46 ld b,(hl) 

052D 71 ld (h)),c 

052E 48 ld c,b 

052F 47 ld b,a 

0530 FB ei 

0531 Ei pop hl 

0532 CI ret 
tt KLCURR SELECTION 
0533 3AA8B1 Id a,(B1A8) (Ifd. Exp.-Rom) 

0536 C9 ret 
re KLLDIR 
0537 CDB2BA cal _BAB2 (0543) 

053A EDBO Idir 

053C C9 ret 
kr KLLDDR 
053D CDB2BA cal _BAB2 (0543) 

0540 EDB8 Iddr 

0542 09 ret 


122 


KERNEL 


KR kerk rk r ar Romoff&Konfig. save 


0543 
0544 
0545 
0546 
0547 
0549 
054B 
054D 
0550 
0551 

0552 
0553 
0555 
0556 
0557 


0558 
0559 
055A 
055B 


F3 

D9 

Ei 

C5 
CBD1 
CBD9 
ED49 
CDC7BA 
F3 

D9 

C1 
ED49 
D9 
FB 
c9 


ES 
D9 
FB 
c9 


di 

EexXX 

pp hl RET-Adr. manipulieren 
push bc alte Konfig. merken 

set 2,C Roms 

set 3c disable 

out (c),c 

call call (hi) 

di 

exx alte 

pop bc Konfiguration 

out (c),c wiederherstellen 

EXX 

ei 

ret 

push hl RET-Adr. manipulieren 


EXX 
ei 
ret 


rer RAM LAM 


055C 
055D 
055E 
055F 
0561 
0563 
0565 
0566 
0567 
0568 
056A 
056B 
0560 


F3 

D9 

59 
CBD3 
CBDB 
ED59 
D9 

TE 

D9 
ED49 
D9 
FB 
c9 


di 
ExXX 
Id 
set 
set 
out 
exX 
Id 
EXX 
out 
ExX 
ei 
ret 


ec ! 
2,e Roms 

Je disable 

(oe 

a,(hl) Byte holen 

(c),c alte Konfig. setzen 


Bere RAMLAM (IX) 


056D 
056E 
056F 
0571 
0573 
0576 
0578 
0579 


057A 
057B 
057C 
057D 
057E 
057F 


D9 

79 
F60C 
ED79 
DD7EOO 
ED49 
D9 

c9 


C7 
07 
c7 
c7 
c7 
c7 


exx 
Id 


a,C 

0C Roms 
(c),a disable 
a,(ix+00) Byte holen 
(e),C alte Konfig. setzen 
0 

0 

0 

0 

0 

0 
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2.5.2 MACHINE PACK (MC) 


Wie der Name schon vermuten läßt, ist dies der maschinennahe Teil des 
Betriebssystems. 

Hier werden die diversen Schnittstellen und Peripheriebausteine wie PIO 
und PSG bedient. Dieses Verfahren hat den Vorteil, daß bei einer evtl. Än- 
derung der Hardware nur das MACHINE PACK angepaßt werden muß, 
vergleichbar dem BIOS im CP/M. 

Wegen der Hardwarenähe sind auch nur wenige Routinen für den häufi- 
geren Gebrauch geeignet. Die folgenden haben wir herausgesucht: 


MC PRINT CHAR gibt das Zeichen in a auf den Centronics—Port aus. 
Nach Rückkehr aus der Routine ist carry gesetzt, wenn das Zeichen er- 
folgreich abgesetzt wurde. 


MC SOUND REGISTER ist für die Musikfans interessant. Ohne daß Sie 
sich mit der relativ komplizierten Datenübergabe an den PSG plagen 
müssen, brauchen Sie nur in a die gewünschte Registernummer undinc 
das Datenbyte zu übergeben. 
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MACHINE PACK 


Kerr RESETCONT'D 


0580 
0581 
0584 
0586 
0589 
058B 
058E 
0590 
0593 
0595 
0597 
0599 
059B 
059E 
05A0 
05A3 
05A6 
05A8 
05A9 
05AA 
05AB 
05AD 
05AE 
05AF 
05B2 


F3 
0182F7 
ED49 
0100F4 
ED49 
0100F6 
ED49 
O17FEF 
ED49 
06F5 
ED78 
E610 
210405 
2003 
21D405 
O10FBC 
ED49 
2B 

7E 

04 
ED79 
05 

0D 
F2A605 
1820 


di 

Id bc,F782 
out (c),c 

Id bc,F400 
out (e),c 

Id bc,F600 
out (c),c 

Id bc,EFTF 
out (e),c 

Id b,F5 

in a,(c) 
and 10 

Id h1,05C4 
jr nz,05A3 
ld h1,05D4 
ld bc,BCOF 
out (e),c 
decc hl 

ld a,(hl) 
inc b 

out (c),a 
dec b 

dc c 

jp p,05A6 
jr 05D4 


Control 

Port A 

Port C 

Centronics 

Port B 

LK4 isolieren 

Ende Tabelle 60Hz 
50Hz ? nein >> 

Ende Tabelle 50Hz 


Video Reg.-Adr. laden 


Video Reg. laden 


re Tabelle 60HZ 
05B4 3F 28 2E 8E 26 00 19 1E 
05BC 00 07 00 00 30 00 CO 00 


Kr re Tabelle 50Hz 
0504 3F 28 2E 8E IF 06 19 1B 
05CC 00 07 00 00 30 00 CO 00 


Kaltstart 
ist Fortsetzungs- 
Adresse 


KR MO BOOT PROGRAM 


0504 115C06 Id de,065C 
0507 210000 Id h1,0000 
05DA 1832 ir 060E 
05DC 3100C0 Id sp,C000 
05DF E5 push hl 
05E0 CD68B1E cal 1E68 
05E3 F3 di 

05E4 OIFFFE Id bc,F8FF 
05E7 ED49 out (c),c 
05E9 CD5C00 cal 005C 
05EC EI pop hl 
05ED D5 push de 
0SEE C5 push bc 
05EF E5 push hl 
05F0 CDIEIA cal 1A1E 
05F3 CD8810 cal 1088 
05F6 CDB10A cal O0AB1 
05F9 CD5EBA cal BASE(0O4EF) 


SOUND RESET 


Peripherie 
rücksetzen 
KLCHOKE OFF 


KM RESET 

TXT RESET 

SCR RESET 

KL U ROM ENABLE CONT’D 


125 


05FC 
05FD 
0600 
0601 
0602 
0604 
0605 
0606 
0609 


“*x* 
060B 
060E 
060F 
0611 

0612 
0615 
0617 
061A 
061C 
061F 
0622 
0625 
0627 
0629 
062C 
062E 
062F 
0630 
0631 

0634 
0635 
0636 
0637 
063A 
063D 
0640 
0643 
0646 
0649 
064C 
064F 
0652 
0653 
0654 
0657 
0658 
0659 


E 
CD7507 
C1 

D1 
3807 
EB 

48 
11E806 
1803 


LEEZZZZZZZZ ZZ ZZ 


112607 
F3 
ED56 
D9 
0100DF 
ED49 
O1FFFB 
ED49 
2100B1 
1101B1 
O1FFO7 
3600 
EDBO 
01897F 
ED49 
D9 

AF 

08 
3100C0 
E5 

05 

D5 
CD4400 
CD8808 
CDEO19 
CD681E 
CDA00A 
CD7810 
CDB015 
CD7023 
CDE607 
FB 


pop 
call 
pop 
pop 
jr 
ex 
Id 
Id 

jr 


MACHINE PACK 


hl 

0775 ip hi) 

bc 

de 

c,060B MC START PROGRAM 
de,hl 

c,b 

de,06E8 Ladefehler 

060E 

aekkekekekeekreree rer MO START PROGRAM 
de,0726 trifft nach 0654 auf RET 
1 

bc,DFOO Palette Pointer reset 
(o),c 

bc,FöFF evtl. angeschlossene 
(c),c Peripherie reset 
h1,B100 Start Int Pending Queue 
de,B101 Ram 

bc,07FF löschen 

(h1),00 

bc,7F89 U Rom off &L Rom on 
(c),C Screen Mode 1 

a 

af,af' 

sp,C000 

hl 

bc 

de 

0044 Restore High Kernel Jumps 
0888 JUMP RESTORE 

19E0 KM INITIALISE 

1E68 SOUND RESET 

0AAO SCR INITIALISE 

1078 TXT INITIALISE 

1580 GRA INITIALISE 

2370 CAS INITIALISE 

07E6 MC RESET PRINTER 
hl 

0775 ip (h)) 

bc 

hl 

0077 U Rom initialisieren 
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MACHINE PACK 


KE ra r Kaltstart 


065C 
065F 
0662 
0665 
0668 
066B 


CD1207 cal 0712 
CDEBO6 cal OGEB 
216D06 Id hi,066D 
CDEBOß cal OGEB 
219306 Id h1.0698 
187E ir 06EB 


Firmennamen ausgeben 
Meldungen ausgeben 
Einschaltmeldung 
Meldungen ausgeben 
Copyright-Meldung 
Meldungen ausgeben 


Kerr Einschaltmeldung 


066D 
0675 
067D 
0685 
068D 
0695 
069D 
06A5 
06AD 
06B5 
06BD 
0605 
06CD 
06D5 
06DD 
06E5 


06E8 


20 36 34 4B 20 4D 69 63 
72 6F 63 6F 6D 70 75 74 
65 72 20 20 28 76 31 29 
0D 0A OD 0A 00 43 6F 70 
79 72 69 67 68 74 20 A4 
31 39 38 34 20 41 6D 73 
74 72 61 64 20 43 6F 6E 
73 75 6D 65 72 20 45 6C 
65 63 74 72 6F 6E 69 63 
73 20 70 6C 63 OD 0A 20 
20 20 20 20 20 20 20 20 
20 20 61 6E 64 20 4C 6F 
63 6F 6D 6F 74 69 76 65 
20 53 6F 66 74 77 61 72 
65 20 4C 74 64 2E 0D 0A 
0D 0A 00 


21F406 ld hl,06F4 


64K Mic 
rocomput 
er (v1) 


yright © 
1984 Ams 
trad Con 
sumer El 
ectronic 

s plc.. 


and Lo 

comotive 

Softwar 
e Ltd... 


Ladefehler-Meldung 


er & Meldungen ausgeben 


06EB 
06EC 
06ED 
O6EE 
O6EF 
06F2 


7E Id a,(hl) 
23 inc hl 
B7 or a 
C8 ret Z 
CD0014 cal 1400 
18F7 jr 06EB 


TXT OUTPUT 
Meldungen ausgeben 


re Ladefehler-Meldung 


06F4 
O6FC 
0704 
070C 


0712 
0714 
0716 
0717 
0719 
071A 
071D 
071E 
071F 
0720 
0721 
0722 
0724 


2A 2A 2A 20 50 52 4F 47 
52 41 4D 20 4C 4F 41 44 
20 46 41 49 4C 45 44 20 
2A 2A 2A 0D 0A 00 


06F5 ld b,F5 
ED78 in a,(c) 

2F cpl 

E60E and O0E 

OF ca 

212707 ld h1,0727 
3C inc a 

47 ld b,a 

7E ld a,(hl) 
23 inc hl 

B7 or a 

20FB jr nz,071F 
10F9 dinz 071F 


x PROG 
RAM LOAD 
FAILED 
.. 


Port B 


LK1...3 isolieren 


/2 
Firmennamen 
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MACHINE PACK 


0726 CI ret 
re Firmennamen 
0727 41 72 6E 6F 6C 64 00 0A Arnold.. 

072F 20 41 6D 73 74 72 61 64 Amstrad 

0737 00 0A 20 4F 72 69 6F 6E .. Orion 

073F 00 0A 20 53 63 68 6E 65 .. Schne 

0747 69 64 65 72 00 0A 20 41 ider.. A 

074F 77 61 00 0A 20 53 6F 6C wa.. Sol 

0757 61 76 6F 78 00 OA 20 53 avox.. S 

075F 61 69 73 68 6F 00 0A 20 aisho.. 

0767 54 72 69 75 6D 70 68 00 Triumph. 

076F OA 20 49 73 70 00 . Isp. 

0775 E9 ip (hi) 
Br MO SET MODE 
0776 FEO3 cp 03 Mode>2? 

0778 DO rt  nc ja» 

0779 F3 di 

077A D9 EXX 

077B CB89 res 1,c Mode Bits 

077D CB81 res 0,c rücksetzen 

077F Bi or c 

0780 4F ld c,a neuen Mode 

0781 ED49 out (c),c setzen 

0783 FB ei 

0784 DI EXX 

0785 CI ret 
Br MC CLEAR INKS 
0786 C5 push bc 
0787 D5 push de 

0788 O1107F Id bc,7F10 

078B CDABO7 cal 07AB Farbe ausgeben 

078E OEOO Id c,00 

0790 CDABO7 cal 07AB Farbe ausgeben 

0793 1B dec de 

0794 20FA jr nz,0790 

0796 DI pop de 

0797 C1 pop be 

0798 C9 ret 
te MOSETINKS 
0799 C5 push bc 

079A D5 push de 

079B O1107F Id bc,7F10 Border Farbe 

079E CDABO7 cal 07AB Farbe ausgeben 

07A1 OEOO Id c,00 Adr. Ink 0 

07A3 CDABO7 cal 07AB Farbe ausgeben 

07A6 20FB jr nz,07A3 alle Farbspeicher laden 
07A8 DI pop de 

07A9 C1 pop bc 

07AA C9 ret 


128 


MACHINE PACK 


LEZZZZZZZZZZZZZZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ o Farbe ausgeben 


07AB 
07AD 
07AE 
O7AF 
0781 
07B3 
07B5 
07B6 
07B7 
0789 


ED49 
1A 
13 
E61F 
F640 
ED79 
0C 
79 
FE1O 
cg 


out (c),c 
Id a,(de) 
inc de 
and IF 
or 40 
out (c),a 
inc c 

Id ac 
cp 10 


ret 


Palette Pointer 


Farbe 


Kr MO WAITFLYBACK 


07BA 
07BB 
07BC 
07BE 
07C0 
07C1 
0703 
07C4 
07C5 


F5 
05 
06F5 
ED78 
IF 
3OFB 
c1 
Fl 
c9 


push af 

push bc 

Id b,F5 

in a,(c) 

ra 

jr nc,07BE 
pop be 

pop af 


ret 


Port B 


VSYNC ? 
nein D) warten 


ra MO SCREEN OFFSET 


07C6 
07C7 
07C8 
07C9 
07CB 
07CC 
07CD 
07CE 
07D0 
07D1 

07D4 
07D6 
07D7 
07D9 
07DA 
07DB 
07DD 
07DE 
07DF 
07EO 
07E1 

07E2 

07E4 
07E5 


C5 
OF 
OF 
E630 
4F 
7C 
IF 
E603 
BI 
010CBC 
ED49 
04 
ED79 
05 
0C 
ED49 
04 
TC 
IF 
7D 
IF 
ED79 
C1 
cg9 


push bc 
rrca 

ca 

and 30 
Id c,a 
Id a,h 
ma 

and 03 
or c 

Id bc,BCOC 
out (c),c 
inc b 
out (c),a 
dc b 
inc c 
out (e),c 
Inc 

Id a,h 
ma 

Id a,l 
ma 

out (c),a 
pop bc 


ret 


Video Contr Reg 12 


Bildsch. Start Hi 


Reg 13 


Bildsch. Start Lo 
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MACHINE PACK 


KR rer MO RESET PRINTER 


07E6 216007 Id hl,07EC Restore Printer Indirection 
07E9 C38A0A ip 0ABA Move (hI+3)»((hl+1)),cnt=(hl) 
07EC 03 db 03 3 Bytes 

07ED F1BD dw BDF1 Zieladresse 

07EF C3F807 jp 07F8 MC WAIT PRINTER 
tt MO PRINTCHAR 
07F2 05 push bc 

07F3 CDF1BD cal _BDF1 MC WAIT PRINTER 

07F6 C1 pop be 

07F7 C9 ret 
re MC WAIT PRINTER 
07F8 013200 Id bc,0032 

07FB CD1B08 cal 081B MC BUSY PRINTER 

07FE 3007 jr nc,0807 MC SEND PRINTER 

0800 10F9 dinz 07FB 

0802 OD dc c 

0803 20F6 jr nz,07FB 

0805 B7 or a 

0806 C9 ret 
a MO SEND PRINTER 
0807 C5 push bc 

0808 OGEF Id b,EF 

080A E67F and 7F Byte ohne Strobe 

0800 ED79 out (c),a an Drucker 

080E F680 or 80 

0810 F3 di 

0811 ED79 out  (c),a Strobe Ein 

0813 E67F and 7F 

0815 FB ei 

0816 ED79 out (c),a Strobe Aus 

0818 C1 pop be 

0819 37 scf 

081A C9 ret 
nn MO BUSY PRINTER 
081B C5 push bc 

081C 4F Id c,a 

081D O6F5 Id b,F5 Port B 

081F ED78 in a,(c) 

0821 17 rla Drucker Busy 

0822 17 rla DD Carry 

0823 79 ld ac 

0824 C1 pop be 

0825 CI ret 
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MACHINE PACK 


KERREEEE rer MO SOUND REGISTER 


0826 F3 di 

0827 O6F4 Id b,F4 Port A 

0829 ED79 out (c),a Sound Reg# 
082B O6F6 ld b,F6 Port C 

082D ED78 in a,(c) Sound Chip 
082F F6CO or co auf Eingabe 
0831 ED79 out (c),a & Strobe Ein 
0833 E63F and 3F : 

0835 ED79 out (c),a Strobe Aus 
0837 O06F4 ld b,F4 Port A 

0839 ED49 out (c),c Sound Daten 
083B O6F6 Id b,F6 Port C 

083D 4F ld ca 

083E F680 or 80 

0840 ED79 out (c)a Daten 

0842 ED49 out (e),e einlatchen 
0844 FB ei 

0845 C9 ret 
rar Scan Keyboard 
0846 O10EF4 Id bc,F40E Port A 

0849 ED49 out (c)c Sound Reg 14 (Keyb X Input) 
084B O6F6 Id b,F6 Port C 

084D ED78 in a,(c) 

084F E630 and 30 

0851 4F Id c,a 

0852 F6CO or co 

0854 ED79 out (c),a Strobe Ein 

0856 ED49 out (c),c Strobe Aus 
0858 04 inc b 

0859 3E92 Id a,92 Port A&B=Input 
085B ED79 out (c),a Control 

085D C5 push bc 

085E CBF1 set 6,C 

0860 O6F6 Id b,F6 Port C 

0862 ED49 out (C),C Keyb Y Outp & X Inp 
0864 O6F4 Id b,F4 Port A 

0866 ED78 in a,(C) Daten (Keyb X Inp) 2) a 
0868 46 ld b,(hl) 

0869 77 Id (hl),a 

086A AO and b 

086B 2F cpl 

086C 12 ld (de),a 

086D 23 inc hl 

086E 13 inc de 

086F OC inc c KeybY +1 
0870 79 ld a,c 

0871 E6OF and OF 

0873 FEOA cp 0A alle Y-Leitungen bearbeitet ? 
0875 20E9 jr nz,0860 nein _, nächste 
0877 C1 pop be 

0878 3E82 ld a,82 Port A Output 
087A ED79 out (c),a Control 

087C 05 decce b 
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MACHINE PACK 


087D ED49 out (e),c Port C 
087F CI ret 

0880 C7 ıst 0 

0881 C7 ıst 0 

0882 C7 ıst 0 

0883 C7 ıst 0 

0884 C7 ıst 0 

0885 C7 ıst 0 

0886 C7 ıst 0 

0887 C7. ıst 0 
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2.5.3 JUMP RESTORE (JRE) 


Dieses Pack dient ausschließlich dazu, die MAIN JUMP-Adressen wieder 
auf ihre Default-Werte zu setzen. 

Dabei wird beiden FIRM JUMPS ein RST1 vorangestellt, beiden ARITH- 
METIK JUMPS ein RST5 


Wenn Sie der Meinung sind, allzu viele Vektoren verbogen zu haben, zie- 
hen Sie einfach die 'Notbremse'’, indem Sie diesen JUMP RESTORE an- 
springen. 

Das ist auch ratsam, wenn Sie ein Programm verlassen, in dem Sie dem 
Betriebssystem eigene Routinen 'untergejubelt’ haben. 
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JUMP RESTORE 


KERKKEEKKEEKEe ren ae JUMPRESTORE 


0888 11AC08 Id 
088B 2100BB Id 
088E OICFBF Id 
0891 CD9708 call 
0894 O1EF3O0 Id 
0897 71 i Id 
0898 23 inc 
0899 1A Id 
089A 77 Id 
089B 13 inc 
0890 23 inc 
089D EB ex 
089E 79 Id 
089F 2F cpl 
08A0O 07 rica 
08A1 07 rica 
08A2 E680 and 
08A4 B6 or 
08A5 EB ex 
08A6 77 Id 
08A7 13 inc 
08A8 23 inc 
08A9 10EC dinz 
08AB CI ret 
E Ze Ze Zu Ze 22 Zu Zu Zu u Zu 22 22 Zu Zu 2 2 zu 2 
08AC E019 dw 
08AE 1E1A dw 
0880 3C1A dw 
08B2 421A dw 
08B4 771A dw 
08B6 BDIA dw 
08B8 2EIB dw 
08BA 7B1A dw 
08BC 561B dw 
08BE 5C1B dw 
08C0 BDIC dw 
0802 B31B dw 
0804 SCIC dw 
0806 521D dw 
0808 3E1D dw 
08CA 571D dw 
08CC 431D dw 
08CE 5C1D dw 
08D0 481D dw 
08D2 ABIC dw 
08D4 A61IC dw 
08D6 6DIC dw 
08D8 691C dw 
08DA 711C dw 
08DC 821C dw 
08DE 901C dw 
08E0 7810 dw 


de,08AC 
h1,BB00 
bc,BFCF 
0897 
bc,30EF 
(h),c 

hl 

a,(de) 


Main Jump Adr. 
RST1 vorsetzen 


RST5 vorsetzen 


80 
(h) 
de,hl 
(hl),a 
de 
hl 
0897 


are kkereekkeenknakeeree nee Main Jump Adr. 


19E0 KM INITIALISE 
1A1E KMRESET 

1A3C KM WAIT CHAR 
1A42 KM READ CHAR 
1A77 KM CHAR RETURN 
1ABD KM SET EXPAND 
1B2E KM GET EXPAND 
1A7B KM EXP BUFFER 
1856 KM WAIT KEY 
1B5C KM READ KEY 
1CBD KMTESTKEY 
1BB3 KM GET STATE 
1C5C KM GET JOYSTICK 
1052 KM SET TRANSLATE 
1D3E KM GET TRANSLATE 
1057 KM SET SHIFT 
1D43 KM GET SHIFT 
1D5C KM SET CONTROL 
1D48 KM GET CONTROL 
1CAB KM SET REPEAT 
1CA6 KM GET REPEAT 
1C6D KM SET DELAY 
1C69 KM GET DELAY 
1071 KM ARM BREAK 
1C82 KM DISARM BREAK 
1C90 KM BREAK EVENT 
1078 TXTINITIALISE 
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JUMP RESTORE 


08E2 8810 dw 1088 TXT RESET 

08E4 5114 dw 1451 TXT VDU ENABLE 
08E6 4814 dw 144B TXT VDU DISABLE 
08E8 0014 dw 1400 TXT OUTPUT 

08EA 3413 dw 1334 TXT WR CHAR 

08EC AB13 dw 13AB TXT RD CHAR 

08EE A713 dw  13A7 TXT SET GRAPHIC 
08F0 0C12 dw 1200 TXT WIN ENABLE 
08F2 5612 dw 1256 TXT GET WINDOW 
08F4 4015 dw 1540 TXT CLEAR WINDOW 
08F6 5E11 dw 115E TXT SET COLUMN 
08F8 6911 dw 1169 TXT SETROW 

08FA 7411 dw 1174 TXT SET CURSOR 
08FC 8011 dw 1180 TXT GET CURSOR 
08FE 8912 dw 1289 TXT CUR ENABLE 
0900 9YA12 dw 129A TXT CUR DISABLE 
0902 7912 dw 1279 TXTCURON 

0904 8112 dw 1281 TXTCUROFF 

0906 CE11 dw 11CE TXT VALIDATE 

0908 6812 dw 1268 TXT PLACE/REMOVE CURSOR 
090A 6812 dw 1268 TXT PLACE/REMOVE CURSOR 
090C A912 dw 1249 TXTSET PEN 

090E BD12 dw 12BD TXT GET PEN 

0910 AE12 dw 12AE TXT SET PAPER 

0912 C312 dw 1203 TXT GET PAPER 

0914 C912 dw 12C9 TXTINVERSE 

0916 7A13 dw 137A TXT SETBACK 

0918 8713 dw 1387 TXT GET BACK 

091A D312 dw 12D3 TXT GET MATRIX 
091C F112 dw 12F1 TXT SET MATRIX 
091E FD12 dw 12FD TXT SETM TABLE 
0920 2A13 dw 132A TXTGETM TABLE 
0922 CB14 dw  14CB TXT GETCONTROLS 
0924 E810 dw 10E8 TXTSTR SELECT 
0926 0711 dw 1107 TXT SWAP STREAMS 
0928 B015 dw  15B0 GRA INITIALISE 

09A DF15 dw  15DF GRA RESET 

09C F415 dw 15F4 GRA MOVE ABSOLUTE 
092E F115 dw 15F1 GRA MOVE RELATIVE 
0930 FC15 dw  15FC GRA ASK CURSOR 
0932 0416 dw 1604 GRA SET ORIGIN 
0934 1216 dw 1612 GRA GET ORIGIN 
0936 3417 dw 1734 GRA WIN WIDTH 
0938 7917 dw 1779 GRA WIN HEIGHT 
093A A617 dw 17A6 GRA GET W WIDTH 
093C BC17 dw 17BC GRA GET W HEIGHT 
093E C517 dw 17C5 GRA CLEAR WINDOW 
0940 F617 dw 17F6 GRA SET PEN 

0942 0418 dw 1804 GRA GET PEN 

0944 FD17 dw 17FD GRA SET PAPER 
0946 O0A18 dw  180A GRA GET PAPER 
0948 1318 dw 1813 GRA PLOT ABSOLUTE 
094A 1018 dw 1810 GRA PLOT RELATIVE 
094C 2718 dw 1827 GRA TEST ABSOLUTE 
094E 2418 dw 1824 GRA TEST RELATIVE 
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JUMP RESTORE 


0950 3918 dw 1839 GRA LINE ABSOLUTE 
0952 3618 dw 1836 GRALINE RELATIVE 
0954 4519 dw 1945 GRA WR CHAR 
0956 AO00A dw OAAO SCR INITIALISE 
0958 B10A dw  0AB1 SCR RESET 

095A 3COB dw 0B3SC SCR SET OFFSET 
0950 450B dw 0B45 SCR SET BASE 
095E 500B dw 0850 SCR GET LOCATION 
0960 CAOA dw DACA SCR SET MODE 
0962 ECOA dw OAEC SCR GET MODE 
0964 F7OA dw OAF7 SCR CLEAR 

0966 570B dw 0857 SCR CHAR LIMITS 
0968 640B dw  0B64 SCR CHAR POSITION 
096A AYOB dw 0BA9 SCR DOT POSITION 
096C FYOB dw 0BF9 SCR NEXT BYTE 
096E 050C dw 0005 SCR PREV BYTE 
0970 130C dw 0013 SCR NEXT LINE 
0972 2DOC dw  0C2D SCR PREV LINE 
0974 860C dw 0086 SCR INK ENCODE 
0976 AO0C dw 0CA0 SCR INK DECODE 
0978 ECOC dw  OCEC SCRSETINK 

097A 140D dw 0014 SCR GET INK 

097C F10C dw 0CF1 SCR SET BORDER 
097E 190D dw 0019 SCR GET BORDER 
0980 E40C dw O0CE4 SCR SET FLASHING 
0982 ESOC dw 0CE8 SCR GET FLASHING 
0984 B3OD dw 0DB3 SCR FILL BOX 

0986 B70D dw 0DB7 SCR FLOOD BOX 
0988 DFOD dw ODDF SCR CHAR INVERT 
098A FAOD dw ODFA SCRHWROLL 
098C 3EOE dw  OE3E SCRSWROLL 

098E F30E dw OEF3 SCR UNPACK 

0990 490F dw 0F49 SCR REPACK 

0992 490C dw 0C49 SCR ACCESS 

0994 6BOC dw 0C6B SCR PIXELS 

0996 C40OF dw  OFC4 SCR HORIZONTAL 
0998 2F10 dw 102F SCR VERTICAL 
099A 7023 dw 2370 CAS INITIALISE 
099C 7F23 dw  237F CAS SET SPEED 
099E 8E23 dw  238E CAS NOISY 

09A0 4B2A dw 2A4B CAS START MOTOR 
09A2 4F2A dw  2A4F CAS STOP MOTOR 
09A4 512A dw  2AS1 CAS RESTORE MOTOR 
09A6 9223 dw 2392 CAS INOPEN 

09A8 FC23 dw 23FC CASINCLOSE 
09AA 0124 dw 2401 CAS IN ABANDON 
09AC 3524 dw 2435 CAS IN CHAR 

09AE AB24 dw 24AB CAS IN DIRECT 
09B0 9A24 dw  249A CAS RETURN 

09B2 9624 dw 2496 CASTEST EOF 
09B4 AB23 dw 23AB CASOUTOPEN 
09B6 1524 dw 2415 CASOUTCLOSE 
09B8 2E24 dw 242E CAS OUT ABANDON 
09BA 5824 dw 245B CAS OUT CHAR 
09BC EA24 dw 24EA CAS OUT DIRECT 


136 
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09BE 2825 dw 2528 CAS CATALOG 

09C0 3F28 dw  283F CAS WRITE 

09C2 3628 dw 2836 CAS READ 

0904 5128 dw 2851 CAS CHECK 

0906 681E dw 1E68 SOUND RESET 

0908 9FIF dw 1F9F SOUND QUEUE 

09CA 6C20 dw 206C SOUND CHECK 

09CC 8920 dw 2089 SOUND ARM EVENT 
09CE 4A20 dw  204A SOUND RELEASE 
09D0 CBIE dw 1ECB SOUND HOLD 

09D2 ESIE dw 1EE6 SOUND CONTINUE 
09D4 3823 dw 2338 SOUND AMPL ENVELOPE 
09D6 3D23 dw 233D SOUND TONE ENVELOPE 
09D8 4923 dw 2349 SOUND A ADDRESS 
09DA 4E23 dw 234E SOUND T ADDRESS 
09DC 5C00 dw 005C KLCHOKE OFF 

09DE 2903 dw 0329 KLROM WALK 

09E0 3203 dw 0332 KLINITBACK 

09E2 A102 dw 02A1 KLLOGEXT 

09E4 B202 dw 02B2 KL FIND COMMAND 
09E6 6301 dw 0163 KLNEW FRAME FLY 
09E8 6AO1 dw 016A KLADD FRAME FLY 
09EA 7001 dw 0170 KLDEL FRAME FLY 
09EC 7601 dw 0176 KLNEW FAST TICKER 
09EE 7D01 dw 017D KLADD FAST TICKER 
09FO 8301 dw 0183 Delete Fast Ticker 
09F2 B301 dw 01B3 KLADD TICKER 

09F4 C501 dw 0105 Delete Ticker 

09F6 D201 dw 01D2 KLINIT EVENT 

09F8 E201 dw 01E2 KLEVENT 

09FA 2802 dw 0228 KLSYNC RESET 
09FC 8502 dw 0285 KLDEL SYNCHRONOUS 
09FE 5602 dw 0256 KLNEXTSYNC 

0A0O0 1A02 dw 021A KLDOSYNC 

0A02 7702 dw 0277 KLDONE SYNC 

0A04 9502 dw 0295 KL EVENT DISABLE 
0A06 9B02 dw 029B KLEVENT ENABLE 
0A08 8E02 dw 028E KLDISARM EVENT 
0AOA 9900 dw 0099 KLTIME PLEASE 
0AOC A300 dw 00A3 KLTIME SET 

0AOE DCO5 dw 05DC MC BOOT PROGRAM 
0A10 0B06 dw  060B MC START PROGRAM 
0A12 BA07 dw 07BA MC WAIT FLYBACK 
0A14 7607 dw 0776 MC SET MODE 

0A16 0607 dw 07C6 MC SCREEN OFFSET 
0A18 8607 dw 0786 MC CLEAR INKS 
0A1A 9907 dw 0799 MC SET INKS 

0AIC E607 dw  07E6 MC RESET PRINTER 
0AIE F207 dw 07F2 MC PRINT CHAR 
0A20 1B08 dw 081B MC BUSY PRINTER 
0A22 0708 dw 0807 MC SEND PRINTER 
0A24 2608 dw 0826 MC SOUND REGISTER 
0A26 8808 dw 0888 JUMP RESTORE 
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JUMP RESTORE 


Kerr & Basic. Jump Ar. 


0A28 982A dw 2A98 EDIT 

OA2A 182E dw 2E18 FLO Var. (de) 2» (hl) 
0A2C 292E dw 2E29 FLO Int D Flo 

0A2E 552E dw 2E55 FLO 4-Byte D) Flo 
0A30 662E dw 2E66 FLO Flo D Int 

0A32 8E2E dw 2ESE FLO Flo D Int 

0A34 A12E dw 2EA1 FLO Fix 

0A36 AC2E dw 2EAC FLO Int 

0A38 B62E dw 2EB6 

0A3A 1D2F dw 2F1D FLO Zahl * 10la 
0A3C 3F33 dw 333F FLO Add 

0A3E 3733 dw 3337 FLO Sub 

0A40 3B33 dw 333B FLO Sub 

0A42 1534 dw 3415 FLO Mul 

0A44 9E34 dw 349E FLO Div 

0A46 7835 dw 3578 FLO Zahl x 2la 

0A48 9A35 dw 359A FLO Cmp 

0A4A F835 dw 35F8 FLO +/- 

0AAC E835 dw 35E8 FLO Sgn 

0A4E AE31 dw 31AE FLO Deg/Rad 

0A50 A331 dw 31A3 FLOPi 

0A52 0A31 dw 310A FLO Sqr 

0A54 0D31 dw 310D FLO Potenz 

0A56 1430 dw 3014 FLOLog 

0A58 OF3O0 dw 300F FLO Log10 

0A5A 9030 dw 3090 FLO Exp 

0A5C BC31 dw 31BC FLO Sin 

0OA5BE B231 dw 31B2 FLO Cos 

0A60 3132 dw 3231 FLO Tan 

0A62 4132 dw 3241 FLO Atn 

0A64 5E2E dw 2E5E FLO 4-Byte x 256 I) Flo 
0A66 942F dw 2F94 FLO RND Init 

0A68 A12F dw 2FA1 FLO SET RANDOM SEED 
0A6A B72F dw 2FB7 FLO RND 

0A6C E62F dw 2FE6 FLO GET LAST RND 
0AGE 0837 dw 3708 

0A70 0E37 dw 370E 

0A72 1537 dw 3715 INT Sgn in b übernehmen 
0A74 2837 dw 3728 INT Add 

0A76 3137 dw 3731 INT Sub 

0A78 3037 dw 3730 INT Sub 

0A7A 3937 dw 3739 INT Mul 

0A7C 7A37 dw 377A INT Div 

0ATE 8137 dw 3781 INT Mod 

0A80 5037 dw 3750 INT Mul unsigned 
0A82 8C37 dw 378C hl/de D) hl, Rest D) de 
0A84 E937 dw 37E9 INT Cmp 

0A86 D437 dw 37D4 INT +/- 

0A88 E037 dw 37EO INT Sgqn 
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WERKE er ee Move (hl43)’((hl+1)),cnt=(h) 


0A8A 4E ld c,(hl) 
0A8B 0600 ld b,00 
0A8D 23 inc hl 
0ABE 5E ld e,(hl) 
0A8F 23 inc hl 
0A90 56 ld d,(hl) 
0A91 23 inc hl 
0A92 EDBO Idir 

0A94 C9 ret 

0A95 C7 ıst 0 
0A96 C7 ıst 0 
0A97 C7 ıst 0 
0A98 C7 ıst 0 
0A99 C7 ıst 0 
0AYA C7 ıst 0 
0A9B C7 ıst 0 
0A9C C7 ıst 0 
0A9D C7 ıst 0 
0A9YE C7 ıst 0 
0A9F C7 ıst 0 
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2.5.4 SCREEN PACK (SCR) 


Das SCREEN PACK ist dem TEXT- und GRAPHICS PACK untergeord- 
net. Es ist praktisch die Exekutive für die Beiden und damit für die unmit- 
telbare Handhabung des Bildschirmes zuständig. 


An Routinen wollen wir Ihnen vorstellen: 


SCR NEXT BYTE und SCR PREV BYTE liefern in hl die Bildschirmadres- 
se der nächsten / vorigen Byteposition zurück, wenn Sie vor dem An- 
sprung hl mit der alten Adresse versorgt haben. So überflüssig das aus- 
sieht, so praktisch ist es. Es ist nämlich, aufgrund der auf den Grafikbe- 
trieb ausgerichteten Organisation des Bildschirmes, nicht einfach, die 
Byteposition zu ermitteln. Zudem ist die Distanz vom Modus abhängig. 
Beachten Sie, daß, wenn die nächste oder vorige Position nicht mehr in- 
nerhalb des Bildschirmes läge, die zurückgelieferte Adresse unsinnig ist. 
Sie liegt dann im Bereich der letzten 48 (für die Darstellung unbenutzten) 
Bytes des Videorams. 


SCR NEXT LINE und SCR PREV LINE arbeiten analog, nur daß die Bild- 
schirmadresse um eine ganze Zeile vor- oder zurückgerechnet wird. 
Auch hier ist die Adresse beim Verlassen des darstellbaren Bereiches un- 
gültig. 


SCR HW ROLL schiebt den Bildschirm um eine Zeile nach unten, wenn 
b=0 ist, und eine Zeile nach oben, wenn b<>O0 ist. 
aist mit der Farbe zu versorgen, die die neue (leere) Zeile annehmen soll. 


SCR SW ROLL verschiebt einen Bildschirmbereich. a und b sind wie 
oben zu versorgen. Zusätzlich muß h die Spaltennummer des linken Ran- 
des des zu verschiebenden Bereiches enthalten, I die oberste Zeile, d die 
rechte Spalte und e die unterste Zeile des Bereiches. 

Beachten Sie, daß Spalte und Zeile O die linke obere Ecke des Bildschir- 
mes darstellt. Achten Sie auch unbedingt selbst darauf, daß die überge- 
benen Parameter tatsächlich einen Bereich innerhalb des Videorams 
markieren. 
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SCREEN PACK 


KR re SOR INITIALISE 


0AAO 114D10 Id de,104D Default Farben 

0AA3 CD8607 cal 0786 MC CLEAR INKS 

0AA6 3ECO Id a,C0 

0AAB 32CBB1 Id (BICB),a (High Byte Screen Start) 
0AAB CDB10A cal OAB1 SCR RESET 

0AAE C3F20A ip 0AF2 
Br SCR RESET 
0AB1 AF xor a 

0AB2 CD490C cal 0049 SCR ACCESS 

0AB5 21BEOA Id hl,OABE Restore SCR Indirections 
0AB8B CD8A0OA cal OABA Move (hI+3)D»((hl+1)),cnt=(hl) 
0ABB C3D20C jp 0CD2 Reset Farben 

0ABE 09 db 09 9 Bytes 

0OABF ESBD dw BDE5 Zieladresse 

0AC1 C3820C jp 0C82 SCR READ 

0AC4 C3680C jp 0C68 SCR WRITE 

0AC7 C3F70A jp 0AF7 SCR CLEAR 
Br SOR SET MODE 
0ACA E603 and 03 

0ACC FEO3 cp 03 

0ACE DO ret nc 

0ACF F5 push af 

0ADO CD4FOD cal OD4F 

0AD3 Fi pop af 

0AD4 5F Id e,a 

0AD5 CDB710 cal 10B7 

0AD8 F5 push af 

0AD9 CDD615 cal 15D6 

0ADC E5 push hl 

0ADD 7B Id a,e 

0ADE CD110B call 0B11 Bit Masken laden 

0AE1 CDEBBD cal BDEB SCR MODE CLEAR 

0AE4 E1 pp hl 

0AE5 CDB615 cal 15B6 

0AE8 Fi pop af 

0AE9 C3D510 jp 10D5 

KR rer SCORGET MODE 
0AEC 3AC8B1 Id a,(B1C8) (curr. Screen Mode) 
OAEF FEO1 cp 01 

0AFI C9 ret 

0AF2 3E01 Id a,01 

0AF4 CD110B cal 0B11 Bit Masken laden 
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SCREEN PACK 


KERKERREEEEEEE EE  rrre SCR MODE CLEAR 


0AF7 CDA4FOD cal OD4F 

OAFA 210000 Id h1,0000 

0AFD CD3COB cal O0B3C SCR SET OFFSET 
0B00 2ACABI1 Id hl,(B1CA) (Adr. Screen Start) 
0B03 2E00 Id 1,00 

0805 54 Id d,h hi=Basis Adresse 
0B06 1E01 Id e,01 de=Basis Adresse +1 
0808 O1FF3F Id bc,3FFF 16k 

0BOB 75 Id (hl) | 

0B0C EDBO Idir Bildschirm löschen 
0BOE C33C0OD ip 0D3C 

KK era Bit Masken laden 
0B11 213A0B Id hl,0B3A Bit Masken Mode 0 
0814 FEO1 cp 01 

0B16 3808 jr c,0B20 

0818 21360B Id h1,0B36 Bit Masken Mode 1 
0B1B 2803 jr 2,0B20 

0B1D 212E0B Id hl,0B2E Bit Masken Mode 2 
0820 11CFB1 Id de,BICF Bit Masken abh. v. Mode 
0823 010800 Id bc,0008 

0826 EDBO Idir 

0B28 32C8B1 Id (B1CB),a (curr. Screen Mode) 
0B2B C37607 ip 0776 MC SET MODE 


KR re Bit Masken Mode 2 


0B2E 80 40 20 10 08 04 02 01 


KR re Bit Masken Mode 1 


0B36 88 44 22 11 


KR Bit Masken Mode 0 


0B3A AA 55 


Kr SORSETOFFSET 


0B3C 7C Id a,h 
0B3D E607 and 07 
0B3F 67 Id h,a 
0B40 22C9B1 Id (B1C9),hl 
0B43 1805 jr 0B4A 


KERNE Er a SORSET BASE 


0B45 E6CO and CO 


0B47 32CBB1 Id (BICB),a (High Byte Screen Start) 

0B4A CD500B cal 0B50 SCR GET LOCATION 

0B4D C3C607 ip 07C6 MC SCREEN OFFSET 

KERKEEE rer SCRGETLOCATION 
0850 2AC9B1 Id hl,(B1C9) 

0B53 3ACBB1 Id a,(B1CB) (High Byte Screen Start) 

0B56 C9 ret 
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SCREEN PACK 


re SORCHARLIMITS 


0B57 
0B5A 
0B5D 
OB5E 
0B60 
0B61 
0B63 


LEZZZZZZZZEZZZ ZZ u zo 


0B64 
0B65 
0B68 
0B6A 
0B6C 
OB6E 
0B70 
0B71 
0B72 
0873 
0B75 
0B76 
0B77 
0B78 
0B79 
OB7A 
0B7B 
0B7C 
0B7D 
OB7E 
O0B7F 
0B80 
0B81 
0B82 
0B84 
0B88 
0B89 
O0B8A 
0B8C 
0B8D 
0B90 
0B91 
0892 
0893 
0B94 


0B% 
0B96 
0B97 
0B98 
0B99 
O0BYA 
0B9B 
0BIC 
0B9D 


CDECOA 
011813 
D8 
0627 
C8 
064F 
09 


D5 
CDECOA 
0604 
3805 
0602 
2801 
05 
C5 
5C 
1600 
62 
D5 
54 
5D 
29 
29 
19 
29 
29 
29 
29 
DI 
19 
10FD 
EDSBCIB1 
19 
7C 
E607 


call 
Id 
ret 
Id 
ret 
Id 
ret 


push 
call 


add 
add 


Id 
sub 


OAEC SCR GET MODE 
bc,1318 

c 

b,27 

z 

b,4F 


Br SCR CHAR POSITION 
de 

0AEC SCR GET MODE 
b,04 
c,0B71 
b,02 
2,0871 

b 

bc 

e,h 

d,00 

h,d 

de 

d,h 

e,l 

hl,h 

hl,hl 
hi,de 

hl,h 

hl,hl 

hl,hl 

hl,hl 

de 

hl,de 
0B81 
de,(B1C9) 
hi,de 

a,h 

07 

h,a 
a,(B1CB) (High Byte Screen Start) 
a,h 

h,a 

bc 

de 


a,e 


a,a 
a,a 
a,a 
6,a 
a,d 
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0B9E 
OBIF 
0BAO 
0BA3 
0BA4 
0BA5 
0BA7 
0BA8 


LE 2 ZZ 2 z Z Z z z z z z z z zz. 


0BA9 
0BAA 
O0BAB 
OBAE 
OBAF 
0BB1 

0BB2 
0BB4 
0BB5 
0BB6 
0BB7 
0BB8 
0BB9 
0BBB 
0BBC 
0BBD 
0BBE 
OBBF 
0BCO 
0BC1 
0BC2 
0BC3 
0BC6 
0BC8 
0BCA 
0BCC 
0BCE 
0BDO 
0BD1 

0BD2 
0BD3 
0BD4 
0BD5 
0BD7 
0BD9 
0BDA 
0BDC 
0BDD 
0BE1 

0BE2 
O0BE3 
0BES 
0BE6 
0BEI 
0BEA 


3C 

57 
CD640B 
AF 

82 
10FD 
57 

cg 


D5 
EB 
210700 


E6F8 
6F 
54 
5D 
29 
29 
19 
29 
D1 
CDECOA 
0601 
3806 
0603 
2802 
0607 
78 
A3 
F5 
78 
OF 
CB3A 
CB1B 
OF 
38F9 
19 
ED5BCIB1 
19 
7C 
E607 
67 
3ACBB1 
84 

81 


inc 
Id 
call 
xor 
add 
dinz 
Id 
ret 


push 
ex 
Id 
or 
sbc 
Id 
and 
add 
add 
add 
Id 
Id 
and 
Id 
Id 
Id 
add 
add 
add 
add 
pop 
call 
Id 
jr 
Id 
ir 
Id 
Id 
and 
push 
Id 
rmca 
srl 
m 
rca 
jr 
add 
Id 
add 
Id 
and 
Id 
Id 
add 
add 


SCREEN PACK 


a 

d,a 

0B64 SCR CHAR POSITION 
a 

a,d 

OBA4 

d,a 


Br SOR DOT POSITION 
de 
de,hl 
h1,0007 
a 

hi,de 
a,l 

07 

a,a 

a,a 

a,a 

c,a 

a,l 

F8 

1,a 

d,h 

e,l 

hl,h 
hl,h 
hl,de 
hl,h 

de 
0AEC SCR GET MODE 
b,01 
c,0BDO 
b,03 
z,0BD0 
b,07 
a,b 


c,0BD5 

hl,de 

de,(B1C9) 

hl,de 

a,h 

07 

h,a 

a,(B1CB) (High Byte Screen Start) 
a,h 

a,C 
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0BEB 
0BEC 
OBED 
OBEE 
OBFO 
0BF1 

OBF4 
0BF5 
0BF6 
OBF7 
0BF8 


67 
Fi 
E5 
1600 
5F 
21CFB1 
19 
4E 
EB 
EI 
c9 


pop 
ret 


SCREEN PACK 


e,a 

hl,BICF Bit Masken abh. v. Mode 
hi,de 

c,(h)) 

de,hl 

hl 


Br e SORNEXTBYTE 


0BF9 
OBFA 
OBFB 
OBFC 
OBFD 
OBFF 
0C00 
0C01 
0C03 
0C04 


2C 
co 
24 
7C 
E607 
c0 
7C 
D808 
67 
c9 


inc 
ret 
inc 
Id 
and 
ret 
Id 
sub 
Id 
ret 


| 
nz 
h 
a,h 
07 
nz 
a,h 
08 
h,a 


Br SCH PREV BYTE 


0C05 
0C06 
0007 
0C08 
0C09 
0CO0A 
0COB 
0COD 
0COE 
0COF 
0011 
0012 


LEEZZZZZZZZZZZZ ZZ 


0013 
0014 
0016 
0017 
0019 
0C1A 
0C1B 
0C1D 
0CIE 
0C1F 
0021 
0022 
0023 
0024 
0025 
0027 


7D 
2D 
B7 
co 
7C 
25 
E607 
co 
TC 
0608 
67 
cg 


7C 
0608 
67 
E638 
co 
7C 
D640 
67 
7D 
0650 
6F 
DO 
24 
7C 
E607 
co 


Id 
dec 
or 
ret 
Id 
dec 
and 
ret 
Id 
add 
Id 
ret 


al 
| 

a 
nz 
a,h 
h 
07 
nz 
a,h 
a,08 
h,a 


KR SORNEXTLINE 
a,h 
a,08 
h,a 
38 
nz 
a,h 
40 
h,a 
a,l 
a,50 
1,a 
nc 

h 
a,h 
07 
nz 
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0C28 7C 
0C29 D608 
0C2B 67 
0C2C C9 


Id 
sub 
Id 
ret 


SCREEN PACK 


a,h 
08 
h,a 


RR SOR PREV LINE 


0C2D 
0C2E 
0C30 
0031 
0033 
0035 
0C36 
0037 
0C39 
0C3A 
0C3B 
0C3D 
0C3E 
0C3F 
0C40 
0041 
0043 
0044 
0C45 
0047 
0048 


LE zz zz zz z z z z z z z z zz; 


0049 
0C4B 
0C4E 
0C50 
0052 
0055 
0057 
0C5A 
005C 
0C5F 
0C61 
0C64 
0067 


7C 
D608 
67 
E638 
FE38 
co 
7C 
0640 
67 
7D 
D650 
6F 
DO 
7C 
25 
E607 
co 
7C 
0608 
67 
c9 


E603 
216B0C 
280F 
FEO2 
21720C 
3808 
21770C 
2803 
217D0C 
3EC3I 
32CCB1 
22CDB1 
c9 


and 
Id 
jr 
cp 
Id 
jr 
Id 
jr 
Id 
Id 
Id 
Id 
ret 


a,h 
08 
h,a 
38 
38 
nz 
a,h 
a,40 
h,a 
a,l 
50 
l,a 
nc 
a,h 
h 
07 
nz 
a,h 
a,08 
h,a 


BB SCR ACCESS 


03 
h1,0C6B 
2,0C5F 
02 
h1,0072 
c,0C5F 
h1,0C77 
z,0C5F 
h1,0C7D 
a,03 
(BICC),a 
(BICD),hl 


SCR PIXELS (FORCE Mode) 


XOR Mode 
AND Mode 
OR Mode 


Ip 
(SCR Write Indirection) 


Kr SOR WRITE 


0C68 C3CCB1 


0C6B TE 
0C6C AB 
0C6D B1 
0C6E A9 
OC6F AB 
0C70 77 


jp BICC SCR Write Indirection 
re SCRPIXELS (FORCE Mode) 

Id a,(hl) 

xor  b 

or c 

xor c 

xor  b 

Id (h)),a 


0C71 C9 


ret 
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SCREEN PACK 


Kr rer KOR Mode 


0C72 78 Id a,b 
0073 A1 and c 
0C74 AE xor  (h) 
0075 77 Id (hl),a 
0C76 C9 ret 


KR rk AND Mode 


0077 79 Id ac 


0C78 2F cpl 

0C79 BO or b 

0C7A A6 and (hi) 

0C7B 77 Id (hl),a 

0C7C C9 ret 
kr OR Mode 
0C7D 78 Id a,b 

0C7E Ai and c 

0C7F B6 or (hl) 

0080 77 Id (hl),a 

0C81 C9 ret 
Re SORREAD 
0C82 7E Id a,(hl) 

0083 C3ACOC jp 0CAC 
rk re SCORINKENCODE 
0086 C5 push bc 

0087 D5 push de 

0C88 CDC20C cal 0CC2 

0C8B 5F Id e,a 

0C8C 0608 Id b,08 

0C8E 3ACFB1 Id a,(B1CF) (Bit Masken abh. v. Mode) 
0C91 4F Id c,a 

0C92 CBOB rc e 

0C94 17 rla 

0C95 CB09 rc c 

0097 3802 jr c,0C9B 

0C99 CB03 ric e 

0C9B 10F5 dinz 0092 

0C9D DI pop de 

0C9E C1 pop be 

0C9F C9 ret 
Re reera SCR INK DECODE 
0CAO C5 push bc 

0CA1 47 Id b,a 

0CA2 3ACFBI1 Id a,(BICF) (Bit Masken abh. v. Mode) 
0CA5 4F Id c,a 

0CA6 78 Id a,b 

0CA7 CDACOC cal OCAC 

0CAA C1 pop bc 

0CAB C9 ret 

0CAC D5 push de 
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SCREEN PACK 


OCAD 110800 Id de,0008 

0CBO OF ca 

0CB1 CB12 rl d 

0CB3 CB09 IC c 

0CB5 3802 jr c,0CB9 

0CB7 CB1A m d 

0CB9 1D dc e 

0CBA 20F4 jr nz,0CBO 

0CBC 7A Id a,d 

0CBD CDC20C cal 0CC2 

0CCO DI pop de 

0CC1 C9 ret 

0CC2 57 Id d,a 

0CC3 CDECOA cal OAEC SCR GET MODE 
0CC6 7A Id a,d 

0CC7 DO ret nc 

0CC8 OF ca 

0CC9 OF ca 

0OCCA CEOO adce a,00 

0CCC OF rca 

0CCD 9F sbc aa 

0CCE E606 and 06 

0CDO AA xor  d 

0CD1 C9 ret 
tt Reset Farben 
0CD2 214010 Id hl,104D Default Farben 

0CD5 11D9B1 Id de,B1D9 Farbspeicher 2. Farben 
0CD8 012200 Id bc,0022 

0CDB EDBO Idir 

OCDD AF xor a 

0OCDE 32FBB1 Id (BIFB),a (Flag Ifd. Farbsatz) 
0OCE1 210A0A Id h1,0AOA (0AOA)=9900 
tree SORSETFLASHING 
0CE4 22D7B1 Id (B1D7),hl (Flash Periods) 

0CE7 C9 ret 
nn SORGETFLASHING 
0CE8 2AD7B1 Id hl,(B1D7) (Flash Periods) 

0CEB C9 ret 
tt SORSETINK 
OCEC ESOF and OF 

0OCEE 3C inc a 

OCEF 1801 jr 0CF2 Set Colour 
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SCREEN PACK 


Kr rer SORSETBORDER 
0OCF1 AF xor a 


RBB Set Colour 


0CF2 5F Id e,a 

0CF3 78 Id a,b 

OCF4 CDOAOD cal 0DOA Farbmatrix Eintrag holen 
0CF7 46 d bh) 

0CF& 79 Id a,C 

0CF9 CDOAOD cal O0DOA Farbmatrix Eintrag holen 
OCFC 4E d chi) 

OCFD 7B Id a,e 

OCFE CD2FOD cal OD2F Ink Adr. holen 

0D01 71 d (lc 

0D02 EB ex de,hl 

0D03 70 Id (h),b 

0D04 3EFF Id a,FF 

0D06 32FCB1 Id (BIFC)‚a 

0D09 C9 ret 


rare Farbmatrix Eintrag holen 


0DOA ESIF and 1F 


0DOC C693 add 4,93 

ODOE 6F Id l,a 

0DOF CEOD adce a,0D 

0D11 95 sub | 

0D12 67 Id h,a 

0013 09 ret 
rn SCRGETINK 
0D14 E6OF and OF 

0016 3C inc a 

0D17 1801 ir 0D1A Get Colour 


RR SCR GET BORDER 


0D19 AF xor a 


Re Get Colour 


0DIA CD2FOD cal OD2F Ink Adr. holen 
0D1D 1A Id a,(de) 

0DIE 5E Id e,(hl) 

0DIF CD240D cal 0D24 

0D22 41 Id b,c 

0D23 7B Id ae 

0D24 0E00 Id c,00 

0D26 21930D Id h1,0D93 Farbmatrix 
0D29 BE cp (hl) 

0D2A 08 ret z 

0D2B 23 inc hl 

0D2C 0C inc c 

0D2D 18FA jr 0D29 
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LEIZZZZZZZZZZZ ZZ ZZ 


SCREEN PACK 


re Ink Adr. holen 


e,a 
d,00 

hl,BIEA Farbspeicher 1. Farben 
hi,de 

de,hl 

hl,FFEF 

hi,de 

hl,BIFE Event Block: Set Inks 

hl 

0170 KLDEL FRAME FLY 

0D6D Flash Inks 

de,0D5B Set Inks on Frame Fly 

b,81 

hl 

0163 KLNEW FRAME FLY 
hi,BIFE Event Block: Set Inks 

0170 KLDEL FRAME FLY 

0D81 Params d. Ifd Farbsatz holen 
0786 MC CLEAR INKS 


aerkkEeKeeKekererer Setinkson Frame Fly 
hl,BIFD curr. Flash Period 
(hi) 


z,0D6D Flash Inks 

hl 

a,(hl) 

a 

z 

0D81 Params d. Ifd Farbsatz holen 
0799 MC SET INKS 

0D7C 
KR Flashiinks 
0D81 Params d. Ifd Farbsatz holen 
(BIFD),a (curr. Flash Period) 

0799 MC SET INKS 

hi,BIFB Flag Ifd. Farbsatz 

a,(hl) 

(h),a 

a 

(BIFC),a 


KR E rer a a a Params.d. Ifd Farbsatz holen 


0D2F 5F Id 
0D30 1600 Id 
0032 21EAB1 Id 
0035 19 add 
0D36 EB ex 
0037 21EFFF Id 
0D3A 19 add 
0D3B C9 ret 
0D3C 21FEB1 Id 
0D3F E5 push 
0D40 CD7001 call 
0D43 CD6DOD call 
0D46 115B0D Id 
0D49 0681 Id 
0D4B Ei pop 
0D4C C36301 ip 
OD4F 21FEBI Id 
0052 CD7001 call 
0055 CD810D call 
0058 C38607 ip 
LEZEZZZZZE ZZ EZ u zo; 
0D5B 21FDB1 Id 
0D5E 35 dec 
0D5F 280C jr 
0D61 2B dec 
0D62 TE Id 
0D63 B7 or 
0D64 CB ret 
0D65 CD810D call 
0D68 CD9907 call 
0D6B 180F ir 
KR FH FH HH HE a 
0D6D CD810D call 
0D70 32FDB1 Id 
0D73 CD9907 call 
0D76 21FBB1 Id 
0D79 7E Id 
0D7A 2F cpl 
0D7B 77 Id 
0D7C AF xor 
0D7D 32FCB1 Id 
0D80 C9 ret 
0D81 11EAB1 Id 
0D84 3AFBB1 Id 
0087 B7 or 
0D88 3AD8B1 Id 
0D8B C8 ret 
0D8C 11D9B1 Id 


de,B1EA Farbspeicher 1. Farben 
a,(BiFB) (Flag Ifd. Farbsatz) 

a 

a,(B1D8) (Flash Period 1.Colour) 
z 

de,B1D9 Farbspeicher 2. Farben 
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SCREEN PACK 


0D8F 3AD7B1 Id a,(B1D7) (Flash Periods) 
0092 C9 ret 


ter Farbmmatrix 
0D93 14 04 15 1C 18 1D 0C 05 
0D9B OD 16 06 17 1E 00 IF OE 
0DA3 07 OF 12 02 13 1A 19 1B 
0DAB 0A 03 OB 01 08 09 10 11 


nee SORFILLBOX 


0DB3 4F Id c,a 

0DB4 CD950B cal 0B9 
nn SOR FLOOD BOX 
0DB7 ES push hl 

0DB8 7A Id a,d 

0DB9 CDE8OE cal OEE8 

0DBC 3009 jr nc,0DC7 

0DBE 42 Id b,d 

0DBF 71 Id (hl),c 

0DCO CDFYOB cal OBF9 SCR NEXT BYTE 
0DC3 10FA dinz ODBF 

0DC5 1810 jr 0DD7 

0DC7 C5 push bc 

0DC8 D5 push de 

0DC9 71 Id (hl),c 

0DCA 15 dee d 

0DCB 2808 jr z,0DD5 

0DCD 4A Id c,d 

ODCE 0600 Id b,00 

0DDO 54 Id d,h 

0DD1 5D Id e,l 

0DD2 13 inc de 

0DD3 EDBO Idir 

0DD5 DI pop de 

0DD6 C1 pop bc 

0DD7 EI pp hl 

0DD8 CD130C cal 0013 SCR NEXT LINE 
0DDB 1D dc e 

0DDC 20D9 jr nz,0DB7 SCR FLOOD BOX 
0DDE C9 ret 


Br SCR CHAR INVERT 
ODDF 78 Id a,b 


0DEO A9 xor  c 

0DEI 4F Id c,a 

0DE2 CD640B cal 0B64 SCR CHAR POSITION 
0DE5 1608 Id d,08 

0DE7 ES push hl 

0DEß C5 push bc 

0DE9 TE Id a,(hl) 

0DEA A9 xor cC 

0DEB 77 Id (hl),a 

0DEC CDFYOB cal OBF9 SCR NEXT BYTE 
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SCREEN PACK 


ODEF 10F8 dinz ODEY 

oDFi C1 pop be 

KR re Farbspeicher adressieren 
0DF2 E1 pp hl 

0DF3 CD130C cal 0013 SCR NEXT LINE 
0DF6 15 dee d 

0DF7 20EE jr nz,0DE7 

0DF9 C9 ret 
RR SORHW ROLL 
0DFA 4F Id c,a 

0DFB C5 push bc 

ODFC 11DOFF Id de,FFDO 

ODFF 0630 Id b,30 

0E01 CD240E cal O0E24 

0E04 C1 pop be 

0E05 CDBA07 cal 07BA MC WAIT FLYBACK 
0E08 78 Id a,b 

0E09 B7 or a 

0EOA 200D jr nz,0E19 

0E0OC 11BOFF Id de,FFBO 

0EOF CD370E cal 0E37 

0E12 110000 Id de,0000 

0E15 0620 Id b,20 

0E17 180B jr 0E24 

0E19 115000 Id de,0050 

0EIC CD370E cal 0E37 

0EIF 11BOFF Id de,FFBO 

0E22 0620 Id b,20 

0E24 2ACYB1 Id hl,(B1C9) 

0E27 19 add hi,de 

0E28 7C Id a,h 

0E29 E607 and 07 

0E2B 67 Id h,a 

0E2C 3ACBB1 Id a,(B1CB) (High Byte Screen Start) 
0E2F 84 add ah 

0E30 67 Id h,a 

0E31 50 Id d,b 

0E32 1E08 Id e,08 

0E34 C3B70D ip 0DB7 SCR FLOOD BOX 
0E37 2AC9YB1 Id hl,(B1C9) 

0E3A 19 add hl,de 

0E3B C33C0B ip 0B3C SCR SETOFFSET 
eek SCRSWROLL 
0E3E F5 push af 

0E3F 78 Id a,b 

0E40 B7 or a 

0E41 2830 jr 2,0673 

0E43 E5 push hl 

0E44 CD950B cl 0B95 

0E47 E3 ex (sp),hl 

0E48 2C inc | 
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0E49 
0E4C 
0E4D 
0E4E 
0ESO 
0E51 

0E53 
0E54 
0E57 
0E58 
0E59 
0ESA 
0ESD 
0ESE 
0E61 

0E62 
0E63 
0E66 
0E67 
0E69 
0E6A 
0E6B 
0E6C 
0EGE 
0E6F 
0E7O 


0E73 
0E74 
0E75 
0E78 
0E79 
0E7A 
0E7C 
0E7D 
0ETE 
0ETF 
0E81 

0E82 
0E83 
0E84 
0E85 
0E88 
0E89 
0ESC 
0ESD 
0E90 
0E93 
0E94 
0E95 
0E98 
0E99 
0EYA 
0E9D 
0EIE 


CD640B 
4A 

7B 
D608 
47 
2817 
Di 
CDBAO7 
05 

E5 

D5 
CDA40E 
Ei 
CD130C 
EB 

E 
CD130C 
C1 
10EE 
D5 

Ei 

51 

1E08 
Fi 

4F 
C3B70D 


E5 

D5 
CD950B 
4A 

7B 
D608 
47 

Di 

E3 
28E9 
C5 

6B 

54 

1C 
CD640B 
EB 
CD640B 
C1 
CDBA07 
CD2DOC 
E5 

EB 
CD2DOC 
E5 

C5 
CDA40E 
C1 

Di 


call 
Id 

Id 
sub 
Id 

jr 
pop 
call 
push 
push 
push 
call 
pop 
call 
ex 
pop 
call 
pop 
dinz 
push 
pop 
Id 

Id 
pop 
Id 

Ip 
push 
push 
call 
Id 

Id 
sub 
Id 
pop 
ex 
jr 
push 
Id 

Id 
inc 
call 
ex 
call 
pop 
call 
call 
push 
ex 
call 
push 
push 
call 


pop 


SCREEN PACK 


0B64 SCR CHAR POSITION 
c,d 

ae 

08 

b,a 

z,0E6A 

de 

07BA MC WAIT FLYBACK 
bc 

h 

de 

0EA4 

h 

0C13 SCR NEXT LINE 
de,hl 

h 

0C13 SCR NEXT LINE 


0657 

de 

h 

d,c 

e,08 

af 

c,a 

0DB7 SCR FLOOD BOX 


h 

de 
0B95 
c,d 
a,e 


b,a 


(sp),hl 
z,0E6A 


he 
d,h 


0B64 SCR CHAR POSITION 
de,hl 
0B64 SCR CHAR POSITION 


07BA MC WAIT FLYBACK 
0C2D SCR PREV LINE 

hl 

de,hl 

0C2D SCR PREV LINE 

h 


0EA4 
bc 
de 
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0E9F 

0EAO 
0EA2 

0EA4 
0EA6 

0EA9 

0EAB 
0EAE 
0EBO 
0EB1 

0EB2 
0EB3 
0EB4 
0EB6 
0EB7 
0EB8 
0EB9I 
0EBA 
0EBB 
0EBC 
0EBE 
0EBF 
0EC1 

0EC4 
0EC6 
0EC7 
0EC8 
0EC9Y 
0ECA 
0ECC 
0ECD 
0ECE 
0ECF 
0EDO 
0ED1 

0ED2 
0ED4 
0EDS 
0ED7 


0ED8 
0EDI 
0EDA 
0EDB 
0EDE 
0EDF 
0EE2 
0EE3 
0EES 


E1 
10EE 
18C6 
0600 
CDE60E 
3816 
CDE60E 
3025 
05 

AF 

% 

4F 
EDBO 
c1 

2F 

3C 

81 

4F 

7C 
D608 
67 
1814 
CDE6OE 
3812 


EDBO 


pop 
dinz 
jr 


call 
jr 
call 
jr 
push 
xor 
sub 
Id 
Idir 
pop 
cpl 
inc 
add 
Id 
Id 
sub 
Id 
ir 
call 
ir 
push 
xor 
sub 
Id 
Idir 
pop 
cpl 
inc 
add 
Id 
Id 
sub 
Id 
Idir 
ret 


Id 
Id 
Id 
call 
ex 
call 
ex 
dinz 
ret 


SCREEN PACK 


h 

0E9O 
0E6A 
b,00 
0EE6 
c,0EC1 
0EE6 
nc,0ED5 
bc 


c,a 


bc 


a,C 
c‚a 
a,h 

08 

h,a 
0ED5 
0EE6 
c,0ED8 
bc 


c,a 


bc 


a,C 
c,a 
a,d 
08 

d,a 


b,;c 

a,(hl) 

(de),a 

0BF9 SCR NEXT BYTE 
de,hl 

0BF9 SCR NEXT BYTE 
de,h 

0EDI 
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0EE6 
0EE7 
0EE8 
0EE9 
0EEA 
0EEB 
0EEC 
0EEE 
0EFO 
0EF1 

0EF2 


LEE ZZ z z zz Z z z z z z z zz; 


0EF3 
0EF6 
0EF8 
0EFA 
0EFC 
0EFF 
OFO1 


0FO2 
OF03 
O0FO4 
O0F05 
OFO6 
O0FO8 
OFOB 
OFOC 
OFOE 
OF10 
Ort! 

OF12 
OF14 
OF15 
OF16 
OF18 
OFIB 
OFIC 
OFIE 
OF20 
0F21 

0F22 
0F24 
OF25 
0F26 
0F27 
0F28 
OF2A 


OF2B 
OF2C 
OF2D 
OF2E 
OF2F 


79 
EB 
3D 
85 
DO 
TC 
E607 
EE07 
co 
37 
c9 


CDECOA 
0608 
3831 
2806 
010800 
EDBO 
c9g 


4E 
23 
E5 
05 
0604 
21CFB1 
AF 
CB01 
3001 
B6 
23 
10F8 
12 
13 
0604 
21CFB1 
AF 
CBO1 
3001 
B6 
23 
10F8 
12 
13 
c1 
E 
10D8 
c9 


4E 
23 
ES 
C5 
0604 


Id 
ex 
dec 
add 
ret 
Id 
and 
xor 
ret 
scf 
ret 


call 
Id 
jr 
jr 
Id 
Idir 
ret 


Id 
inc 
push 
push 
Id 
Id 
xor 
ric 
jr 
or 
inc 
djnz 
Id 
inc 
Id 
Id 
xor 
ric 
jr 
or 
inc 
dinz 
Id 
inc 
pop 
pop 
dinz 
ret 


inc 
push 
push 
Id 


SCREEN PACK 


a,C 
de,hl 


al 
nc 
a,h 
07 
07 
nz 


WERKE er & SORUNPACK 
0AEC SCR GET MODE 

b,08 

c,OF2B 

z,0F02 

bc,0008 


c,(h]) 

h 

h 

bc 

b,04 

hl,BICF Bit Masken abh. v. Mode 
a 


c 
nc,OF11 
(hl) 

h 

OFOC 
(de),a 
de 
b,04 
hl,BICF Bit Masken abh. v. Mode 
a 

(e 
nc,OF21 
(hi) 

h 
OFIC 
(de),a 
de 

bc 

h 

0F02 


ch) 
hl 

hl 
be 
b,04 
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OF31 AF 
0F32 21CFB1 
0F35 CBO1 
0F37 3001 
0F39 TE 
OF3A 23 
OF3B CBO1 
OF3D 3001 
OF3F B6 
OF40 12 
OF41 13 
0F42 10ED 
0F44 01 
0F45 EI 
OF46 10E3 
0F48 C9 


xor 
Id 
ric 
jr 

Id 
inc 
ric 
jr 
or 
Id 
inc 
dinz 
pop 
pop 
dinz 
ret 


SCREEN PACK 


a 
hl,BICF Bit Masken abh. v. Mode 


c 
nc,OF3A 
a,(hl) 

hl 


© 
nc,OF40 
(hi) 
(de),a 
de 

OF31 

bc 

hl 

OF2B 


re SOR REPACK 


OF49 4F 
OF4A CD640B 
OF4D CDECOA 
OF50 0608 
OF52 3845 
OF54 280B 
OF56 TE 
0F57 A9 
OF58 2F 
0F59 12 
OFSA 13 
OFSB CD130C 
OFSE 10F6 
0F60 CI 


0F61 ES 
0F62 DS 
0F63 ES 
OF64 TE 
OF65 A9 
OF66 21CFB1 
OF69 1604 
OF6B F5 
OF6C A6 
OF6D 2001 
OF6F 37 
0F7O CB13 
OF7T2 23 
0F73 Fi 
0F74 15 
0F75 20F4 
0F77 E1 
0F78 CDF9OB 
OF7TB TE 
OF7C A9 
OF7D 21CFB1 
OF80 1604 


Id 
call 
call 
Id 
jr 
jr 
Id 


c,a 
0B64 SCR CHAR POSITION 
0AEC SCR GET MODE 

b,08 

c,0F99 

z,0F61 

a,(hl) 

c 


(de),a 
de 


0013 SCR NEXT LINE 
OF56 


hl,BICF Bit Masken abh. v. Mode 


nz,OF6B 


0BF9 SCR NEXT BYTE 
a,(h) 


hl,BICF Bit Masken abh. v. Mode 
d,04 
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0F82 
0F83 
OF84 
OF86 
0F87 
0F89 
OF8A 
OF8B 
OFSC 
OFBE 
OFF 
OF9O 
orgt 

0F92 
0F93 
OF96 
0F98 


0F99 

OFYA 
OF9B 
OF9D 
OFYE 

OFIF 
OFAO 
OFA1 

OFA4 
OFAS 
OFA7 
OFAB 
OFAA 
OFAB 
OFAC 
OFAD 
OFAF 
OFBO 
OFB2 
OFB3 
OFB6 
OFB7 
OFBI 
OFBA 
OFBB 
OFBC 
OFBD 
OFBE 
OFC1 

OFC3 


F5 
A6 
2001 
37 
CB13 
23 
Fi 
15 
20F4 
E 
73 
EB 
13 
E 
CD130C 
10C9 


1604 


push 
and 
jr 
sch 


inc 
pop 
dec 
jr 
pop 
Id 
ex 
inc 
pop 
call 
dinz 
ret 


push 
push 
Id 

Id 
push 
xor 
push 
Id 
and 
jr 
scf 
rl 
pop 
inc 
and 
jr 
scf 
rl 
pop 
call 
dec 
jr 
pop 
Id 
ex 
inc 
pop 
call 
dinz 
ret 


af 
(hl) 
nz,0F87 


e 

h 

af 

d 
nz,0F82 
h 
(hl),e 
de,hl 
de 

h 
0013 
OF61 


h 
de 
d,04 
a,(hi) 
h 


6 

af 
hl,BICF 
(hi) 
nz,OFA8 


. 6 


af 

h 

(hi) 
nz,OFBO 


e 

h 
OBF9 
d 
nz,OF9D 
h 
(h)),e 
de,hl 
de 

h 
0C13 
0F99 


SCREEN PACK 


SCR NEXT LINE 


Bit Masken abh. v. Mode 


SCR NEXT BYTE 


SCR NEXT LINE 
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SCREEN PACK 


KEKRREE rer SOR HORIZONTAL 


OFCA 
OFC5 
OFC6 
OFC7 
OFC8 
OFC9 
OFCA 
OFCB 
OFCC 
OFCD 
OFCE 
OFCF 
OFDO 
OFD1 

OFD2 
OFD3 
OFD6 
OFD7 
OFD8 
OFDI 
OFDA 
OFDC 
OFDF 
OFEO 
OFEI 

OFE2 
OFE3 

OFES 

OFE6 
OFE8 
OFE9 
OFEA 
OFEB 
OFEC 
OFED 
OFEE 
OFFO 
OFF1 

OFF3 

OFF4 

OFFS 

OFF6 
OFF7 

OFFA 
OFFD 
OFFE 
1001 

1002 

1004 

1005 

1006 

1008 

100B 
100E 


F5 

E5 

7A 

2F 

67 

7B 

2F 

6F 

23 

09 

23 

E3 

AF 

93 

F5 
CDA9OB 
E5 

78 

2F 

6F 
26FF 
2207B2 
Ei 

Fi 

A0 

47 
2845 
E3 
1803 
1A 

Bi 

4F 

2B 

7C 

B5 
2834 
13 
10F5 
EB 

Ei 

Fi 

47 
CDE8BD 
CDF9OB 
ES 
2A07B2 
19 
300C 
EB 

EI 
OEFF 
CDE8BD 
CDF9YOB 
18ED 


push 
push 
Id 
cp 
Id 
Id 
cp 
Id 
inc 
add 
inc 
ex 
xor 
sub 
push 
call 
push 
Id 
cp! 
Id 
Id 
Id 
pop 
pop 
and 
Id 
jr 
ex 
jr 

Id 
or 
Id 
dec 
Id 
or 
jr 
inc 
dinz 
ex 
pop 
pop 
Id 
call 
call 
push 
Id 
add 
jr 
ex 
pop 
Id 
call 
call 


0BA9 SCR DOT POSITION 


h,FF 

(B207),h 

h 

af 

b 

b,a 

2,102A 

(sp),hl 

OFEB 

a,(de) 

c 

c,a 

h 

a,h 

| 

2,1024 

de 

OFEB 

de,hl 

h 

af 

b,a 

BDE8 SCR WRITE 
OBF9 SCR NEXT BYTE 
h 

hl,(B207) 

hi,de 

nc,1010 

de,hl 

h 

c,FF 

BDEß . SCR WRITE 
0BF9 SCR NEXT BYTE 
OFFD 
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1010 
1011 
1012 
1014 
1015 
1018 
1019 
101A 
101B 
101D 
101E 
101F 


1022 
1023 


1024 
1025 
1026 
1027 


102A 
102B 
102C 
102D 


“x* 
102F 
1030 
1031 

1032 
1033 
1034 
1035 
1036 
1097 
1038 
1039 
103A 
103B 
103E 
103F 
1040 
1041 

1044 
1047 
1048 
1049 
104A 
104C 


SCREEN PACK 


7B Id a,e 

B7 or a 

280E jr 2,1022 

AF xor a 

21CFB1 Id hl,BICF Bit Masken abh. v. Mode 

B6 or (hl) 

23 inc hl 

1D dc e 

20FB jr nz,1018 

4F Id ca 

E pop hl 

C3E8BD ip BDE8 SCR WRITE 

Ei pop hl 

c9 ret 

EI pp hl 

Fi pop af 

47 Id b,a 

C3E8BD ip BDE8 SCR WRITE 

DI pop de 

Fl pop af 

47 Id b,a 

18CE jr OFFD 
re SOR VERTICAL 

F5 push af 

E5 push hl 

7C Id a,h 

2F cpl 

67 Id h,a 

7D Id a,l 

2F cpl 

6F Id 1a 

23 inc hl 

09 add hl,be 

23 inc hl 

E3 ex (sp),hl 

CDA9OB cal O0BA9 SCR DOT POSITION 

DI pop de 

Fi pop af 

47 Id b,a 

CDE8BD cal BDE8 SCR WRITE 

CD2DOC cal 0C2D SCR PREV LINE 

1B dec de 

7A Id a,d 

B3 or e 

20F5 jr nz,1041 

c9 ret 
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SCREEN PACK 


Krk Default Farben 
104D 04 04 0A 13 0C OB 14 15 
1055 0D 06 1E 1F 07 12 19 04 
105D 17 04 04 0A 13 0C OB 14 
1065 15 0D 06 1E IF 07 12 19 


106D 0A 07 

106F C7 rst 0 
1070 C7 rst 0 
1071 C7 rst 0 
1072 07 rst 0 
1073 C7 rst 0 
1074 C7 rst 0 
1075 C7 rst 0 
1076 C7 rst 0 
1077 C7 rst 0 


160 


2.5.5 TEXTSCREEN (TXT) 


Dieses Pack ist, wie der Name schon sagt, für die Verwaltung von Texten 
verantwortlich. Dazu gehört auch die Organisation der Windows. 

Zu der Handhabung des Cursor sind einige Worte notwendig: 

Die in den Cursor-Routinen verlangten oder gelieferten Koordinaten sind 
als logische Angaben zu verstehen, d.h. sie beziehen sich auf das laufen- 
de Fenster. Die Koordinate 1,1 ist dabei die linke obere Ecke des Fensters. 
Wollen Sie, z.B. mit TXT SET CUSOR, den Cursor außerhalb des Fensters 
positionieren, wird er auomatisch auf die nächst mögliche Position inner- 
halb des Fensters gesetzt, falls der Cursor eingeschaltet ist oder nachfol- 
gend ein Zeichen dargestellt werden soll. 

Dadurch wird auch die laufende Position (die Sie mit TXT GETCURSOR 
zurückbekommen) geändert. 

Ist der Cursor ausgeschaltet, wird die gewünschte neue Position zu- 
nächst akzeptiert, bis entweder ein Zeichen dargestellt oder der Cursor 
eingeschaltet wird. 


Es gibt zwei Routinen, um den Cursor ein- oder auszuschalten. TXTCUR 
ON/OFFund TXTCUR ENABLEI/IDISABLE unterscheiden sich dadurch, 
daß ON/OFF der Routine ENABLE/DISABLE übergeordnet ist. Das 
heißt, daß der Cursor nach ENABLE nur erscheinen kann, wenn es auch 
mit ON erlaubt wurde. 


Zusätzlich zu den in Kapitel 2.3 bereits vorgestellten Routinen möchten 
wir noch eine weitere erwähnen: 

TXTOUTPUT bringt das Zeichen ina auf dasfd. Bildschirmfenster, bzw. 
führt es aus, falls es sich um ein Steuerzeichen handelte. 

Beachten Sie, daß diese Routine die Indirection TXT OUT ACTION be- 
nutzt! Falls Sie diese 'verbogen’ haben, wird auch Ihre Routine benutzt 
und nicht die ROM-Routine. 
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TEXT SCREEN 


KR rer TÄTINITIALISE 


1078 CD8810 
107B AF 


call 
xor 


1088 TXT RESET 

a 

(B295),a 

h1,0001 

113D TXT Default Params setzen 
10A3 Reset Params (alle Fenster) 


BB TXTRESET 


107C 3295B2 Id 
107F 210100 Id 
1082 CD3D11 call 
1085 C3A310 ip 
1088 219110 Id 
108B CD8AOA call 
108E C35B14 ip 
1091 OF db 
1092 CDBD dw 
1094 C36312 ip 
1097 C36312 ip 
109A C34A13 ip 
109D C3C013 ip 
10A0 C30C14 ip 


LE 2 ZZ zz zZ z zz z zz zz zz 2 


10A3 3E08 Id 
10A5 110DB2 Id 
10A8 2185B2 Id 
10AB O010F00 Id 
10AE EDBO Idir 
10B0 3D dec 
10B1 20F5 jr 
10B3 320CB2 Id 
10B6 C9 ret 
1087 3AOCB2 Id 
10BA 4F Id 
10BB 0608 Id 
10BD 78 Id 
10BE 3D dec 
10BF CDE810 call 
10C2 CDDOBD call 
1005 CDC312 call 
10C8 3290B2 Id 
10CB CDBD12 call 
10CE 328FB2 Id 
10D1 10EA dinz 
10D3 79 Id 
10D4 C9 ret 


h1,1091 Restore TXT Indirections 

0ABA Move (hl+3)D((hl+1)),cnt=(hl) 
145B 

OF 15 Bytes 

BDCD Zieladresse 

1263 TXT DRAW/UNDRAW CURSOR 
1263 TXT DRAW/UNDRAW CURSOR 
134A TXT WRITE CHAR 

13C0 TXT UNWRITE 

140C TXT OUT ACTION 


KekKKKKKKKKE Kr Reset Params (alle Fenster) 
a,08 


de,B20D Start Params Fenster 0 
h1,B285 Ifd Cursor Pos.(Row,Col) 
bc,000F 

a 

nz,10A8 

(B20C),a (Ifd Bildschirmfenster) 
a,(B20C) (Ifd Bildschirmfenster) 
c‚a 

b,08 

a,b 

a 

10E8 TXT STR SELECT 

BDDO TXT UNDRAW CURSOR 
1203 TXT GET PAPER 
(B290),a (TXT Ifd Paper) 

12BD TXT GET PEN 

(B28F),a (IX Ifd Pen) 

10BD 

aC_ 
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TEXT SCREEN 


c,a 
b,08 

a,b 

a 

10E8 TXT STR SELECT 

bc 

hl,(B28F) (IXT Ifd Pen) 

113D TXT Default Params setzen 
bc 

10D8 

a,C 


nr TÄTSTRSELECT 


07 

h1,B20C Ifd Bildschirmfenster 

(hi) 

z 

bc 

de 

c,(hl) 

(hl),a 

b,a 

a,C 

112A Adr. Fenster Params I) de 
1122 ldir cnt=15 

a,b 

112A Adr. Fenster Params D) de 
de,hl 

1122 ldir cnt=15 

ac 

de 

bc 


tr TXT SWAP STREAMS 


10D5 4F Id 
10D6 0608 Id 
10D8 78 Id 
10D9 3D dec 
10DA CDE810 call 
10DD C5 push 
10DE 2A8FB2 Id 
10E1 CD3D11 call 
10E4 01 pop 
10E5 10F1 dinz 
10E7 79 Id 
10E8 E607 and 
10EA 210CB2 Id 
10ED BE cp 
10EE C8 ret 
10EF C5 push 
10F0 D5 push 
10F1 4E Id 
10F2 77 Id 
10F3 47 Id 
10F4 79 Id 
10F5 CD2A11 call 
10F8 CD2211 call 
10FB 78 ld 
10FC CD2A11 call 
10FF EB ex 
1100 CD2211 call 
1103 79 ld 
1104 D1 pop 
1105 C1 pop 
1106 C9 ret 
1107 3AOCB2 Id 
110A F5 push 
110B 79 Id 
110C CDE810 call 
110F 78 Id 
1110 320CB2 Id 
1113 CD2A11 call 
1116 D5 push 
1117 79 ld 
1118 CD2A11 call 
111B Ei pop 
111C CD2211 call 
111F Fi pop 
1120 18C6 jr 


a,(B20C) (Ifd Bildschirmfenster) 

af 

a,C 

10E8 TXT STR SELECT 

a,b 

(B20C),a (Ifd Bildschirmfenster) 
112A Adr. Fenster Params ®» de 
de 

ac 

112A Adr. Fenster Params D) de 
hl 

1122 Idir cnt=15 

af 

10E8 TXTSTRSELECT 
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TEXT SCREEN 


RR lirent=15 


1122 C5 push bc 

1123 010F00 Id bc,000F 

1126 EDBO Idir 

1128 C1 pop be 

1129 C9 ret 
re Ad. Fenster Params D) de 
112A E607 and 07 

112C 5F ld e,a 

112D 87 add aa 

112E 87 add aa 

112F 87 add aa 

1130 87 add aa 

1131 93 sub e 

1132 C60D add a0D 

1134 5F ld e,a 

1135 CEB2 adc aB2 

1137 93 sub e 

1138 57 ld d,a 

1139 2185B2 ld h1,B285 lfd Cursor Pos.(Row,Col) 
113C C9 ret 
Br TAT Default Params setzen 
113D EB ex de,hl 

113E 3E03 Id a,03 

1140 328DB2 Id (B28D),a (Ifd Cursor Flag) 

1143 7A Id a,d 

1144 CDAE12 cal _12AE TXT SET PAPER 

1147 7B Id ae 

1148 CDA912 cal 1249 TXTSET PEN 

114B AF xor a 

1140 CDA713 cal 1347 TXT SET GRAPHIC 

114F CD7A13 cal 137A TXT SETBACK 

1152 210000 Id h1,0000 

1155 117F7F Id de,7F7F 

1158 CD0C12 cal 1200 TXT WIN ENABLE 

115B 035114 jp 1451 TXT VDU ENABLE 
re TATSETCOLUMN 
115E 3D dc a 

115F 2189B2 Id hl,B289 Ifd Fenster links 

1162 86 add a,{hl) 

1163 2A85B2 Id hl,(B285) (Ifd Cursor Pos.(Row,Col)) 
1166 67 Id h,a 

1167 180E jr 1177 
nr TXT SET ROW 
1169 3D dc a 

116A 2188B2 Id h1,B288 Ifd Fenster oben 

116D 86 add a,fhl) 

116E 2A85B2 Id hl,(B285) (Ifd Cursor Pos.(Row,Col)) 
1171. 6F Id l,a 

1172 1803 jr 1177 
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TEXT SCREEN 


BR re TXTSETCURSOR 


1174 CD8A11 cal 118A Ifd Fenst. oben,links+hl 
1177 CDDOBD cal BDDO TXT UNDRAW CURSOR 
117A 2285B2 Id (B285),hl (fd Cursor Pos.(Row,Col)) 
117D C3CDBD ip BDCD TXT DRAW CURSOR 
KR era e TAT GET CURSOR 
1180 2A85B2 Id hl,(B285) (Ifd Cursor Pos.(Row,Co!)) 
1183 CD9711 cal 1197 Ifd Fenster oben,links-hl 
1186 3A8CB2 Id a,(B28C) (Ifd Roll Count) 

1189 C9 ret 
RR Id Fenst. oben,links+hl 
118A 3A88B2 Id a,(B288) (Ifd Fenster oben) 

118D 3D dc a 

118E 85 add al 

118F  6F Id 1,a 

1190 3A89B2 Id a,(B289) (Ifd Fenster links) 

1193 3D dc a 

1194 84 add ah 

1195 67 Id h,a 

1196 C9 ret 
BR fd Fensteroben,links-hl 
1197 3A88B2 Id a,(B288) (Ifd Fenster oben) 

119A 95 sub | 

119B 2F cpl 

1190 3C inc a 

119D 3C inc a 

119E 6F Id 1,a 

119F 3A89B2 Id a,(B289) (Ifd Fenster links) 

11A2 94 sıb h 

11A3 2F cpl 

11A4 3C inc a 

11A5 3C inc a 

11A6 67 Id h,a 

11A7 C9 ret 
KR MOVE ÜUrSOr 
11A8 CDDOBD cal BDDO TXT UNDRAW CURSOR 
11AB 2A85B2 Id hl,(B285) (Itd Cursor Pos.(Row,Col)) 
11AE CDDA11 cal 11DA hl innerhalb Fenstergrenzen? 
11B1 2285B2 Id (B285),hl (Ifd Cursor Pos.(Row,Col)) 
11B4 D8 ret c 

11B5 E5 push hl 

11B6 218CB2 Id hl,B28C Ifd Roll Count 

11B9 78 Id a,b 

11BA 87 add aa 

11BB 3C inc a 

11BC 86 add a,{hl) 

11BD 77 Id (hl),a 

11BE CD5612 cal 1256 TXT GET WINDOW 

1101 3A90B2 Id a,(B290) (TXT Ifd Paper) 

11C4 F5 push af 

11C5 DC3EOE cal c,OE3E SCRSWROLL 


165 


1108 Fi 
11C9 DA4FAOD 
11CC E1 
11CD C9 


TEXT SCREEN 


pop af 
cal nc,0DFA SCRHWROLL 
pop hl 


ret 


Re TXT VALIDATE 


11CE CD8A11 
11D1 CDDA11 
11D4 F5 
11D5 CD9711 
11D8 Fi 
11D9 C9 


cal 118A Ifd Fenst. oben,links+hl 

cal 11DA hl innerhalb Fenstergrenzen? 
push af 

cal 1197 Ifd Fenster oben,links-hl 
pop af 


ret 


KR ker er hlinnerhalb Fenstergrenzen? 


11DA 3A8BB2 
11DD BC 
11DE F2E611 
11E1 3A89B2 
11E4 67 
11E5 2C 
11E6 3A89B2 
11E9 3D 
11EA BC 
11EB FAF311 
11EE 3A8BB2 
11F1 67 
11F2 2D 
11F3 3A88B2 
11F6 3D 
11F7 BD 
11F8 F20612 
11FB 3A8AB2 
11FE BD 
11FF 37 
1200 FO 
1201 6F 
1202 O6FF 
1204 B7 
1205 C9 


1206 3C 
1207 6F 
1208 0600 
120A B7 
120B C9 


Id a,(B28B) (Ifd Fenster rechts) 
cp h 

ip p,11E6 

Id a,(B289) (Ifd Fenster links) 
Id h,a 

inc | 

Id a,(B289) (Ifd Fenster links) 
dc a 

cp h 

ip m,11F3 

Id a,(B28B) (Ifd Fenster rechts) 
Id h,a 

dee | 

Id a,(B288) (Ifd Fenster oben) 
dc a 

cp | 

ip p,1206 

Id a,(B28A) (Ifd Fenster unten) 
cp | 

scf 

ret p 

Id l,a 

Id b,FF 

or a 

ret 

inc a 

Id l,a 

Id b,00 

or a 


ret 


KERE E re TXTWINENABLE 


1200 CD570B 
120F 7C 
1210 CD4412 
1213 67 
1214 7A 
1215 CD4412 
1218 57 
1219 BC 


cal 0857 SCR CHAR LIMITS 
Id a,h 

call 1244 

Id h,a 

Id a,d 

call 1244 

Id d,a 

cp h 
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121A 
121C 
121D 
121E 
121F 
1222 
1223 
1224 
1227 
1228 
1229 
122B 
122C 
122D 
1230 
1234 
1235 
1236 
1238 
1239 
123A 
123C 
123D 
123E 
1241 


1244 
1245 
1248 
1249 
124A 
124B 
124C 


124D 
124E 
1251 
1252 
1253 
1254 
1255 


**%* 
1256 
1259 
125D 
1260 
1262 


3002 
54 

67 

7D 
CD4D12 
6F 

7B 
CD4D12 
öF 

BD 
3002 
5D 

6F 
2288B2 
ED538AB2 
7C 

B5 
2006 
7A 

AB 
2002 
7B 

A9 
3287B2 
037711 


B7 
F24912 
AF 
B8 
D8 
78 
c9 


B7 
F25212 
AF 
B9 
D8 
79 
c9 


jr 
Id 
Id 
Id 
call 
Id 
Id 
call 
Id 
cp 
jr 
Id 
Id 
Id 
Id 
Id 
or 
jr 
Id 
xor 
jr 
Id 
xor 
Id 
ip 
or 
Ip 
xor 
cp 
ret 
Id 
ret 


or 
ip 
xor 
cp 
ret 
Id 
ret 


TEXT SCREEN 


nc,121E 

d,h 

h,a 

a,l 

124D 

1,a 

a,e 

124D 

8,a 

j 

nc,122D 

el 

l,a 

(B288),hl (Ifd Fenster oben) 
(B28A),de (Ifd Fenster unten) 
a,h 

| 

nz,123E 

a,d 

b 

nz,123E 

a,e 

c 

(B287),a (Fenst.Flag(0=ges. Bildsch.)) 
1177 


a 
p,1249 
a 

b 

c 

a,b 


a 
p,1252 
a 

c 

c B 
a,C 


Kr TXT GET WINDOW 


2A88B2 
EDSB8AB2 
3A87B2 
C6FF 

09 


Id 
Id 
Id 
add 
ret 


hl,(B288) (Ifd Fenster oben) 

de,(B28A) (Ifd Fenster unten) 

a,(B287) (Fenst.Flag(0=ges. Bildsch.)) 
a,FF 
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TEXT SCREEN 


KEerrerrae& TKTDRAW/UNDRAW CURSOR 


1263 3A8DB2 Id a,(B28D) (Ifd Cursor Flag) 

1266 B7 or a 

1267 CO ret nz 
Br TXT PLACE/REMOVE CURSOR 
1268 C5 push bc 

1269 D5 push de 

126A E5 push hl 

126B CDAB11 cal 11AB 

126E ED4B8FB2 Id bc,(B28F) (TXT Ifd Pen) 

1272 CDDFOD cal ODDF SCR CHAR INVERT 

1275 E1 pp hl 

1276 DI pop de 

1277 C1 pop be 

1278 C9 ret 
tn TXTCURON 
1279 F5 push af 

127A 3EFD Id a,FD 

127C CD8B12 cal 128B Cur Enable Cont'd 

127F Fi pop af 

1280 C9 ret 
tt TXTCUR OFF 
1281 F5 push af 

1282 3E02 Id a,02 

1284 CD9C12 cal 129C Cur Disable Cont'd 

1287 Fi pop af 

1288 09 ret 
tn TXT CUR ENABLE 
1289 3EFE Id a,FE 
nn Our Enable Cont’d 
128B F5 push af 

128C CDDOBD cal BDDO TXT UNDRAW CURSOR 

128F Fi pop af 

1290 E5 push hl 

1291 218DB2 Id h1,B28D Ifd Cursor Flag 

1294 A6 and (hl) 

1295 77 Id (h),a 

1296 Ei pp hl 

1297 C3CDBD ip BDCD TXT DRAW CURSOR 
nn TAT CUR DISABLE 
129A 3E01 Id a,01 
Brei ee OurDisable Cont’d 
1290 F5 push af 

129D CDDOBD cal BDDO TXT UNDRAW CURSOR 

12A0 Fi pop af 

12A1 E5 push hl 

12A2 218DB2 Id h1,B28D Ifd Cursor Flag 

12A5 B6 or (hi) 
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TEXT SCREEN 


12A6 77 Id (h),a 

12A7 Ei pp hl 

12A8 C9 ret 
kr TÄTSETPEN 
12A9 218FB2 Id h1,B28F TXT Ifd Pen 

12AC 1803 jr 12B1 
Br TXTSET PAPER 
12AE 2190B2 Id h1,B290 TXT Ifd Paper 

12B1 F5 push af 

12B2 CDDOBD cal BDDO TXT UNDRAW CURSOR 

12B5 Fi pop af 

12B6 CD860C cal 0086 SCR INK ENCODE 

12B9 77 Id (h),a 

12BA C3CDBD ip BDCD TXT DRAW CURSOR 
Ra TXTGETPEN 
12BD 3A8FB2 Id a,(B28F) (TXT Ifd Pen) 

12C0 C3A00C ip 0CAO SCR INK DECODE 
rk TAT GET PAPER 
1203 3A90B2 Id a,(B290) (TXT Ifd Paper) 

12C6 C3A00C jp 0CAO SCR INK DECODE 
ee TAT INVERSE 
1209 2A8FB2 Id hl,(B28F) (TXT Ifd Pen) 

1200 7C Id a,h 

12CD 65 Id h,l 

12CE 6F Id 1,a 

12CF 228FB2 Id (B28F),hl (TXT Ifd Pen) 

12D2 C9 ret 
re TAT GET MATRIX 
1203 D5 push de 

12D4 5F Id 8,a 

12D5 CD2A13 cal 132A TXTGETM TABLE 

12D8 3009 jr nc,12E3 

12DA 57 Id d,a 

12DB 7B Id ae 

12DC 9 sub d 

12DD 3F ccf 

12DE 3003 ir nc,12E3 

12E0 5F Id e,a 

12E1 1803 jr 12E6 

12E3 210038 Id h1,3800 

12E6 F5 push af 

12E7 1600 Id d,00 

12E9 EB ex de,hl 

12EA 29 add hl,hl 

12EB 29 add hl,hl 

12EC 29 add hl,hl 

12ED 19 add hi,de 

12EE Fi pop af 

12EF DI pop de 
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12F0 


c9 


ret 


TEXT SCREEN 


KERKKE er eere TXTSET MATRIX 


12F1 

12F2 
12F5 
12F6 
12F7 
12FA 
12FC 


EB 
CDD312 
DO 

EB 
010800 
EDBO 
c9 


ex 
call 
ret 
ex 
Id 
Idir 
ret 


de,hl 

12D3 TXT GET MATRIX 
nc 

de,hl 

bc,0008 


KR rer 66 TAT SETM TABLE 


12FD 
12FE 
12FF 
1300 
1302 
1304 
1305 
1306 
1307 
1308 
1309 
130C 
130D 
130E 
1310 
1311 

1312 
1314 
1315 
1318 
1319 
131A 
131C 
131D 
1320 
1324 
1325 
1329 


E5 

7A 

B7 
1600 
2019 
15 

D5 

4B 

EB 

79 
CDD312 
7C 

aM 
2004 
7D 

AB 
2808 
05 
CDF712 
C1 

0C 
20EC 
DI 
CD2A13 
ED5394B2 
D1 
ED5396B2 
c9 


push 
Id 
or 
Id 

jr 
dec 
push 
Id 
ex 
Id 
call 
Id 
xor 
jr 

Id 
xor 
jr 
push 
call 
pop 
inc 
jr 
pop 
call 
Id 
pop 
Id 
ret 


h 
a,d 


a 
d,00 

nz,131D 

d 

de 

ce 

de,hl 

a,C 

12D3 TXT GET MATRIX 
a,h 

d 

nz,1314 

a,l 

e 

z,131C 

bc 

12F7 

bc 

c 

nz,1308 

de 

132A TXTGETM TABLE 
(B294),de (1. Zeichen User Matrix) 
de 

(B296),de (Adr. User Matrix) 


KR TXTGETM TABLE 


132A 
132D 
132E 
132F 
1330 
1333 


2A94B2 
7C 
or 
7D 
2A96B2 
cg 


Id 
Id 
ca 
Id 
Id 
ret 


hl,(B294) (1. Zeichen User Matrix) 
a,h 

a,l 

hl,(B296) (Adr. User Matrix) 
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TEXT SCREEN 


re TXTWRCHAR 


1334 47 Id b,a 

1335 3A8EB2 Id a,(B28E) (VDU Flag (O=disabled)) 
1338 B7 or a 

1339 08 ret z 

133A 05 push bc 

133B CDA811 cal 11A8 move Cursor 

133E 24 inc h 

133F 2285B2 Id (B285),hl (Ifd Cursor Pos.(Row,Col)) 
1342 25 dc h 

1343 Fl pop af 

1344 CDD3BD cal BDD3 TXT WRITE CHAR 
1347 C3CDBD ip BDCD TXT DRAW CURSOR 
Br TXT WRITE CHAR 
134A E5 push hl 

134B CDD312 call 12D3 TXT GET MATRIX 
134E 1198B2 Id de,B298 

1351 D5 push de 

1352 CDF30E cal OEF3 SCR UNPACK 

1355 DI pop de 

1356 E1 pop hl 

1357 CD640B cal 0B64 SCR CHAR POSITION 
135A 0E08 Id c,08 

1350 C5 push bc 

135D E5 push hl 

135E 05 push bc 

135F D5 push de 

1360 EB ex de,hl 

1361 4E Id c,(hl) 

1362 CD7613 call 1376 

1365 CDF90B cal OBF9 SCR NEXT BYTE 

1368 Di pop de 

1369 19 inc de 

136A 01 pop bc 

136B 10F1 dinz 135E 

136D E1 pp hl 

136E CD130C cal 0013 SCR NEXT LINE 

1371 C1 pop be 

1372 0D dee c 

1373  20E7 jr nz,135C 

1375 C9 ret 

1376 2A91B2 Id hl,(B291) (td Background Mode) 
1379 E9 p Mh) 
Berk TXT SET BACK 
137A 219113 Id h1,1391 

137D B7 or a 

137E 2803 jr 2,1383 

1380 219F13 Id hl,139F 

1383 2291B2 Id (B291),hl (fd Background Mode) 
1386 C9 ret 
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TEXT SCREEN 


KRRKRRREEE  erraa TÄITGETBACK 


1387 
138A 
138D 
138E 
138F 
1390 


1391 
1394 
1395 
1396 
1397 
1398 
1399 
139A 
139B 
139D 
139F 
13A2 
13A3 
13A4 


2A91B2 
116FEC 
19 
TC 
B5 
cg 


2A8FB2 
79 

2F 

A4 

47 

79 

A5 

BO 
0EFF 
1803 
3A8FB2 
47 

EB 
C36B0C 


Id 
Id 
add 
Id 
or 
ret 


Id 
Id 
cpl 
and 
Id 
Id 


hi,(B291) (fd Background Mode) 
de,EC6F 

hl,de 

a,h 

j 


hi,(B28F) (TXT Ifd Pen) 
a,C 


h 

b,a 

a,C 

| 

b 

FF 

13A2 

a,(B28F) (TXT Ifd Pen) 
b,a 

de,h 

0C6B SCR PIXELS 


tt TAT SET GRAPHIC 


13A7 
13AA 


3293B2 
cg9 


Id 
ret 


(B293),a (GRA CHAR WR Mode (0=disab!)) 


tt TXT RD CHAR 


13AB 
13AC 
13AD 
13AE 
13B1 

13B4 
13B7 
13B8 
13BB 
13BC 
13BD 
13BE 
13BF 


LE 2 ZZ z z z z z zZ z zZ z zz zz 2 


13C0 
13C3 
13C6 
13C7 
13C8 
13CB 
13CE 
13CF 
13D0 
13D2 
13D3 
13D6 


ES 

D5 

05 
CDDOBD 
2A85B2 
CDD6BD 
F5 
CDCDBD 
Fi 

c1 

D1 

El 

c9 


3A8FB2 
1198B2 
ES 

D5 
CD490F 
CDE313 
DI 

Ei 

3001 
co 
3AY0B2 
D5 


push 
push 
push 
call 
Id 
call 
push 
call 
pop 
pop 
pop 
pop 
ret 


Id 

Id 
push 
push 
call 
call 
pop 
pop 
jr 
ret 
Id 
push 


h 

de 

bc 

BDDO TXT UNDRAW CURSOR 
hl,(B285) (Ifd Cursor Pos.(Row,Co!)) 
BDD6 TXT UNWRITE 

af 

BDCD TXT DRAW CURSOR 

af 

bc 

de 

h 


KK EEE TAT UNWARITE 
a,(B28F) (TXT Ifd Pen) 
de,B298 

h 

de 

0F49 SCR REPACK 
13E3 

de 

h 

nc,13D3 

nz 

a,(B290) (TXT Ifd Paper) 
de 
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13D7 CD490F 
13DA DI 
13DB 0608 
13DD 1A 
13DE 2F 
13DF 12 
13E0 13 
13E1 10FA 
13E3 0E00 
13E5 79 
13E6 CDD312 
13E9 1198B2 
13EC 0608 
13EE 1A 
13EF BE 
13F0 2009 
13F2 23 
13F3 13 
13F4 10F8 
13F6 79 
13F7  FE2O 
13F9 37 
13FA 09 


13FB 0C 
13FC 20E7 
13FE AF 
13FF C9 


call 
pop 
Id 
Id 
cpl 
Id 
inc 
dinz 
Id 
Id 
call 
Id 
Id 
Id 
cp 
jr 
inc 
inc 
djnz 
Id 
cp 
scf 
ret 


inc 
jr 

xor 
ret 


TEXT SCREEN 


0F49 SCR REPACK 
de 

b,08 

a,(de) 


(de),a 

de 

13DD 

c,00 

a,C 

12D3 TXT GET MATRIX 
de,B298 


nz,13E5 
a 


KR a aaa TAT OUTPUT 


1400 F5 
1401 085 
1402 D5 
1403 ES 
1404 CDDIBD 
1407 E1 
1408 D1 
1409 C1 
140A Fi 
140B C9 


push 
push 
push 
push 
call 
pop 
pop 
pop 
pop 
ret 


af 

bc 

de 

hl 

BDDI TXT OUT ACTION 
hl 

de 

bc 

af 


Br TXTOUT ACTION 


140C 4F 
140D 3A93B2 
1410 B7 
1411 79 
1412 024519 
1415 21B8B2 
1418 46 
1419 78 
141A FEOA 
141C 3028 
141E B7 
141F 2006 
1421 79 


Id 
Id 
or 
Id 
Ip 
Id 
Id 
Id 
cp 
jr 
or 
jr 
ld 


c,a 

a,(B293) (GRA CHAR WR Mode (0=disabl)) 
a 

a,C 

nz,1945 GRA WR CHAR 

hl,B2B8 Zeichenzähler Control Buffer 
b,(hi) 

a,b 

0A Control Buffer voll ? 

nc,1446 ja» 

a leer ? 

nz,1427 nein >) 

a,C 
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TEXT SCREEN 


1422 FE2O cp 20 Steuerzeichen ? 

1424 D23413 ip nc,1334 nein >) TXT WR CHAR 

1427 04 inc b Zähler +1 

1428 70 ld (hl),b 

1429 58 ld e,b 

142A 1600 ld d,00 

142C 19 add hl,de 

142D 71 ld (hl),c 

142E 3AB9B2 ld a,(B2B9) (Start Control Buffer) 

1431 5F ld e,a 

1432 21C3B2 ld h1,B2C3 Sprungtabelle Steuerzeichen 
1435 19 add hl,de 

1436 19 add hl,de 

1437 19 add hl,de 

1438 7E ld a,(hl) erforderl. Anzahl 

1439 B8 cp b Steuerparameter erreicht ? 
143A DO ret nc nein I) 

143B 23 inc hl 

143C 5E ld e,(hl) 

143D 23 inc hl 

143E 56 ld d,(hl) 

143F 21B9B2 ld hl,B2B9 Start Control Buffer 

1442 79 ld ac 

1443 CD1600 cal 0016 call (de) 

1446 AF xor a 

1447 32B8B2 ld (B2B8),a (Zeichenzähler Control Buffer) 
144A C9 tet 
KR rc TAT VDU DISABLE 
144B CD9A12 cal 129A TXT CUR DISABLE 

144E AF xor a 

144F 1805 jr 1456 
tt TXT VDU ENABLE 
1451 CD8912 cal 1289 TXT CUR ENABLE 

1454 3EFF Id a,FF 

1456 328EB2 Id (B28E),a (VDU Flag (O=disabled)) 

1459 18EB jr 1446 

145B AF xor a 

145C 32B8B2 Id (B2B8),a (Zeichenzähler Control Buffer) 
145F 216B14 Id h1,146B Default Steuerzeichen Sprünge 
1462 11C3B2 Id de,B2C3 Sprungtabelle Steuerzeichen 
1465 016000 Id bc,0060 

1468 EDBO dir 

146A 09 ret 


WERKE rer Default Steuerzeichen Sprünge 
146B 00 db 00 


1460 E214 dw 14E2 00 kein Effekt 

146E 00 db 00 

146F 3413 dw 1334 01 TXTWR CHAR 
1471 00 db 00 

1472 9A12 dw 129A 02 TXT CUR DISABLE 
1474 00 db 00 

1475 8912 dw 1289 03 TXT CUR ENABLE 
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TEXT SCREEN 


1477 01 db 01 

1478 CAOA dw  OACA 04 SCR SET MODE 

147A 01 db 01 

147B 4519 dw 1945 05 GRA WR CHAR 

147D 00 db 00 

147E 5114 dw 1451 06 TXT VDU ENABLE 

1480 00 db 00 

1481 D814 dw 14D8 07 Klingel 

1483 00 db 00 

1484 0A15 dw 150A 08CRSRLEFT 

1486 00 db 00 

1487 0F15 dw 150F 09 CRSR RGHT 

1489 00 db 00 

148A 1415 dw 1514 0A CRSR DOWN 

148C 00 db 00 

148D 1915 dw 1519 0B CRSR UP 

148F 00 db 00 

1490 4015 dw 1540 0C TXT CLEAR WINDOW 
1492 00 db 00 

1493 3015 dw 1530 0D CRSR auf Zeilenanfang 
1495 01 db 01 

1496 AE12 dw 12AE 0E TXT SET PAPER 

1498 01 db 0 

1499 A912 dw 12A9 OF TTXTSET PEN 

149B 00 db 00 

1490 4F15 dw 154F 10 Zeichen auf CRS Pos löschen 
149E 00 db 00 

149F 8E15 dw 158E 11 Zeile bis CRS Pos löschen 
14A1 00 db 00 

14A2 8415 dw 1584 12 Zeile ab CRS Pos löschen 
14A4 00 db 00 

14A5 6D15 dw 156D 13 Fenster bis CRS Pos lösche 
14A7 00 db 00 

14A8 5615 dw 1556 14 Fenster ab CRS Pos löschen 
14AA 00 db 00 

14AB 4B14 dw 144B 15 TXT VDU DISABLE 

14AD 01 db 01 

14AE E314 dw 1463 16 Transparentmode Ein/Aus 
1480 01 db 01 

1481 490C dw 0049 17 SCR ACCESS 

1483 00 db 00 

14B4 0912 dw 12C9 18 TXT INVERSE 

14B6 09 db 09 

1487 0415 dw 1504 19=SYMBOL Befehl 

1489 04 db 04 

14BA F814 dw 14F8 1A Fenster definieren 

14BC 00 db 00 

14BD E214 dw 14E2 1B kein Effekt 

14BF 03 db 03 

14C0 E814 dw 14E8 1C =INK Befehl 

1402 02 db 02 

1403 F114 dw 14F1 1D =BORDER Befehl 

1405 00 db 00 

1406 2A15 dw 152A 1E CRSR HOME 

1408 02 db 02 
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14C9 3815 


KR 
14CB 21C3B2 
14CE C9 


14CF 
14D0 
14D1 
14D2 
14D3 
14D4 
14D5 
14D6 
14D7 


87 
00 
00 
5A 
00 
00 
0B 
14 
00 


Be 
14D8 DDES 

14DA 21CF14 

14DD CDYFIF 

14E0 DDE1 

14E2 C9 


ee een 
14E3 OF 

14E4 9F 

14E5 C37A13 


Eee 
14E8 23 

14E9 TE 

14EA 23 

14EB 46 

14EC 23 

14ED 4E 

14EE C3ECOC 


er 
14F1 23 

14F2 46 

14F3 23 

14F4 4E 

14F5 C3F10C 


Eee zz 
14F8 23 
14F9 56 
14FA 23 
14FB TE 
14FC0 23 
14FD 5E 
14FE 23 
14FF 6E 
1500 67 
1501 C30C12 


TEXT SCREEN 


dw 1538 1F =LOCATE Befehl 


RR TAT GET CONTROLS 


Id h1,B2C3 Sprungtabelle Steuerzeichen 
ret 

add aa 

nop 

nop 

Id e,d 

nop 

nop 

dec be 

inc d 

nop 
tr 07 Klingel 
push ix 

Id hl,14CF 

cal 1F9F SOUND QUEUE 

pop ix 


ret 


Br 16 Transparentmode Ein/Aus 
ca 





sbc aa 

jp 137A TXT SET BACK 
tt TC =INK Befehl 
inc hl 

Id a,(hl) 

inc hl 

Id b,(hl) 

inc hl 

Id c,(h)) 

ip 0CEC SCR SET INK 
BR ID =BORDER Befehl 
inc hl 

Id b,(hl) 

inc hl 

Id c,(hl) 

ip 0CF1 SCR SET BORDER 
Kr TA Fenster definieren 
inc hl 

Id d,(hl) 

inc hl 

Id a,(hl) 

inc hl 

Id e,(hl) 

inc hl 

Id (hl) 

Id h,a 

ip 120C TXT WIN ENABLE 
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KR 19 =SYMBOL Befehl 
1504 23 inc hl 


1505 7E Id a,(hl) 

1506 23 inc hl 

1507 C3F112 ip 12F1 TXT SET MATRIX 
KR kr re 0OBCORSRLEFT 
150A 1100FF Id de,FFOO 

150D 180D jr 151C 

KR rer DOORSRRGHT 
150F 110001 Id de,0100 

1512 1808 jr 151C 
nr rer DACRSR DOWN 
1514 110100 Id de,0001 

1517 1803 jr 151C 


nr OB CORSRUP 


1519 11FFOO Id de,0OFF 


1510 D5 push de 

151D CDA811 cal 11A8 move Cursor 

1520 Di pop de 

1521 7D Id a,l 

1522 83 add ae 

1523 6F Id l,a 

1524 7C Id a,h 

1525 82 add ad 

1526 67 Id h,a 

1527 C37A11 ip 117A 
RR TE CRSR HOME 
152A 2A88B2 Id hl,(B288) (Ifd Fenster oben) 

152D 037711 jp 1177 
kr OD ORSR auf Zeilenanfang 
1530 CDAB11 cal 11A8 move Cursor 

1533 3A89B2 Id a,(B289) (Ifd Fenster links) 

1536 18EE jr 1526 


rt IF =LOCATE Befehl 


1538 23 inc hl 


1539 56 Id d,(hl) 

153A 23 inc hl 

153B 5E Id e,(hl) 

1530 EB ex de,hl 

153D 037411 ip 1174 TXT SET CURSOR 
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KERKEE re er TXT CLEAR WINDOW 


1540 CDDOBD cal BDDO TXT UNDRAW CURSOR 

1543 2A88B2 Id hl,(B288) (Ifd Fenster oben) 

1546 2285B2 Id (B285),hl (Ifd Cursor Pos.(Row,Col)) 

1549 ED5B8AB2 Id de,(B28A) (Ifd Fenster unten) 

154D 1848 jr 1597 
BR 10 Zeichen auf ORS Pos löschen 
154F CDA811 cal 11A8 move Cursor 

1552 54 Id d,h 

1553 5D Id e,l 

1554 1841 jr 1597 
Brei ee 14 Fensterab CRS Pos löschen 
1556 CD8415 cal 1584 12 Zeile ab CRS Pos löschen 

1559 2A88B2 Id hl,(B288) (Ifd Fenster oben) 

1550 ED5B8AB2 Id de,(B28A) (Ifd Fenster unten) 

1560 3A85B2 Id a,(B285) (Ifd Cursor Pos.(Row,Col)) 

1563 6F Id 1,a 

1564 2C inc | 

1565 BB cp e 

1566 3A90B2 Id a,(B290) (TXT Ifd Paper) 

1569 DCB30D cal c,0DB3 SCR FILLBOX 

1560 C9 ret 

nt 13 Fenster bis ORS Pos löschen 
156D CD8E15 cal 158E 11 Zeile bis CRS Pos löschen 

1570 2A88B2 Id hl,(B288) (Ifd Fenster oben) 

1573 3A8BB2 Id a,(B28B) (Ifd Fenster rechts) 

1576 57 Id d,a 

1577 3A85B2 Id a,(B285) (Ifd Cursor Pos.(Row,Col)) 

157A 3D de a 

157B 5F Id e,a 

157C BD cp | 

157D 3A90B2 Id a,(B290) (TXT Ifd Paper) 

1580 D4B30D cal nc,0DB3 SCR FILL BOX 

1583 09 ret 
nn 12 Zeileab ORS Pos löschen 
1584 CDA811 cal 11A8 move Cursor 

1587 5D Id e,l 

1588 3A8BB2 Id a,(B28B) (Ifd Fenster rechts) 

158B 57 Id d,a 

1580 1809 jr 1597 
Bee 11 Zeile bis CRS Pos löschen 
158E CDA811 cal 11A8 move Cursor 

1591 EB ex de,hl 

1592 6B Id le 

1593 3A89B2 Id a,(B289) (Ifd Fenster links) 

1596 67 Id h,a 

1597 3A90B2 Id a,(B290) (TXT Ifd Paper) 

159A CDB30D cal O0DB3 SCR FILLBOX 

159D CDCDBD cal BDCD TXT DRAW CURSOR 

15A0 (09 ret 
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15A1 
15A2 
15A3 
15A4 
15A5 
15A6 
15A7 
15A8 
15A9 
15AA 
15AB 
15AC 
15AD 
15AE 
15AF 


C7 
C7 
C7 
C7 
c7 
C7 
c7 
C7 


C7 
c7 
C7 
C7 
c7 
c7 


rst 
rst 
rst 
rst 
rst 
rst 
rst 
rst 
rst 
rst 
rst 
rst 
rst 
rst 
rst 


oooooooooooco00o0 


TEXT SCREEN 
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2.5.6 GRAPHICS SCREEN (GRA) 


Dieses Pack dient ausschließlich der Handhabung des Grafikfensters. 


u den Koordinatenan en, die von den verschiedenen Routinen ver- 
ud werden, ist Kuga: oe 


Die Koordinaten werden in 3(4) Stufen übersetzt. Die anwendernächste 
Stufe ist die Position bezüglich des von ihm gesetzten Koordinatenur- 
sprungs (ORIGIN). Diese wird umgerechnet in eine Position relativ zum 
Bildschirmursprung (unten links). 

Diese beiden Stufen sind vom Mode unabhängig! 

Die letzte Stufe ist die physikalische Adresse des Punktes. Diese ist ab- 
hängig vom Ifd. Modus! 

Evtl. wird oben noch eine weitere Ebene vorgesetzt, nämlich dann, wenn 
ein relatives Koordinatenpaar in eine absolute Position relativ zu ORIGIN 
berechnet werden muß. 


Interessante Routinen sind: GRA PLOT ABSOLUTE setzt einen Punkt 
an der durch de (X-Koordinate) und hl (Y-Koordinate) gegebenen absolu- 
ten Position, falls diese innerhalb des Grafikfensters liegt. 

Beachten Sie, daß diese Routine über die Indirection GRA PLOT läuft, in 
deren Verlauf auch die Indirection SCR WRITE benutzt wird! 


GRA LINE ABSOLUTE zeichnet eine Linie vom laufenden Grafikcursor 
bis zu der durch de (X-Koordinate) und hl (Y-Koordinate) bestimmten ab- 
soluten Position, falls diese innerhalb des Grafikfensters liegt. Auch hier 
werden wieder Indirections benutzt, und zwar GRA LINEund SCR WRI- 
TE! 


GRA WR CHAR bringt das in a enthaltene Zeichen auf den Bildschirm, 
und zwar an der laufenden Grafikcursor-Position. Diese legt die linke obe- 
re Ecke des Zeichens fest. Der Grafikcursor wird danach um die Zeichen- 
breite weitergesetzt. Diese Distanz ist vom Modus abhängig! 
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GRAPHICS SCREEN 


tree GRAINITIALISE 


15B0 
15B3 
15B6 
15B7 
15BA 
15BB 
15BE 
15C1 

15C2 
1503 
15C6 
15C9 
15CC 
15CD 
15CE 
15D1 

15D2 
15D3 


15D6 
15D9 
15DA 
15DD 
15DE 


LESE ZZZZZZZ ZZ Eu zo 


15DF 
15E2 


15E5 
15E6 
15E8 
15EB 


15EE 


DEZ ZZ EZ zz z z zz ZZ z ZZ 2 


15F1 

15F4 
15F8 
15FB 


LE ZZ z zZ z z z z z z z z z zz z; 


15FC 
1600 
1603 


1604 
1608 
160B 
160E 
160F 


CDDF15 
210100 
7C 
CDFD17 
7D 
CDF617 
210000 
54 

5D 
CD0416 
110080 
21FF7F 
E5 

D5 
CD3417 
E 

DI 
037917 


CDOA18 
67 
CD0418 
6F 
09 


21E515 
C38A0A 


09 
DCBD 
C31618 


C32A18 


C33C18 


CD5716 
ED532CB3 
222EB3 
cg 


ED5B2CB3 
2A2EB3 
cg9 


ED5328B3 
222AB3 
110000 

62 

6B 


call 
Id 
Id 
call 
Id 
call 
Id 
Id 
Id 
call 
Id 
Id 
push 
push 
call 
pop 
pop 
Ip 
call 
Id 
call 
Id 
ret 


Id 
Ip 
db 
dw 
jp 
jp 
jp 


call 
Id 
Id 
ret 


Id 
Id 
ret 


Id 
Id 
Id 
Id 
Id 


15DF GRA RESET 
h1,0001 Pen 1, Paper 0 
a,h 

17FD GRA SET PAPER 
al 

17F6 GRA SET PEN 
h1,0000 Origin auf 0,0 setzen 
d,h 

el 

1604 GRA SET ORIGIN 
de,8000 

hl, 7FFF 

hl 

de 

1734 GRA WIN WIDTH 
hl 

de 

1779 GRA WIN HEIGHT 
180A GRA GET PAPER 
h,a 

1804 GRAGET PEN 


Kr GRARESET 


hl,15E5 Restore GRA Indirections 

0ABA Move (hl+3)D((hl+1)),cnt= (hl) 
09 9 Bytes 

BDDC Zieladresse 

1816 GRAPLOT 

182A GRA TEST 

183C GRA LINE 
Krk GRA MOVE RELATIVE 
1657 Add Ifd Koord. + rel Koord. 
(B32C),de (Ifd X Koord.) 

(B32E),hl (Ifd Y Koord.) 


KK er GRAASK CURSOR 


de,(B32C) (Ifd X Koord.) 
hl,(B32E) (Id Y Koord.) 
(B328),de (X Origin) 
(B32A),hl (Y Origin) 
de,0000 

h,d 


l,e 
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1610 18E2 jr 15F4 GRA MOVE ABSOLUTE 
KERE rrrr& GRAGETORIGIN 
1612 ED5B28B3 Id de,(B328) (X Origin) 

1616 2A2AB3 Id hl,(B32A) (Y Origin) 

1619 C9 ret 
kr Dhys Startposition holen 
161A CDFC15 cal 15FC GRA ASK CURSOR 
KARKKERKEE kr & Phys Zielpos holen+Cur setzen 
161D CDF415 cal 15F4 GRA MOVE ABSOLUTE 
1620 ES push hl 

1621 CDECOA cal DOAEC SCR GET MODE 

1624 2F cpl 

1625 C601 add 4,01 

1627 CEO2 ade 4,02 

1629 2600 Id h,00 

162B 6F Id l,a 

1620 CB7A bit 7,d 

162E 2803 jr 2,1633 

1630 EB ex de,hl 

1631 19 add hi,de 

1632 EB ex de,hl 

1633 2F cpl 

1634 Ag and e 

1635 5F Id e,a 

1636 7D Id a,l 

1637 2A28B3 Id hl,(B328) (X Origin) 

163A 19 add hl,de 

163B OF rrca 

163C DC7417 call c,1774 

163F OF rrca 

1640 DC7417 cal c,1774 

1643 DI pop de 

1644 E5 push hl 

1645 7A Id a,d 

1646 07 rica 

1647 3001 jr nc,164A 

1649 13 inc de 

164A 7B Id a,e 

164B E6FE and FE 

164D 5F Id 6,4 

164E 2A2AB3 Id hl,(B32A) (Y Origin) 

1651 19 add hl,de 

1652 CD7417 cal 1774 

1655 Di pop de 

1656 C9 ret 
KERRKERKEKE  E EEK AddlfdKoord. + rel Koord. 
1657 E5 push hl 

1658 2A2CB3 Id hl,(B32C) (Ifd X Koord.) 

165B 19 add hi,de 

165C D1 pop de 

165D E5 push hl 
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165E 
1661 
1662 
1663 


1664 
1665 
1666 
1669 
166A 
166B 
166D 
1670 
1673 
1674 
1676 
1679 
167A 
167D 
167E 
1680 
1683 
1686 
1687 
1688 
168A 
168D 
1691 

1694 
1695 
1696 
1698 
169B 
169E 
169F 
16A1 

16A4 
16A8 
16A9 
16AA 
16AB 


16AC 
16AD 
16AE 
16AF 


16B0 
16B1 
16B2 
16B3 
16B6 
16B7 
16B8 
16BA 


2A2EB3 
19 
Di 
c9 


D5 

E5 
2A30B3 
2B 

B7 
ED52 
F2AC16 
2A32B3 
B7 
ED52 
FAAC16 
Di 
2A34B3 
B7 
ED52 
FAAD16 
2A36B3 
2B 

B7 
ED52 
FA9116 
ED5B36B3 
2A36B3 
2B 

B7 
ED42 
F2AD16 
2A34B3 
B7 
ED42 
F2A816 
ED4B34B3 
EB 

DI 

37 

09 


E 
DI 
B7 
c9 


E5 

D5 

EB 
2A36B3 
2B 

B7 
ED52 
F2F816 


Id 
add 


pop 
ret 


push 
push 
Id 
dec 
or 
sbc 
ip 
Id 
or 
sbc 
Ip 
pop 
Id 
or 
sbc 
ip 
Id 
dec 
or 
sbc 
p 
Id 
Id 
dec 
or 
sbc 
Ip 
Id 
or 
sbc 
ip 
Id 
ex 
pop 
scf 
ret 


pop 
pop 
or 
ret 


push 
push 
ex 

Id 
dec 
or 
sbc 
Ip 


GRAPHICS SCREEN 


hi,(B32E) (Ifd Y Koord.) 
hi,de 
de 


de 

hl 

hl,(B330) (X Koord GRA Fenster links) 
hl 


a 

hl,de 

p,16AC 

hl,(B332) (X Koord GRA Fenster rechts) 
a 

hl,de 

m,16AC 

de 

h1,(B334) (Y Koord GRA Fenster oben) 
a 

hi,de 

m,16AD 

hl,(B336) (Y Koord GRA Fenster unten) 
hl 


a 

hl,de 

m,1691 

de,(B336) (Y Koord GRA Fenster unten) 
h1,(B336) (Y Koord GRA Fenster unten) 
hl 

a 

hl,bc 

p,16AD 

h1,(B334) (Y Koord GRA Fenster oben) 


a 

hl,bc 

p,16A8 

bc,(B334) (Y Koord GRA Fenster oben) 
de,hl 

de 


hl 
de 


hl 

de 

de,hl 

hl,(B336) (Y Koord GRA Fenster unten) 
hl 

a 

hi,de 

p,16F8 
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16BD 2A34B3 Id hl,(B334) (Y Koord GRA Fenster oben) 
16C0 B7 or a 

16C1 ED52 sbc  hl,de 

1603 FAF816 ip m,16F8 

16C6 Di pop de 

1607 2A32B3 Id hl,(B332) (X Koord GRA Fenster rechts) 
16CA B7 or a 

16CB ED52 sbc  hi,de 

16CD FAF916 ip m,16F9 

16D0 2A30B3 Id hl,(B330) (X Koord GRA Fenster links) 
16D3 2B dee hl 

16D4 B7 or a 

16D5 ED52 sbc  hi,de 

16D7 FADEI6 ip m,16DE 

16DA ED5B30B3 Id de,(B330) (X Koord GRA Fenster links) 
16DE 2A30B3 Id hl,(B330) (X Koord GRA Fenster links) 
16E1 2B dee hl 

16E2 B7 or a 

16E3 ED42 sbc  hlbe 

16E5 F2F916 ip p,16F9 

16E8 2A32B3 Id hl,(B332) (X Koord GRA Fenster rechts) 
16EB B7 or a 

16EC ED42 sbc hl,be 

16EE F2F516 jp p,16F5 

16F1 ED4B32B3 Id bc,(B332) (X Koord GRA Fenster rechts) 
16F5 E1 pp hl 

16F6 37 scf 

16F7 C9 ret 

16F8 Di pop de 

16F9 E1 pp hl 

16FA B7 or a 

16FB C9 ret 

16FC CD1D16 cal 161D phys Zielpos holen+Cur setzen 
16FF E5 push hl 

1700 2A30B3 Id hl,(B330) (X Koord GRA Fenster links) 
1703 2B dee hl 

1704 B7 or a 

1705 ED52 sbc hl,de 

1707 F22D17 ip p,172D 

170A 2A32B3 Id hl,(B332) (X Koord GRA Fenster rechts) 
170D B7 or a 

170E ED52 sbc  hl,de 

1710 FA2D17 ip m,172D 

1713 E1 pp hl 

1714 D5 push de 

1715 EB ex de,hl 

1716 2A36B3 Id hl,(B336) (Y Koord GRA Fenster unten) 
1719 2B decc hl 

171A B7 or a 

171B ED52 sbc hl,de 

171D F23017 ip p,1730 

1720 2A34B3 Id hl,(B334) (Y Koord GRA Fenster oben) 
1723 B7 or a 
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1724 
1726 
1729 
172A 
172B 
172C 


172D 
172E 
172F 


1730 
1731 
1732 
1733 


.*x* 
1734 
1735 
1738 
1739 
173A 
173D 
173E 
173F 
1740 
1741 

1742 
1744 
1745 
1746 
1748 
1749 
174A 
174C 
174D 
1750 
1751 

1754 
1755 
1758 
175C 
175F 


1760 
1761 
1762 
1765 
1766 
1769 
176A 
176B 
176C 
176D 
176E 


ED52 
FA3017 
EB 

Di 

37 

09 


Ei 
B7 
c9 


EB 
DI 
B7 
09 


sbc 
Ip 
ex 
pop 
scf 
ret 


pop 
or 
ret 


ex 
pop 
or 
ret 
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hi,de 
m,1730 
de,hl 
de 


de,hl 
de 
a 


Br GRA WIN WIDTH 


E5 
CD6017 
Di 

E5 
CD6017 
Di 

7B 

% 

7A 

9C 
3801 
EB 

7B 


3D 
FC7017 
ED5330B3 
2232B3 
c9 


7A 
B7 
210000 
F8 
217F02 
7B 
% 
TA 
9C 
DO 
EB 


push 
call 
pop 
push 
call 
pop 
Id 
sub 
Id 
sbc 
ir 
ex 
Id 
and 
Id 
Id 
or 
Id 
call 
dec 
call 
dec 
call 
Id 
Id 
ret 


Id 
or 
Id 
ret 
Id 
Id 
sub 
Id 
sbc 
ret 
ex 


h 

1760 

de 

h 

1760 

de 

a,e 

| 

a,d 

a,h 

c,1745 

de,hl 

a,e 

F8 

e,a 

a,l 

07 

1,a 

0AEC SCR GET MODE 
a 

m,1770 

a 

m,1770 

(B330),de (X Koord GRA Fenster links) 
(B332),hl (X Koord GRA Fenster rechts) 


a,d 


a 
h1,0000 
m 
hl,027F 
ae 

| 

a,d 

a,h 

nc 
de,hl 
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176F 


1770 
1772 
1774 
1776 
1778 


c9 


CB2A 
CBiB 
CB2C 
CBiD 
cg 


ret 


sra 
m 
sra 
m 
ret 
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75 B: 5 


KERREEErr& GRA WIN HEIGHT 


1779 
177A 
177D 
177E 
177F 
1782 
1783 
1784 
1785 
1786 
1787 
1789 
178A 
178E 
1791 


1792 
1793 
1794 
1797 
1798 
179A 
179C 
179F 
17A0 
17A1 
17A2 
17A3 
17A4 
17A5 


E5 
CD9217 
DI 

E5 
CD9217 
Di 

7D 

% 

7C 

9A 

3801 

EB 
ED5334B3 
2236B3 
c9 


7A 

B7 
210000 
F8 
CB3A 
CB1B 
21C700 
7B 

% 

7A 

9C 

DO 

EB 

c9 


push 
call 
pop 
push 
call 
pop 
Id 
sub 
Id 
sbc 
jr 

ex 
Id 

Id 
ret 


hl 

1792 

de 

hl 

1792 

de 

a,l 

e 

a,h 

a,d 

c,178A 

de,hl 

(B334),de (Y Koord GRA Fenster oben) 
(B336),hl (Y Koord GRA Fenster unten) 


a,d 

a 
h1,0000 
m 

d 

e 
h1,00C7 
a,e 

| 

a,d 

a,h 

nc 
de,hl 


Kr rar GRAGET W WIDTH 


17A6 
17AA 
17AD 
17B0 
17B1 
17B4 
1785 
17B6 
1787 
17B8 
17B9 
17BA 
17BB 


ED5B30B3 
2A32B3 
CDECOA 
3D 
FCB617 
3D 

FO 

29 

23 

EB 

29 

EB 

c9 


Id 
Id 
call 
dec 
call 
dec 
ret 
add 
inc 
ex 
add 
ex 
ret 


de,(B330) (X Koord GRA Fenster links) 
hl,(B332) (X Koord GRA Fenster rechts) 
0AEC SCR GET MODE 

a 

m,17B6 

a 

p 

hl,hl 

hl 

de,hl 

hl,hl 

de,hl 
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KK a GRAGETWHEIGHT 





17BC ED5B34B3 Id de,(B334) (Y Koord GRA Fenster oben) 

17C0 2A36B3 Id hl,(B336) (Y Koord GRA Fenster unten) 

17C3 18F1 jr 17B6 

KR Ka RA CLEAR WINDOW 
17C5 CDA617 cal 17A6 GRA GET W WIDTH 

17C8 B7 or a 

17C9 ED52 sbc  hl,de 

17CB 23 inc hl 

17CC CD7417 cal 1774 

17CF CD7417 cal 1774 

17D2 CB3D srl | 

17D4 45 Id b,l 

1705 ED5B36B3 Id de,(B336) (Y Koord GRA Fenster unten) 

17D9 2A34B3 Id h1,(B334) (Y Koord GRA Fenster oben) 

17DC E5 push hl 

17DD B7 or a 

17DE ED52 sbc hl,de 

17E0 23 inc hl 

17E1 4D Id c 

17E2 ED5B30B3 Id de,(B330) (X Koord GRA Fenster links) 

17E6 E1 pp hl 

17E7 C5 push bc 

17E8 CDAYOB cal 0BA9 SCR DOT POSITION 

17EB D1 pop de 

17EC 3A39B3 Id a,(B339) (GRA Paper) 

17EF 4F Id c,a 

17F0 CDB70D cal O0DB7 SCR FLOOD BOX 

17F3 C30B16 ip 160B 
rt & GRASET PEN 
17F6 CD860C cal 0086 SCR INK ENCODE 

17F9 3238B3 Id (B338),a (GRA Pen) 

17FC C9 ret 
Rear GRASET PAPER 
17FD CD860C cal 0C86 SCR INK ENCODE 

1800 3239B3 Id (B339),a (GRA Paper) 

1803 09 ret 
RB GRAGETPEN 
1804 3A38B3 Id a,(B338) (GRA Pen) 

1807 C3A00C ip 0CAO SCR INK DECODE 
Kr rer GRAGET PAPER 
180A 3A39B3 Id a,(B339) (GRA Paper) 

180D C3A00OC ip 0CA0 SCR INK DECODE 


KR rar GRAPLOT RELATIVE 
1810 CD5716 cal 1657 Add Ifd Koord. + rel Koord. 
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GRAPHICS SCREEN 


rer GRAPLOTABSOLUTE 


1813 C3DCBD ip BDDC GRAPLOT 
Kr GRAPLOT 
1816 CDFC16 cal 16FC 

1819 DO ret nc 

181A CDA90B cal O0BA9 SCR DOT POSITION 

181D 3A38B3 Id a,(B338) (GRA Pen) 

1820 47 Id b,a 

1821 C3E8BD ip BDE8 SCR WRITE 


KR re GRATEST RELATIVE 
1824 CD5716 cal 1657 Add Ifd Koord. + rel Koord. 


BB re GRATESTABSOLUTE 
1827 C3DFBD ip BDDF GRA TEST 


tt GRATEST 


182A CDFC16 cal 16FC 


182D D20A18 ip nc,180A GRA GET PAPER 

1830 CDA90B cal O0BA9 SCR DOT POSITION 

1833 C3ESBD ip BDE5 SCR READ 
KErr GRALINE RELATIVE 
1836 CD5716 cal 1657 Add Ifd Koord. + rel Koord. 
Kr GRA LINE ABSOLUTE 
1839 C3E2BD ip BDE2 GRALINE 
tt GRALINE 
1830 E5 push hl 

183D D5 push de 

183E CD1A16 cal 161A phys Startposition holen 

1841 ED5342B3 Id (B342),de (Rechenpuffer X Koord) 

1845 2244B3 Id (B344),hl (Rechenpuffer Y Koord) 

1848 D1 pop de 

1849 E1 pop hl 

184A CD1D16 cal 161D phys Zielpos holen+Cur setzen 
184D E5 push hl 

184E 2A42B3 Id hl,(B342) (Rechenpuffer X Koord) 

1851 B7 or a 

1852 ED52 sbc  hl,de 

1854 44 Id b,h 

1855 4D Id c 

1856 FA6918 ip m,1869 

1859 2A42B3 Id hl,(B342) (Rechenpuffer X Koord) 

185C EB ex de,hl 

185D 2242B3 Id (B342),hl (Rechenpuffer X Koord) 

1860 2A44B3 Id hl,(B344) (Rechenpuffer Y Koord) 

1863 E3 ex (sp),hl 

1864 2244B3 Id (B344),hl (Rechenpuffer Y Koord) 

1867 1808 jr 1871 

1869 210000 Id h1,0000 

1860 B7 or a 

186D ED42 sbc  hl,be 


188 


186F 
1870 
1871 

1872 
1875 
1876 
1878 
1879 
187C 
187F 
1880 
1882 
1883 
1884 
1885 
1887 
188A 
188C 
188E 
188F 
1890 
1891 

1893 
1896 
1898 
189B 
189C 
189D 
189F 
18A1 

18A2 
18A5 
18A6 
1849 
18AC 
18AD 
18AF 
18B2 
1883 
18B6 
1887 
1888 
1889 
18BA 
18BD 


18BE 


18C2 
18C3 
18C6 
18C9 
18CD 
18D1 
18D2 
18D3 
18D5 


62 

6B 

B7 
ED42 
2IFFFF 
3009 
223AB3 
60 

69 
3EFF 
1819 
E5 
2A42B3 
09 
2242B3 
2A44B3 
B7 
ED52 
224483 


324683 
13 
ED5340B3 
23 
CD8C37 
223CB3 
ED533EB3 
ED4B40B3 


sbc 


sbc 


sbc 


GRAPHICS SCREEN 


b,h 

cl 

de 

hl,(B344) (Rechenpuffer Y Koord) 
a 

hl,de 

de,hl 

p,188E 

h1,0000 

a 

hl,de 

d,h 

e,l 

a 

hl,bc 

h1,0001 

nc,18B3 

1898 

h,d 

l,e 

a 

hl,bc 

hI,FFFF 

nc,18A1 

(B33A),hl 

h,b 

l,c 

a,FF 

18BA 

h 

h1,(B342) (Rechenpuffer X Koord) 
hl,bc 

(B342),hl (Rechenpuffer X Koord) 
h1,(B344) (Rechenpuffer Y Koord) 
a 

hl,de 

(B344),hl (Rechenpuffer Y Koord) 
h 


(B33A),hl 
h,b 

Ic 

de,hl 

a 
(B346),a 
de 
(B340),de 
h 


378C hi/de D hl, Rest I) de 
(B33C),hl 

(B33E),de 

bc,(B340) 

d,b 

ec 

d 

e 
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18D7 
18D8 
18DC 
18DF 
18E0 
18E1 
18E4 
18E5 
18E7 
18E9 
18EA 
18EB 
18EC 
18EE 
18EF 
18F0 
18F1 
18F4 
18F5 
18F7 
18FA 
18FB 
18FC 
18FD 
1900 
1901 
1902 
1903 
1906 
1907 
190A 
190D 
1910 
1911 
1914 
1915 
1918 
191A 
191D 
191E 
191F 
1920 
1923 
1924 
1925 
1926 
1927 
192B 
192C 
192F 
1932 
1935 
1936 
1939 
193A 


C5 
ED4B3CB3 
QA3EB3 


2242B3 


push 


add 


add 


push 


GRAPHICS SCREEN 


bc 


bc,(B33C) 


hl,(B33E) 
hl,de 
de,hl 
hl,(B340) 
a 

hl,de 
nc,18F0 
hl,de 
de,hl 

a 

hl,de 
de,hl 

bc 

de 
a,(B346) 
a 

2,191A 
h1,(B342) 
d,h 

el 

hl,be 
(B342),hl 
b,h 

cl 

bc 
h1,(B344) 
hl 

16B0 
a,(B338) 
c,0FC4 
de 
hl,(B33A) 
hl,de 
(B344),hl 
193D 
hl,(B344) 
d,h 

el 

hl,be 
(B344),hl 
b,h 

cl 

bc 

de,hl 
de,(B342) 
de 

1664 
a,(B338) 
c,102F 
de 
hl,(B33A) 
hl,de 
(B342),hl 


(Rechenpuffer X Koord) 


(Rechenpuffer X Koord) 


(Rechenpuffer Y Koord) 


(GRA Pen) 


SCR HORIZONTAL 


(Rechenpuffer Y Koord) 


(Rechenpuffer Y Koord) 


(Rechenpuffer Y Koord) 


(Rechenpuffer X Koord) 


(GRA Pen) 


SCR VERTICAL 


(Rechenpuffer X Koord) 
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193D 
193E 
193F 
1940 
1941 
1942 
1944 


“*x* 
1945 

1947 

194A 
194D 
194E 
1950 

1953 
1955 
1958 
195B 
195D 
195E 
195F 
1962 

1963 
1964 
1965 
1966 

1968 
196B 
196C 
196D 
196F 
1972 
1974 
1975 
1977 
197A 
197C 
197F 
1986 
1987 
198A 
198C 
198D 
198F 
1991 

1994 
1995 
1998 
199B 
199D 
199F 
19A1 

19A2 
19A3 


LE ZZ 2 z z z z z z z z z z 2 


DDES 
CDD312 
113AB3 
D5 
DDE1 
010800 
EDBO 
CD1A16 
CDFF16 
3040 
E5 

D5 
010700 
EB 

09 

EB 

B7 
ED42 
CDFF16 
DI 

E 
303A 
CDA9OB 
1608 
ES 
1E08 
CDCF19 
CB09 
DCF9OB 
DDCB0006 
Ei 
CD130C 
DD23 
15 
20E5 
DDE1 
CDFC15 
EB 
CDECOA 
010800 
FEO1 
2804 
3003 
09 

09 

09 


pop 
pop 
dec 
ld 
or 
jr 
ret 


push 
call 
Id 
push 
pop 
Id 
Idir 
call 
call 
jr 
push 
push 
Id 
ex 
add 
ex 
or 
sbc 
call 
pop 
pop 
jr 
call 
Id 
push 
Id 
call 
IC 
call 
ric 
pop 
call 
inc 
dec 
jr 
pop 
call 
ex 
call 
Id 
cp 
jr 

jr 
add 
add 
add 


GRAPHICS SCREEN 


de 

bc 

bc 

a,b 

c 
nz,18D7 


Krk GRAWR CHAR 
ix 

12D3 TXT GET MATRIX 

de,B33A 

de 

iX 

bc,0008 


161A phys Startposition holen 
16FF 

nc,19A9 

h 

de 

bc,0007 

de,hl 

hl,bc 

de,hl 

a 

hl,bc 

16FF 

de 

h 

nc,19A9 

0BA9 SCR DOT POSITION 
d,08 

h 

e,08 

19CF 


c 

c,0BF9 SCR NEXT BYTE 
(ix+00) 

h 

0013 SCR NEXT LINE 
ix 

d 

nz,1974 

ix 

15FC GRA ASK CURSOR 
de,hl 

0AEC SCR GET MODE 
bc,0008 

01 

2,19A3 

nc,19A4 

hl,bc 

hl,bc 

hl,bc 
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19A4 
19A5 
19A6 


19A9 
19AB 
19AC 
19AE 
19B1 
19B3 
19B4 
19B5 
19B6 
1989 
19BC 
19BD 
19BE 
19BF 
19C6 
19C7 
19C8 
19CA 
19CB 
19CD 
19CF 
19D8 
19DB 
19DC 


19DF 


09 
EB 
C3F415 


0E08 
D5 
0608 
CDFF16 
300C 
ES 

D5 

C5 
CDA90B 
CDCF19 
c1 

Di 

Ei 
DDCB0006 
DI 

2B 
DD23 
0D 
20DE 
18C0 
DDCBOO7E 
3A39B3 
47 
C3E8BD 


c7 


add 
ex 
Ip 
Id 
push 


call 
jr 
push 
push 
push 
call 
call 
pop 
pop 
pop 
ric 
pop 
dec 
inc 
dec 
jr 

jr 
bit 
Id 

Id 

Ip 


rst 


GRAPHICS SCREEN 


hl,bc 
de,h 
15F4 GRA MOVE ABSOLUTE 


c,08 

de 

b,08 

16FF 

nc,19BF 

hl 

de 

bc 

0BA9 SCR DOT POSITION 
19CF 

bc 

de 

hl 

(ix+00) 

de 

h 

ix 

c 

nz,19AB 

198F 

7,(ix+00) 

a,(B339) (GRA Paper) 
b,a 

BDE8 SCR WRITE 


0 
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2.5.7 KEYBOARD MANAGER (KM) 


Die Überwachung der Tastatur und die Umsetzung in brauchbare Zei- 
chencodes obliegt diesem Pack. 

Zur zyklischen Abfrage der Tasten bedient es sich des EVENT-Mecha- 
nismus. 


Aus den zur Verfügung stehenden Routinen haben wir folgende Aus- 
wahl getroffen: 


KM WAIT CHAR holt ein Zeichen aus dem Eingabepuffer, bzw. Expan- 
sion-String oder Put Back Buffer. Falls kein Zeichen verfügbar ist, kehrt 
die Routine nicht zurück. Es wird auf jeden Fall gewartet. 

a enthält im Erfolgsfalle das eingegebene Zeichen. 





KM READ CHAR übergibt ebenfalls ein Zeichen in a, falls eines vorhan- 
den war, wartet jedoch nicht auf den Erfolg. 

Falls nach Rückkehr aus der Routine carry gesetzt ist, gab es kein Zei- 
chen zu holen. 


Die Routinen KM WAIT KEY und KM READ KEY arbeiten entspre- 
chend, jedoch wird hier nur der Eingabepuffer auf ein Zeichen unter- 
sucht. 

Expansion-String und Put Back Buffer bleiben unberücksichtigt. 


Mit KM SET REPEAT können Sie bestimmen, welche Tasten mit der 
Wiederholfunktion versehen werden sollen. 

In a ist dabei die Tastennummer zu hinterlegen. b muß &FF enthalten, 
wenn die Taste repetieren soll, und 00, wenn die Wiederholfunktion für 
die betreffende Taste aufgehoben werden soll. 
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KEYBOARD MANAGER 


RR KMINITIALISE 


19E0 
19E3 
19E6 
19E7 
19EA 
19EB 
19EC 
19EF 
19F2 
19F5 
19F8 
19F9 
19FC 
19FD 
1A00 
1A01 

1A04 
1A05 
1A08 
1A0B 
1A0D 
1AOF 
1A12 
1A14 
1A15 
1417 
1419 
1A1B 
1AIC 


LE ZZ zz z z z ZZ zz z zz ZZ 2 


1A1E 
1A21 

1A24 
1A27 
1A2A 
1A2D 
1A30 
1A33 


1A36 
1A37 
1A39 


LEEZZZZZZZZZZZ ZZ ZZ 


1A3C 
1A3F 
1A41 


21021E 
CD6DIC 
AF 
320BB5 
67 

6F 
22E7B4 
213CB4 
11BOFF 
2247B5 


21691D 
O1FA0O 
EDBO 
060A 
21EBB4 
3600 
23 
10FB 
060A 
36rF 
23 
10FB 


CDEDIC 
CD751A 
1146B4 
219800 
CD811A 
21361A 
CD8AOA 
c3821C 


03 
EEBD 
C32F1C 


CD421A 
30FB 
c9 


Id 
call 
xor 


Id 
Id 
Id 
inc 
dinz 
Id 
Id 
inc 
djnz 


call 
call 
Id 
Id 
call 
Id 
call 
jp 


db 
dw 
ip 


call 
jr 
ret 


hl,1E02 

1C6D KM SET DELAY 

a 

(B50B),a 

h,a 

1,a 

(B4E7),hl (Shift Lock State) 

h1,B43C 

de,FFBO 

(B547),hl (Adr. der Repeat Tabelle) 
hl,de 

(B545),hl (Adr. Key CTRL Table) 
hl,de 

(B543),hl (Adr. Key SHIFT Table) 
hl,de 

(B541),hl (Adr. Key Translation Table) 
de,hl 

h1,1D69 Key Translation Table 
bc,00FA 

b,0A 

hl,B4EB Key State Map 

(hl),00 

hl 

1A12 

b,0A 

(hl), FF 

hl 

1A19 
BB KMRESET 
1CED 

1A75 

de,B446 

h1,0098 

1A81 KM EXP BUFFER CONT’D 
hl,1A36 Restore KM Indirection 
0ABA Move (hI+3)D((hl+1)),cnt=(hl) 
1C82 KM DISARM BREAK 

03 3 Bytes 

BDEE Zieladresse 

1C2F KM TEST BREAK 
Kerr KM WAITCHAR 
1A42 KM READ CHAR 

nc,1A3C KM WAIT CHAR 
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KEYBOARD MANAGER 


KR EEE Er KMREAD CHAR 


1A42 E5 
1A43 21E0B4 
1A46 TE 
1A47 36FF 
1A49 BE 
1A4A 3827 
1A4C 2ADEB4 
1A4F 7C 
1A50 B7 
1A51 2011 
1A53 CD5C1B 
1A56 301B 
1A58 FE80 
1A5A 3817 
1A5C FEAO 
1A5E 3F 
1A5F 3812 
1A61 67 
1A62 2E00 
1A64 D5 
1A65 CD2E1B 
1A68 3802 
1A6A 2600 
1A6C 2C 
1A6D 22DEB4 
1470 D1 
1A71 30E0 
1A73 El 
1A74 C9 


1A75 3EFF 
1A77 32E0B4 
1A7A C9 


1A7B CD811A 
1A7E 3F 
1A7F FB 
1A80 C9 


DEZ ZZ 2 z zz Z Z Z zZ 2 ZZ 2 


1A81 F3 
1A82 7D 
1483 D631 
1485 7C 
1A86 DEO0 
1A88 D8 
1A89 19 
1A8A 22E3B4 
1A8D EB 
1A8E 22E1B4 
1491 01300A 
1A94 3601 
1A96 23 
1497 71 


push 
Id 
Id 
Id 


cp 


call 
ccf 
ei 
ret 


di 
Id 
sub 
Id 
sbc 
ret 
add 
Id 
ex 
Id 
Id 
Id 
inc 
Id 


hl 

hl,B4EO Put Back Buffer 

a,(hl) Zeichen holen 

(h),FF Puffer löschen 

(hi) war ein Zeichen da ? 
c,1A73 ja» 

hl,(B4DE) (Exp. String Pointer) 
a,h 

a Exp. String vorhanden ? 
nz,1A64 jab 

1B5C KM READ KEY 
nc,1A73 kein Zeichen I) 

80 Zeichen < 128? 
c,1A73 ja 

AO 

c,1A73 

h,a 

1,00 

de 

1B2E KM GET EXPAND 
c,1A6C 

h,00 

l 

(B4DE),hl (Exp. String Pointer) 
de 

nc,1A53 

hl 

a,FF 

(B4EO),a (Put Back Buffer) 
1A81 KM EXP BUFFER CONT'D 


Krk KMEXP BUFFER CONT’D 


a,l 


31 

a,h 

a,00 

c 

hl,de 

(B4E3),hl (Pointer Ende Exp Buffer) 
de,hl 

(B4E1),hl (Pointer Start Exp Buffer) 
bc,0A30 ASCII 

(n),01 0 

hl bis 

(hl),c 9 
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1A98 
1499 
1A9A 
1A9C 
1A9D 
1AA0 
1M2 
1AA4 
1AA5 
17 
1AA8 
149 
1MA 
1AAC 
1AAF 
1AB2 


23 

0C 
10F8 
EB 
21B31A 
0EOA 
EDBO 
EB 
0613 
AF 

77 

23 
10FC 
22E5B4 
32DFB4 
cg 


KEYBOARD MANAGER 


hl 

c 

1A94 
de,hl 
hl,1AB3 
c,0A 


de,hl 
b,13 
a 
(hl),a 
hl 
1AAB 


(B4ES5),hl 
(B4DF),a 


nach 

Expansion 

Buffer 

Restore 

Default Exp String 


(Pointer freier Exp Buffer) 


tr Default Exp String 
1AB3 01 2E 01 0D 05 52 55 4E 


1ABB 


22 0D 


rn KMSETEXPAND 


1ABD 
1ABE 
1ABF 
1AC2 
1AC4 
1AC5 
1AC6 
1AC7 


F3 

78 
CD3E1B 
301F 


1ACA 3F 


1ACB 


Ei 


1ACC D1 
1ACD C1 
1ACE 3013 


1ADO 
1AD1 
1AD2 
1AD3 
1AD4 
1AD5 
1AD6 
1AD7 
1AD8 


20F9 


1ADA 21DFB4 
1ADD 78 
1ADE AE 


1ADF 
1AE1 
1AE2 
1AE3 
1AE4 


a,b 
1B3E 
nc,1AE3 
bc 

de 

hl 

1AE5 


hl 

de 

be 
nc,1AE3 
de 

ac 

c 

(de),a 
de 

4 

hl 

c 
nz,1AD3 
h1,B4DF 
a,b 

(hl) 
nz,1AE2 
(hl),a 


Adr. Exp String D» de 
Token ungültig 


Exp Buffer aufräumen 
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0600 
60 

6F 

79 

% 

08 
300F 
7D 

69 

4F 

19 

EB 

09 
CD221B 
2823 
EDBO 
181F 
4F 

19 

E5 
2AESB4 
09 

EB 
2AE3B4 
7D 

% 

7C 

9A 

E1 

D8 
CD221B 
2AESBA4 
2806 
D5 

1B 

2B 
EDB8 
DI 


EDS3ESB4 


B7 
09 


3AESB4 
% 
4F 
3AE6B4 
9C 
47 
BI 
cg 


Id 
Id 
Id 
Id 
sub 
ret 
jr 
Id 
Id 
Id 
add 
ex 
add 
call 
jr 
Idir 
jr 
Id 
add 
push 
Id 
add 
ex 
Id 
Id 
sub 
Id 
sbc 
pop 
ret 
call 
Id 
jr 
push 
dec 
dec 
Iddr 
pop 
Id 
or 
ret 


Id 
sub 
Id 
Id 
sbc 
Id 
or 
ret 


KEYBOARD MANAGER 


Kerr aa Exp Buffer aufräumen 


b,00 
h,b 
‚a 
a,C 
| 


z 
nc,1AFD 

a,l 

Ic 

ca 

hl,de 

de,hl 

hl,bc 

1822 Platz f. neuen Exp String? 
z,1BiC 


1B1C 

c,a 

hl,de 

hl 

hl,(B4E5) (Pointer freier Exp Buffer) 
hl,bc 

de,hl 

hl,(B4E3) (Pointer Ende Exp Buffer) 
al 

e 

a,h 

a,d 

hl 

c 

1822 Platz f. neuen Exp String? 
hl,(B4E5) (Pointer freier Exp Buffer) 
z,1B1C 

de 

de 

hl 


de 
(B4E5),de (Pointer freier Exp Buffer) 
a 


rer Platzf. neuen Exp String? 


a,(B4E5) (Pointer freier Exp Buffer) 
| 

c‚a 

a,(B4E6) 

a,h 

b,a 

c 


197 


KEYBOARD MANAGER 


Kerr KMOGETEXPAND 


1B2E 
1B31 
1832 
1833 
1834 
1835 
1836 
1837 
1839 
1B3A 
1B3B 
1B3C 
1B3D 


LE ZZ 2 z z z z z zZ z z zz zZ 


1B3E 
1840 
1842 
1B43 
1B44 
1B47 
1B4A 
1B4B 
1B4C 
1B4D 
1B4E 
1B4F 
1B51 
1852 
1B53 
1B54 
1B55 


DEZ ZZ zz zZ z zZ zZ zZ zZ 3 


1856 CD5C1B 


1859 
1B5B 


LE ZZ 2 z zz zz z zz z zz zz; 


1B5C 
1B5D 
1B5E 
1861 

1863 
1B64 
1866 
1868 
1B6A 
1B6B 
1B6C 
1B6D 
1B6E 
1B6F 
1B71 


CD3E1B 
DO 
BD 
08 
3F 
DO 
ES 
2600 
19 
TE 
Ei 
37 
c9 


E67F 
FE2O 
DO 


30FB 
cg 


ES 
05 
CD151D 
303A 
79 
FEEF 
2834 
E6OF 
87 
87 
87 
3D 
3C 
CB08 
30FB 


call 
ret 
cp 
ret 
ccf 
ret 
push 
Id 
add 
Id 
pop 
sch 
ret 


and 
cp 
ret 


push 


jr 
ld 
ex 
pop 
scf 
ret 


call 
jr 
ret 


push 
push 
call 
jr 

Id 
cp 
jr 
and 
add 
add 
add 
dec 
inc 
IC 
ir 


1B3E Adr. Exp String nach de 
nc 

| 

z 


nc 

h 
h,00 
hl,de 
a,(hl) 
h 


Kekkkekkkkkekkkkaekrrerrer Ad. Exp String nach de 


7F Token im gültigen 
20 Bereich? 

nc nein 

hl 

hl,(B4E1) (Pointer Start Exp Buffer) 
de,0000 

a 

hl,de hl um Länge des 
e,(hl) Expansion String 
hl weitersetzen 

a 

nz,1B4B 

a,e 

de,hl 

hl 


BR KM WAIT KEY 
1B5C KMREADKEY 
nc,1B56 KM WAIT KEY 


KEREKEEKEREE  rr KMREAD KEY 
h 

bc 

1D15 
nc,1B9D 
a,C 

EF 
z,1B9C 
OF 

a,a 

a,a 

a,a 

a 

a 

b 
nc,1B6E 


198 


1873 CDA01B call 
1876 21E8B4 Id 
1879 CB7E bit 
1B7B 280A jr 
1B7D FE61 cp 
1B7F 3806 jr 
1B81 FE7B cp 
1883 3002 ir 
1885 C6EO add 
1887 FEFF cp 
1889 28D3 jr 
1B8B FEFE cp 
1B8D 21E7B4 Id 
1890 2805 jr 
1B92 FEFD cp 
1B94 23 inc 
1895 2005 ir 
1B97 7E ld 
1B98 2F cpl 
1B99 77 ld 
1B9A 18C2 jr 
1B9C 37 scf 
1B9D C1 pop 
1B9E Ei pop 
1B9F C9 ret 
1BAO CB11 n 
1BA2 DA481D jp 
1BA5 47 ld 
1BA6 3AE7B4 ld 
1BA9 B1 or 
1BAA E640 and 
1BAC 78 ld 
1BAD C2431D jp 
1BBO C33E1D jp 


LE zz zZ zZ z z z z z z zZ z z z zz 2 


1BB3 2AE7B4 Id 
1BB6 C9 ret 
Luz z z z z z z z z z z zz Z zz 2 
1BB7 11FFB4 Id 
1BBA 21F5B4 Id 
1BBD CD4608 call 
1BCO 3A01B5 Id 
1BC3 E6AO and 
1BC5 4F Id 
1BC6 21EDB4 Id 
1BC9 B6 or 
1BCA 77 Id 
1BCB 21FFB4 Id 
1BCE 11EBB4 Id 
1BD1 0600 Id 
1BD3 1A Id 
1BD4 AE xor 


KEYBOARD MANAGER 


1BAO 
hl,B4E8 Caps Lock State 


7,h) 
2,1887 


h1,B4E7 Shift Lock State 
2,1897 
FD caps lock ? 
hl 
nz,1B9C nein I» 
a,(hl) 
toggle caps lock 
(hl),a 
1B5E 


bc 

hl 

c 

c,1D48 KM GET CONTROL 
b,a 

a,(B4E7) (Shift Lock State) 

c 

40 

a,b 

nz,1D43 KM GET SHIFT 

1D3E KM GET TRANSLATE 
KR ea KMOGETSTATE 


hl,(B4E7) (Shift Lock State) 


Krk ra Update Key State Map 


de,B4FF Multihit Kontr. zu B4F5 
hl,B4F5 währ. Scan gedr. Keys 
0846 Scan Keyboard 
a,(B501) 

AO SHIFT/CTRL isolieren 
c,a 

h1,B4ED Key 16...23 

(hi) 

(hi),a 

hl,B4FF Multihit Kontr. zu B4F5 
de,B4EB Key State Map 

b,00 

a,(de) 


(h) 
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1BD5 
1BD6 
18D9 
1BDA 
1BDB 
1BDC 
1BDD 
1BDE 
1BDF 
1BE1 

1BE3 
1BE5 
1BE6 
1BE8 
1BEA 
1BEB 
1BEE 
1BEF 
1BFO 

1BF1 

1BF4 

1BF5 

1BF6 
1BF9 
1BFA 
1BFB 
1BFD 
1C00 
1C01 

1C02 

1C05 
1C06 
1C07 
1C08 
1C09 
1C0C 
1C0D 
1010 
1011 

1012 
1013 
1014 

1015 
1018 
1C1B 
1C1E 
1C1F 
1021 

1022 
1C23 
1C26 
1028 
1C29 
1C2B 
1C2C 


A6 
C4481C 
TE 

12 

23 

13 

0C 

79 
E6OF 
FEOA 
20EE 
79 
E6AO 
CB71 
4F 
C4EEBD 
78 

B7 

co 
2109B5 
35 

co 
2A0ABS 
EB 

2 
1600 
21EBB4 
19 

TE 
2A47B5 
19 

A6 

AO 

C8 
2109B5 
34 
3A40B5 
B7 

co 

79 

B3 

4F 
3AE9B4 
320985 
CDFEIC 
79 
E6OF 
6F 

60 
220AB5 
FEO8 
co 
CB60 
co 
CBF1 


and 
call 
Id 
Id 
inc 
inc 
inc 
Id 
and 
cp 
jr 
Id 
and 
bit 


call 
Id 
or 
ret 
Id 
dec 
ret 
Id 
ex 
Id 
Id 
Id 
add 
Id 
Id 
add 
and 
and 
ret 
Id 
inc 
Id 
or 
ret 
Id 
or 
Id 
Id 
Id 
call 
Id 
and 
Id 
Id 
Id 
cp 
ret 
bit 
ret 
set 
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(h) 
nz,1048 
a,(hl) 
(de),a 

h 

de 

c 

a,C 

OF 

0A 
nz,1BD3 
a,C 

A0 

6,C 

c,a 
nz,BDEE 
a,b 

a 

nz 
h1,B509 
(hi) 


nz 
hl,(B50A) 
de,hl 
b,d 
d,00 
h1,B4EB 
hl,de 
a,(hi) 
h1,(B547) 
hl,de 
(h) 

b 


z 
h1,B509 
hi) 
a,(B540) 
a 


nz 

a,C 

e 

c,a 
a,(B4E9) 
(B509),a 
1CFE 
a,C 

OF 

1,a 

h,b 
(B50A),hl 
08 


nz 
4,b 
nz 

6,C 


KM TEST BREAK 


Key State Map 


(Adr. der Repeat Tabelle) 


(KM Delay) 
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1C2E C9 ret 


Reken KMTESTBREAK 
1C2F 21F3B4 Id hl,BAF3 


1032 CB56 bit 2,(hl) 

1034 C8 ret z 

1035 79 Id ac 

1036 EEAO xor AO 

1038 2056 jr nz,1C90 KM BREAK EVENT 
1C3A 05 push bc 

1C03B 23 inc hl 

1C3C 060A Id b,0A 

1C3E 8E adce a,hl) 

1C3F 2B dece hl 

1040 10FC dinz 1C3E 

1042 C1 pop be 

1043 FEA4 cp A4 

1C45 2049 jr nz,1C90 KM BREAK EVENT 
1047 C7 rst 0 

1048 E5 push hl 

1049 D5 push de 

1C4A 5F Id e,a 

1C4B 2F cpl 

1040 3C inc a 

1C4D A3 and e 

1C4E 47 Id b,a 

1C4F 3AEAB4 Id a,(B4EA) 

1052 CD181C cal 1018 

1055 78 Id a,b 

1056 AB xor € 

1057 20F1 jr nz,1C4A 

1059 Di pop de 

1C5A Ei pp hl 

105B C9 ret 
Br KM GET JOYSTICK 
1C5C 3AF1B4 Id a,(B4F1) (Joystick 1) 

1C5F ES6TF and 7F 

1061 6F Id 1,a 

1062 3AF4B4 Id a,(B4F4) (Joystick 0) 

1065 E67F and T7F 

1067 67 Id h,a 

1068 C9 ret 
Brei  KMOGET DELAY 
1069 2AE9B4 Id hl,(B4E9) (KM Delay) 

106C C9 ret 
BB KMSETDELAY 
1C6D 22E9B4 Id (B4E9),hl (KM Delay) 

1C70 C9 ret 
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KER er rer KMARMBREAK 


1C71 
1C74 
1C77 
1C79 
1C7C 
1C7E 
1C81 


CD821C 
210DB5 
0640 
CDD201 
3EFF 
320CB5 
c9 


call 
Id 
Id 
call 
Id 
Id 
ret 


1C82 KM DISARM BREAK 
hl,B50D Break Event Block 
b,40 

01D2 KLINIT EVENT 

a,FF 

(B50C),a 


WERE KM DISARM BREAK 


1C82 
1C83 
1C84 
1087 
1C89 
1C8A 
1C8D 
1C8E 
1C8F 


05 

D5 
210CB5 
3600 
23 
CD8502 
D1 

C1 

cg9 


push 
push 
Id 

Id 
inc 
call 
pop 
pop 
ret 


bc 

de 

h1,B50C 

(hl),00 

hl 

0285 KLDEL SYNCHRONOUS 
de 

bc 


ee KMBREAK EVENT 


1C90 
1093 
1094 
1C96 
1C97 
1C98 
1099 
1C9A 
1C9B 
1C9E 
1CAO 
1CA3 
1CA4 
1CA5 


1CA6 
1CA9 
1CAB 


210CB5 
TE 
3600 
BE 

08 

05 

D5 

23 
CDE201 
OEEF 
CDFEIC 
Di 

C1 

c9 


2A47B5 
181D 
FESO 


1CAD DO 
1CAE 2A47B5 


1CB1 
1CB4 
1CB5 
1CB6 
1CB7 
1CB8 
1CB9 


CDCDIC 


1CBA B6 


1CBB 
1CBC 


77 
c9 


call 
pop 
pop 
ret 


Id 
jr 
cp 
Iet 
ld 
call 


h1,B50C 
a,(hl) 
(hl),00 
(h) 

z 

bc 

de 

hl 

01E2 KLEVENT 
c‚EF 
1CFE 
de 

bc 


hl,(B547) (Adr. der Repeat Tabelle) 
1C0C8 Z entspr. Key Bit setzen 

50 Key >80? 

nc ja D ungültig 

hl,(B547) (Adr. der Repeat Tabelle) 
1CCD der Key# entspr. Bit holen 
ca 


(hl) 

(h)),a 

a,Cc 

b (b=$ff/00) 
(hl) 

(hl),a 
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LEZZZZZZZZZZZZZ Enz 


1CBD F5 push 
1CBE 3AEDB4 Id 
1C0C1 E6AO and 
1003 4F Id 
1CC4 Fi pop 
1CC5 21EBB4 Id 
10C8 CDCDIC call 
1CCB A6 and 
1CCC CI ret 
KR ER € € 
1CCD D5 push 
1CCE F5 push 
1CCF E6F8 and 
1CD1 OF ca 
1CD2 OF ca 
1CD3 OF ca 
1CD4 5F ld 
1CD5 1600 ld 
1CD7 19 add 
1CD8 Fi pop 
1CD9 E5 push 
1CDA 21E51C ld 
1CDD E607 and 
1CDF 5F ld 
1CEO 19 add 
1CE1 7E ld 
1CE2 Ei pop 
1CE3 D1 pop 
1CE4 C9 ret 


EZ ZZ zz z z z z z z z z z zz 2 


1CE5 


1CED F3 di 
1CEE 213C0B5 Id 
1CF1 3615 Id 
1CF3 23 inc 
1CF4 AF xor 
1C0F5 77 Id 
1CF6 23 inc 
1CF7 3601 Id 
1CF9 23 inc 
1CFA 77 Id 
1CFB 23 inc 
1CFC 77 Id 
1CFD C9 ret 
1CFE 213CB5 Id 
1D01 B7 or 
1D02 35 dec 
1D03 280E jr 
1005 CD2C1D call 
1D08 71 Id 
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KerkKeKeRcKeKeeKe ee KMTESTKEY 
af 


a,(B4ED) (Key 16...23) 

AO SHIFT/CTRL isolieren 

c,a 

af 

hl,B4EB Key State Map 

1CCD der Key# entspr. Bit holen 
(hl) Key Bit maskieren 


WERKE KK KK r derKeyt+ entspr. Bit holen 
de 


af 
F8 Key# 
/8 
e,a 
d,00 
hl,de Key Map adressieren 
af 
hl 
hl,1CE5 Bit Masken 
07 dem Key 
e,a entsprechendes 
hl,de Bit 
a,(hl) laden 
hl 
de 


KK Er Bit Masken 


01 02 04 08 10 20 40 80 


h1,B53C 
(h),15 
hl 


a 
(hl),a 
hl 


h1,B53C 


(hi) 
2,1013 
1D2C 
(hl),c 
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1D09 23 inc hl 

1D0OA 70 Id (hl),b 

1DOB 2140B5 Id h1,B540 

1DOE 34 inc (hl) 

1DOF 213EB5 Id hl,B53E 

1D12 37 scf 

1D13 34 inc (h)) 

1D14 C9 ret 

1D15 213EB5 Id h1,B53E 

1D18 B7 or a 

1D19 35 dec (hl) 

1D1A 280E ir z,1D2A 

1D1C CD2C1D cal 1D2C 

1DIF 4E Id c,(hl) 

1D20 23 inc hl 

1D21 46 Id b,(hl) 

1D22 2140B5 Id hl,B540 

1D25 35 dece (hl) 

1D26 213CB5 Id hl,B53C 

1D29 37 scf 

1D2A 34 inc (hl) 

1D2B C9 ret 

1D2C 23 inc hl 

1D2D 34 inc (hl) 

1D2E 7E Id a,(hl) 

1D2F FEI4 cp 14 

1D31 2002 jr nz,1D35 

1D33 AF xor a 

1D34 77 Id (hl),a 

1D35 87 add aa 

1D36 CE14 adce a,14 

1D38 6F Id l,a 

1D39 CEB5 ade aB5 

1D3B 95 sub | 

1D3C 67 Id h,a 

1D3D C9 ret 
nn KMGETTRANSLATE 
1D3E 2A41B5 Id hl,(B541) (Adr. Key Transl. Table) 
1D41 1808 jr 1D4B Get Key Table 
Ber KMGETSHIFT 
1D43 2A43B5 Id hl,(B543) (Adr. Key SHIFT Table) 
1D46 1803 jr 1D4B Get Key Table 


KERKrerre& KMGETCONTROL 


1D48 2A45B5 Id hl,(B545) (Adr. Key CTRL Table) 


KR ra Get Key Table 


1D4B 85 add al 


1D4C 6F Id l,a 
1D4D 8C ad ah 
1D4E 95 sub | 
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1D4F 67 Id h,a 

1D50 7E Id a,(hl) 

1D51 C9 ret 
Br KMSETTRANSLATE 
1D52 2A41B5 Id h1,(B541) (Adr. Key Transl. Table) 

1D55 1808 jr 1D5F Set Key Table 
rer KMSETSHIFT 
1D57 2A43B5 Id hl,(B543) (Adr. Key SHIFT Table) 

1D5A 1803 jr 1D5F Set Key Table 
re KMSETCONTROL 
1D5C 2A45B5 Id h1,(B545) (Adr. Key CTRL Table) 
re Set Key Table 
1D5F FESO cp 50 

1D61 DO ret nc 

1D62 85 add al 

1D63 6F Id 1,a 

1D64 8C ade ah 

1D65 95 sub | 

1D66 67 Id h,a 

1D67 70 Id (hl),b 

1D68 C9 ret 


er Key Translation Table 
1069 FO F3 Fi 89 86 83 8B 8A 
1D71 F2 EO 87 88 85 81 82 80 


1079 10 5B 0D 5D 84 FF 50 FF 
1081 5E 2D 40 70 3B 3A 2F 2E 
1089 30 39 6F 69 6C 6B 6D 2C 
1091 38 37 75 79 68 6A GE 20 
1099 36 35 72 74 67 66 62 76 
1DA1 34 33 65 77 73 64 63 78 
1DA9 31 32 FC 71 09 61 FD 7A 
1DB1 OB 0A 08 09 58 5A FF 7F 


kr Key SHIFT Table 
1DB9 F4 F7 F5 89 86 83 8B 8A 
1DC1 F6 EO 87 88 85 81 82 80 
1DC9 10 7B OD 7D 84 FF 60 FF 


1DD1 A3 3D 7C 50 2B 2A IF 3E 
1DD9 5F 29 4F 49 4C 4B 4D 3C 
1DE1 28 27 55 59 48 4A 4E 20 
1DE9 26 25 52 54 47 46 42 56 
1DF1 24 23 45 57 53 44 43 58 
1DF9 21 22 FC 51 09 41 FD 5A 
1E01 OB 0A 08 09 58 5A FF 7F 


rer KeyCTAL Table 
1E09 F8 FB F9 89 86 83 8C 8A 
1E11 FA EO 87 88 85 81 82 80 
1E19 10 1B 0D 1D 84 FF IC FF 
1E21 1E FF 00 10 FF FF FF FF 
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129 1F FF OF 09 0C 0B 0D FF 
1E31 FF FF 15 19 08 0A 0E FF 
1639 FF FF 12 14.07 06 02 16 
1E41 FF FF 05 17 13 04 03 18 
1E49 FF 7E FC 11 E1 01 FE 1A 
1651 FF FF FF FF FF FF FF 7F 
1659 07 03 4B FF FF FF FF FF 


1E61 AB 8F 

1E63 C7 rst 0 
1E64 C7 rst 0 
1E65 C7 rst 0 
1E66 C7 rst 0 
1E67 C7 rst 0 
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2.5.83 SOUND MANAGER (SOUND) 


Über dieses Pack, obgleich es ziemlich umfangreich ist, gibt es nicht viel 
zu berichten. Die eigentliche Tonerzeugung nimmt nur wenig Raum ein. 
Der größte Teil ist der Verwaltung der verschiedenen Warteschlangen 
gewidmet. Dazu zählt auch die Realisierung der TONE ENVELOPE, die 
der PSG nicht von sich aus beherrscht. 


Der engagierte Musikfan wird auch eher direkt den PSG programmieren 
wollen, da die Routinen des SOUND allzu speziell auf die zugehörigen 
BASIC-Befehle zugeschnitten sind. Zum Abspielen von Melodien, selbst 
dreistimmig, reicht BASIC allemal, auch bei einem flotten Tempo. 


Interessant ist für den Maschinenprogrammierer allenfalls die Verwirkli- 
chung eines guten (sprich: abwechslungsreichen) Schlagzeugs, was in 
BASIC wegen der Verschachtelung relativ kurzer, aber komplexer Klän- 
ge nur unvollkommen möglich ist. 
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tt SOUND RESET 


1E68 
1E69 
1E6A 
1E6D 
1E70 
1E73 
1E76 
1E78 
1E7B 
1E7D 
1E80 
1E83 
1E86 
1E89 
1E8A 
1E8B 
1E8C 
1E8D 
1E8E 
1E8F 
1E90 
1691 

1E92 
1693 
1694 
1E96 
1E98 
1E9A 
1E9C 
1E9D 
1EAO 
1EA1 

1EA4 
1EAS 
1EA7 
1EA9 
1EAA 
1EAB 
1EAD 
1EAE 
1EB1 

1EB2 
1EB3 
1EB4 
1EB5 
1EB6 
1EB7 
1EBA 
1EBC 
1EBE 
1EC2 
1EC3 
1EC4 


AF 

F3 
3252B5 
325185 
215585 
11031F 
0681 
CDD201 
3E3F 
3219B6 
215CB5 
013D00 
110801 
AF 

77 

23 

72 

23 

73 


3C 


CD7F22 
13 

13 

13 

6B 

62 

13 
013800 
3600 
EDBO 
DD361C04 
C1 

EB 

04 


xor 
d 
Id 
Id 
Id 
Id 
Id 
call 
Id 
Id 
Id 
Id 
Id 
xor 
Id 
inc 
Id 
inc 
Id 
add 
inc 
ex 


a 


(B552),a 
(B551),a 
h1,B555 
de,1F03 
b,81 
01D2 
a,3F 
(B619),a 
hl,B55C 
bc,003D 
de,0108 
a 

(hl),a 

h 

(hl),d 

h 

(h)),e 
hl,bc 

a 

de,h 
hl,hl 
de,hl 
03 
nz,1E8A 


de 

de 

de 

l,e 

h,d 

de 
bc,003B 
(hi),00 


(ix+1C),04 


bc 
de,h! 
b 


(fd SOUND Aktivität) 

(alte SOUND Akt. (nach HOLD)) 
Sound Event Block 

Sound Event 


KLINIT EVENT 


SOUND Params Kanal A 
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1EC5 
1EC7 
1EC8 
1ECA 


10DE 
EI 
DDEI 
09 


djnz 
pop 
pop 
ret 


SOUND MANAGER 


1EA5 
hl 
ix 


Kerr SOUND HOLD 


1ECB 
1ECE 
1ECF 
1EDO 
1ED2 
1ED3 
1ED4 
1ED5 
1ED6 
1ED7 
1ED9I 
1EDB 
1EDD 
1EDE 
1EE1 
1EE2 
1EE4 
1EES 


2152B5 
F3 

7E 
3600 
FB 

B7 

C8 

2B 

77 
2E03 
0EO0 
3E07 
85 
CD2608 
2D 
20F7 
37 

c9 


Id 
di 
Id 
Id 
ei 


jr 
scf 
ret 


h1,B552 Ifd SOUND Aktivität 
a,(hi) 

(h)),00 

a Kanäle aktiv ? 

z nein D» 

hl 

(hl),a 

1,03 Lautstärke 

c,00 aller Kanäle 

a,07 aufO 

a,l 

0826 MC SOUND REGISTER 
l 

nz,1EDB 


Br SOUND CONTINUE 


1EE6 
1EE9 
1EEA 
1EEB 
1EEF 
1EF2 
1EF4 
1EF6 
1EF7 
1EFA 
1EFD 
1EFE 
1F00 


3A51B5 
B7 

c8 
DD211DB5 
113F00 
DD19 
CB3F 
F5 
DD7EOF 
DC7622 
Fl 

20F2 
C31E20 


Id 
or 
ret 
ld 
ld 
add 
srl 
push 
ld 
call 
pop 
jr 
ip 


a,(B551) (alte SOUND Akt. (nach HOLD)) 
a Kanal aktiv ? 

z nein D) 

ix,B51D 

de,003F 

ix,de 

a bei allen 

af Kanälen 

a,(ix+OF) wieder alte 
c,2276 Lautstärke setzen 
af 

nz,1EF2 

201E 


ee Sound Event 


1F03 
1F05 
1F08 
1F09 
1F0A 
1FOB 
1F0C 
1F0D 
1FOE 
1FOF 
1F10 
1F12 
1F16 
1F19 


DDES 
215085 
E5 

AF 

77 

23 

46 

05 

23 

B6 
2822 
DD211DB5 
013F00 
DD09 


push 
Id 
push 
xor 
Id 
inc 
Id 
push 
inc 
or 

ir 

ld 
ld 
add 


hl irgendein 
(hl) Kanal aktiv ? 
z,1F34 nein D 
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1F1B CB3F sıl a Kanal aktiv ? 
1F1D 30FA jr nc,1F19 nein \» nächster 
1FiF F5 push af 

1F20 DD7EO04 ld a,(ix+04) 
1F23 1F a 

1F24 DCC222 cal  c,22C2 
1F27 DD7EO7 ld a,(ix+07) 
1F2A 1F ra 

1F2B DCB621 cal c,21B6 
1F2E DCA820 call c,20A8 
1F31 Fl pop af 

1F32 20E2 jr nz,1F16 
1F34 C1 pop be 

1F35 Ei pop hl 

1F36 7E ld a, (hl) 
1F37 B7 or a 

1F38 2820 jr 2,1F5A 
1F3A 4F ld c,a 

1F3B 23 inc hl 

1F3C 7E ld a,(hl) 
1F3D 70 ld (hl),b 
1F3E A8 xor b 

1F3F 47 ld b,a 

1F40 23 inc hl 

1F41 B6 or (hl) 

1F42 77 ld (hl),a 
1F43 78 ld a,b 

1F44 2F cpl 

1F45 A1 and c 

1F46 2812 jr z,1F5A 
1F48 DD211DB5 ld ix,B51D 
1F4C 113F00 ld de,003F 
1F4F DD19 add ix,de 
1F51 CB3F srl a 

1F53 F5 push af 

1F54 DC7F22 cal c,227F 
1F57 Fi pop af 

1F58 20F5 jr nz,1F4F 
1F5A AF xor a 

1F5B 3254B5 ld (B554),a 
1F5E DDE1 pop ix 

1F60 C9 ret 
nn Scan Sound Queues 
1F61 2152B5 Id h1,B552 Ifd SOUND Aktivität 
1F64 7E Id a,(hl) 
1F65 B7 or a 

1F66 C8 ret z 

1F67 23 inc hl 

1F68 35 decc (hi) 

1F69 CO ret nz 

1F6A 34 inc (h)) 

1F6B 23 inc hl 

1F6C 7E Id a,(hl) 
1F6D B7 or a 
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SOUND MANAGER 


1F6E CO ret nz 
1F6F 2B dee hl 
1F70 3603 Id (hi),03 
1F72 2B dece hl 
1F73 46 Id b,(hl) 
1F74 2122B5 Id h1,8B522 
1F77 113F00 Id de,003F 
1F7A AF xor a 
1F7B 19 add hi,de 
1F7C CB38 srl b 

1F7E 30FB ir nc,1F7B 
1F80 35 decce (hi) 
1F81 2005 jr nz,1F88 
1F83 2B decc hl 
1F84 CBO06 ric (hl) 
1F86 8A ade a,d 
1F87 23 inc hl 
1F88 23 inc hl 
1F89 35 dec (hl) 
1F8A 2005 jr nz,1F91 
1F8C 23 inc hl 
1F8D CB06 ric (hl) 
1F8F 8A ade a,d 
1F90 2B dee hl 
1F91 2B dee hl 
1F92 04 inc b 
1F93 10E6 dinz 1F7B 
1F95 B7 or a 

1F96 08 ret z 

1F97 215485 Id h1,B554 
1F9A 77 Id (hi),a 
1F9B 23 inc hl 
1F9C C3E201 ip 01E2 KLEVENT 
a SOUND QUEUE 
1F9F CDE6IE cal 1EE6 SOUND CONTINUE 
1FA2 TE Id a,(hl) 
1FA3 E607 and 07 
1FA5 37 scf 

1FA6 08 ret z 

1FA7 4F Id c,a 
1FA8 B6 or (hi) 
1FA9 FCYAIE cal m,iEYA 
1FAC 41 Id b,c 
1FAD DD211DB5 Id ix,B51D 
1FB1 113F00 Id de,003F 
1FB4 AF xor a 

1FB5 DD19 add ix,de 
1FB7 CB38 srl b 
1FB9 30FA jr nc,1FB5 
1FBB DD721E Id (ix+1E),d 
1FBE DDBEIC cp (ix+1C) 
1FC1 3F ccf 

1FC2 9F sbc aa 
1FC3 04 inc b 
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1FC4 
1FC6 
1FC7 
1FC8 
1FC9 
1FCA 
1FCB 
1FCC 
1FCD 
1FCE 
1FDO 
1FD1 
1FD2 
1FD6 
1FD9 
1FDB 
1FDD 
1FDF 
1FEO 
1FE1 
1FE4 
1FE7 
1FEA 
1FEB 
1FEE 
1FEF 
1FFO 
1FF3 
1FF4 
1FF5 
1FF6 
1FF7 
1FF8 
1FF9 
1FFA 
1FFB 
FFC 
1FFD 
1FFE 
IFFF 
2000 
2002 
2003 
2004 
2005 
2008 
200A 
200B 
200C 
200F 
2012 
2015 
2016 
2019 
201A 


10EF 
B7 

co 

41 

TE 

1F 

IF 

IF 

BO 
E6OF 
4F 

23 
DD211DB5 
113F00 
DD19 
CB38 
30FA 
ES 

C5 
DD7E1B 
DD341B 
DD351C 
EB 
CD3A20 
E5 

EB 
DD7EO1 
2F 

Al 

12 

13 

TE 

23 

87 

87 

87 

87 

47 

TE 

23 
E6OF 
BO 

12 

13 
010600 
EDBO 
E 

F3 
DD7EIA 
DD341A 
DDB603 
FB 
CCBD20 
c1 

EI 


dinz 


and 


inc 
Id 
inc 
add 
add 
add 
add 
Id 
Id 
inc 
and 
or 
Id 
inc 


Idir 
pop 
d 
Id 
inc 
or 
e 
call 
pop 
pop 


SOUND MANAGER 


1FB5 
a 

nz 
b,c 
a,(hl) 


b 

OF 

c,a 

h 
ix,B51D 
de,003F 
ix,de 

b 
nc,1FD9 
h 

bc 
a,(ix+1B) 
(x+1B) 
(ix+1C) 
de,hl 
203A 

h 

de,hl 
a,(ix+01) 


c 
(de),a 
de 
a,(hl) 
h 


a 

a 

a 

a 
b,a 
a,(hl) 
h 

OF 

b 
(de),a 
de 
bc,0006 


h 
a,(ix+1A) 
(ix+1A) 
(ix+03) 
2,20BD 
bc 

h 
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SOUND MANAGER 


201B 04 inc b 

201C 10B8 dinz 1FD6 
201E E5 push hl 

201F 2151B5 Id hl,8551 alte SOUND Akt. (nach HOLD) 
2022 TE Id a,(hl) 
2023 B7 or a 

2024 2811 jr 2,2037 
2026 3600 Id (hl),00 
2028 F3 di 

2029 23 inc hl 
202A 46 Id b,(hl) 
202B BO or b 

2020 77 Id (hi),a 
202D 78 Id a,b 
202E B7 or a 

202F 2005 jr nz,2036 
2031 23 inc hl 

2032 3603 Id (hl),03 
2034 23 inc hl 

2035 77 Id (hl),a 
2036 FB ei 

2037 Ei pp hl 

2038 37 scf 

2039 C9 ret 

203A E603 and 03 
2030 87 add aa 
203D 87 add aa 
203E 87 add aa 
203F C6IF add af 
2041 DDES5 push ix 

2043 E1 pop hl 

2044 85 add al 
2045 6F Id l,a 
2046 8C ad ah 
2047 95 sub | 

2048 67 Id h,a 
2049 C9 ret 
Br & SOUND RELEASE 
204A 6F Id l,a 
204B CDES6IE cal 1EE6 SOUND CONTINUE 
204E 7D Id a,l 
204F E607 and 07 
2051 C8 ret z 

2052 DD211DB5 Id ix,B51D 
2056 113F00 Id de,003F 
2059 DD19 add ix,de 
205B CB3F srl a 

205D 30FA jr nc,2059 
205F F5 push af 

2060 DDCBO35E bit 3,(ix+03) 
2068 20EC jr nz,2056 
206A 18B2 jr 201E 
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SOUND MANAGER 


KK rer SOUND CHECK 


206C E607 
206E C8 
206F 2120B5 
2072 113F00 
2075 19 
2076 IF 
2077 30FC 
2079 F3 
207A TE 
207B 87 
207C 87 
207D 87 
207E 111900 
2081 19 
2082 B6 
2083 23 
2084 23 
2085 3600 
2087 FB 
2088 C9 


LE ZZ Z z z 2 z 2 ZZ 2 ZZ 2 2 2 


2089 E607 
208B C8 
208C EB 
208D 213985 
2090 013F00 
2093 09 
2094 IF 
2095 3OFC 
2097 AF 
2098 F3 
2099 BE 
209A 23 
2098 73 
2090 23 
209D 2003 
209F 72 
20A0O FB 
20A1 C9 


20A2 77 
20A3 FB 
20A4 EB 
20A5 C3E201 


20A8 DD7EIA 
20AB B7 
20AC CATF22 
20AF DD7EO1 
20B2 2150B5 
20B5 B6 
20B6 77 
20B7 DD7E19 


and 
ret 
Id 
Id 
add 


and 
ret 
ex 
Id 
Id 
add 
rra 
jr 
xor 
di 
cp 
inc 
Id 
inc 
jr 

Id 
ei 
ret 


07 

zZ 
h1,B520 
de,003F 
hl,de 


nc,2075 


a,(hl) 
a,a 

a,a 

a,a 
de,0019 
hl,de 
(hi) 


Br SOUND ARM EVENT 
07 

zZ 

de,hl 

h1,B539 

bc,003F 

hl,bc 


nc,2093 
a 


(hi) 


(hl),a 


de,hl 
01E2 KLEVENT 


a,(ix+1A) 


a 
2,227F 
a,(ix+01) 
h1,B550 
h) 
(hi),a 
a,(ix+19) 
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20BA 
20BD 
20BE 
20BF 
20C1 
2003 
2005 
20C6 
2008 
20CB 
20CC 
20CD 
20D1 
20D2 
20D3 
20D5 
20D6 
20D7 
20D8 
20D9 
20DA 
20DB 
20DC 
20DD 
20DE 
20DF 
20E1 
20E2 
20E5 
20E8 
20E9 
20EA 
20EB 
20EC 
20ED 
20EE 
20EF 
20F0 
20F1 
20F2 
20F5 
20F8 
20FB 
20FC 
20FD 
2100 
2103 
2106 
2107 
210A 
210E 
210F 
2110 
2111 
2112 


CD3A20 
TE 

B7 
280C 
CBS5F 
2053 
E5 
3600 
CD1F21 
E1 

DO 
DD360310 
23 

TE 
E6FO 
F5 

AE 

5F 

23 

4E 

23 

56 

23 

B2 

Bi 
2808 
E5 
CDAB22 
DD5601 
E1 

4E 

23 

5E 

23 

TE 

23 

66 

6F 

Fl 
CD7521 
215185 
DD7EO1 
B6 

77 
DD3419 
DD351A 
DD341C 
F3 
DD7EIE 
DD361E00 
FB 

B7 

08 

67 
DD6E1D 


call 
Id 
or 

jr 
bit 
jr 
push 


call 
pop 
ret 
Id 
inc 
Id 
and 
push 
xor 
Id 
inc 
Id 
inc 
Id 
inc 
or 
or 

jr 
push 
call 


pop 
Id 
inc 
Id 
inc 
Id 
inc 


Id 
pop 
call 
Id 
Id 
or 
Id 
inc 
dec 
inc 
d 
Id 
e 
or 
ret 


Id 


SOUND MANAGER 


203A 
a,(hl) 


a 
2,20CD 
3,a 
nz,2118 
h 

(hi),00 
211F 

h 

nc 
(ix+03),10 
h 

a,(hl) 

FO 

af 

(hi) 

6,a 

hl 

c,(hl) 

h 


d,(h) 
hl 
d 


c 
2,20E9 
h 

22AB 
d,(ix+01) 


2175 

hl,B551 alte SOUND Akt. (nach HOLD) 
a,(ix+01) 

(hi) 

(hl),a 

(x+19) 

(ix+1A) 

(ix+1C) 


a,(ix+1E) 
(ix+1E),00 


a 

z 

h,a 
I,(ix+1D) 
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2115 


2118 
211A 
211E 


211 
2121 

2122 
2125 
2129 
212B 
212D 
2131 

2133 
2135 
2139 
213A 
213D 
213E 
2140 
2141 

2144 
2146 
2148 
214C 
214E 
2150 
2154 
2157 
2158 
215A 
215B 
215E 
2160 
2164 
2165 
2168 
216A 
216B 


216C 
216D 
216F 
2172 
2173 
2174 


2175 
2177 
217A 
217B 
217C 
217D 
2i7r 


C3E201 


CBYE 
DD360308 
09 


DDES 

47 

DD4EO1 
DD215CB5 
CB47 
200C 
DD219BB5 
CBAF 

2004 
DD21DABS 


DDES 
DD21DABS 
CB57 

2004 
DD219BB5 
DD7EO3 


CBFB 
DD730F 
5F 

7D 

B4 
2001 

2B 


ip 
res 


Id 
ret 


push 
Id 
Id 
Id 
bit 
jr 
Id 
bit 
jr 
Id 
d 
Id 
and 
ir 
Id 
cp 
jr 
push 
Id 
bit 
jr 
Id 
Id 
and 
jr 

e 
call 
pop 
Id 
e 
call 
pop 
scf 
ret 


pop 
pop 
Id 
e 
or 
ret 


set 
Id 
Id 
Id 
or 


dec 


SOUND MANAGER 


01E2 


3,(h) 
(x+03),08 


ix 

b,a 
c,(ix+01) 
ix,B55C 
0,a 
nz,2139 
ix,B59B 
1,a 
nz,2139 
ix,B5DA 


a,(ix+03) 


6 
2,216D 
a,b 
(ix+01) 
2,2160 
ix 
ix,B5DA 
2,a 
nz,2154 
ix,B59B 
a,(ix+03) 


c 
2,216C 


20B7 
ix 
(ix+03),00 


20B7 
ix 


hl 
ix 
(ix+03),b 


a 


7e 
(x+OP),e 
e,a 

a,l 

h 
nz,2180 
hl 


KLEVENT 


SOUND Params Kanal A 


SOUND Params Kanal B 


SOUND Params Kanal C 


SOUND Params Kanal C 


SOUND Params Kanal B 
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2180 
2183 
2186 
2187 
2188 
218A 
218C 
218F 
2192 
2193 
2196 
2197 
2198 
219A 
219D 
219F 
21A0 
21A1 
21A2 
21A4 
21A7 
21AA 
21AD 
21B0 
21B2 
21B5 
21B6 
21B9 
21BC 
21BF 
2100 
2102 
21C4 
21C5 
2106 
2107 
2109 
21CB 
21CC 
21CD 
21CF 
21D2 
21D5 
21D8 
21DA 
21DD 
21DE 
21E1 
21E2 
21E3 
2165 
21E6 
21E7 
21EA 
21EC 


DD7508 
DD7409 
79 

B7 

2808 
3E06 
CD2608 
DD7EO2 
B2 
CD8B22 
7B 

B7 
280A 
210AB6 
1600 

19 

TE 

B7 
2003 
21B221 
DD750A 
DD740B 
CD6522 
180D 
010100 
08 
DD6EOD 
DD660E 
DD5E10 
7B 
FEFF 
2876 

87 

TE 

23 
384A 
280D 
1D 

B7 
2006 
DDB60F 
F2DD21 
DD860F 
E6OF 
CD7322 
4E 
DD7EO9 
47 

87 

381B 
AF 

91 
DD8608 
380C 
05 


Id 
Id 
Id 
or 
jr 


call 


call 


add 


xor 
sub 
add 
jr 

dec 


SOUND MANAGER 


(ix+08),] 

(ix+09),h 

a,C 

a 

2,2192 

a,06 Rauschgenerator laden 
0826 MC SOUND REGISTER 
a,(ix+02) 

d 


228B 

ae 

a 

z,21A4 

h1,B60A Lautstärke Hüllkurven 
d,00 


“ hi,de 


a,(hl) 

a 
nz,21A7 
hl,21B2 
(ix+0A),| 
(ix+0B),h 
2265 
21BF 
bc,0001 
z 
1,(ix+0D) 
h,(ix+0E) 
e,(ix+10) 
a,e 

FF 
2,223A 
a,a 

a,(hl) 

hl 


0,2213 
2,21D8 
e 

a 
nz,21D5 
(ix+OF) 
p,21DD 
a,(ix+OF) 
OF 

2273 Lautstärke setzen 
c,(h]) 
a,(ix+09) 
b,a 

aa 
c,2200 
a 


c 
a,(ix+08) 
c,21F8 
b 
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21ED 
21F0 
21F3 
21F4 
21F5 
21F8 
21FB 
21FC 
21FE 
2200 
2201 

2202 
2205 
2208 
2209 
220C 
2210 
2211 

2212 


2213 
2214 
2215 
2217 
221A 
221B 
221D 
2220 
2221 

2223 
2226 
2228 
222B 
222E 
222F 
2230 
2232 
2235 
2238 
223A 
223B 
223E 
2241 

2244 
2245 


2246 
2249 
224B 
224E 
224F 
2252 
2254 
2257 
2259 


F2F521 
DD4E08 
AF 

47 
DD7009 
DD7708 
BO 
2002 
1EFF 
7B 

B7 
004622 
DD7310 
F3 
DD7106 
DD360780 
FB 

B7 

c9 


57 

4B 
3EOD 
CD2608 
4A 
3E0B 
CD2608 
4E 
3EOC 
CD2608 
3E10 
CD7322 
CD4622 
7B 

3C 
208D 
218221 
CD6522 
1885 
AF 
DD7703 
DD7707 
DD7704 
37 

cg 


DD350C 
201E 
DD7EO9 
87 
218221 
3011 
DD3408 
2006 
DD3409 


Ip 
Id 
xor 
Id 
Id 
Id 
or 
ir 
Id 
Id 
or 
call 
Id 
d 
Id 
Id 
e 
or 
ret 


Id 
Id 
Id 
call 
Id 
Id 
call 
Id 
Id 
call 
Id 
call 
call 
Id 
inc 
jr 


call 
jr 
xor 
Id 
Id 
Id 
scf 
ret 


dec 
ir 


add 
Id 
jr 
inc 
jr 
inc 


SOUND MANAGER 


p,21F5 
c,(ix+08) 
a 

b,a 
(ix+09),b 
(ix+08),a 
b 


nz,2200 
eff 
a,e 


a 
2,2246 
(x+10),e 


(ix+06),c 
(ix+07),80 


a 


d,a 

ce 

a,0D Hüllkurve 

0826 MC SOUND REGISTER 
c,d 

a,0B Hüllkurvenlänge Lo 
0826 MC SOUND REGISTER 
c,(hi) 

a,0C Hüllkurvenlänge Hi 
0826 MC SOUND REGISTER 
a,10 

2273 Lautstärke setzen 

2246 

a,e 

a 

nz,21BF 

hl,21B2 

2265 

21BF 

a 

(ix+03),a 

(ix+07),a 

(ix+04),a 


(ix+0C) 
nz,2269 
a,(ix+09) 
a,a 
hl,21B2 
nc,2265 
(ix+08) 
nz,225F 
(ix+09) 
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2250 1EFF 
225E CB 
225F DD6EOA 
2262 DD660B 
2265 TE 
2266 DD770C 
2269 23 
226A SE 
226B 23 
2260 DD750D 
226F DD740E 
2272 C9 


Id 
ret 
Id 
Id 
Id 
Id 
inc 
Id 
inc 
Id 
Id 
ret 


SOUND MANAGER 


eff 

z 
1,(ix+0A) 
h,(ix+0B) 
a,(hl) 
(ix+00),a 
hl 


e,(hl) 
hl 


(ix+0D), 
(ix+OE),h 


tt Lautstärke setzen 


2273 DD770F 
2276 4F 
2277 DD7EOO 
227A C608 
227C C32608 


227F DD7EOI 
2282 2F 
2283 215285 
2286 F3 
2287 A6 
2288 77 
2289 FB 
a28A AF 
228B 47 
2280 DD7EO! 
228F DDB602 
2292 2119B6 
229% F3 
2296 B6 
2297 AB 
2298 BE 
2299 77 
229A FB 
229B 2003 
229D 78 
229E B7 
229F CO 
22AD AF 
22A1 CD7622 
a2A4 F3 
22A5 A4E 
22A6 3E07 
22A8 C32608 


22AB CD2423 
Q2AE 7B 
a2AF CD4E2I 
22B2 DO 
22B3 TE 
22B4 ES67F 


Id 
Id 
Id 
add 
Ip 
Id 
cpl 
Id 
di 
and 
Id 
ei 
xor 
Id 
Id 
or 
Id 
di 
or 
xor 
cp 
Id 
ei 
ir 
Id 
or 
ret 
xor 
call 
di 
Id 
Id 
Ip 
call 
Id 
call 
ret 


and 


(ix+OF),a 

c,a 

a,(ix+00) 

a,08 Lautstärke 

0826 MC SOUND REGISTER 


a,(ix+01) 
1,552 id SOUND Aktivität 


(hi) 
la 


a 

b,a 
a,(ix+01) 
(ix+02) 
h1,B619 


(hi) 
b 


(hi) 
(h)),a 


nz,22A0 
a,b 

a 

nz 

a 

2276 


c,(hi) 
a,07 Kanal-Steuerregister 
0826 MC SOUND REGISTER 


2324 

a,e 

234E SOUND T ADDRESS 
nc 

a,(h) 

7F 
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22B6 
22B7 
22BA 
22BD 
22C0 
2202 
22C5 
2208 
22CB 
22CC 
22CD 
22CE 
22D0 
22D2 
22D4 
22D6 
22D7 
22D8 
22D9 
22DA 
22DB 
22DE 
22DF 
22E0 

22E3 

22E4 

22E5 

22E8 

22E9 

22EA 
22EB 
22ED 
22F0 

22F1 

22F3 

22F6 

22F9 

22FA 
a2FC 
22FE 
2302 


2303 
2306 
2309 
230A 
230D 
2311 
2312 


2313 
2316 
2317 
2318 
2319 


C8 
DD7511 
DD7412 
CD1323 
1809 
DD6E14 
DD6615 
DD5E18 
4E 

23 

7B 
D6FO 
3804 
1E00 
180E 
1D 

79 

87 

9F 

57 
DD7E16 
81 

4F 
DD7E17 
8A 

57 
CD2423 
4E 

7B 

B7 
2019 
DD7E13 
3D 
2010 
DD6E11 
DD6612 
TE 
0680 
3805 
DD360400 
c9 


CD1323 
DD7318 
F3 
DD7105 
DD360480 
FB 

c9 


DD7713 
23 
5E 
23 
DD7514 


ret 
Id 
Id 
call 
jr 
Id 
Id 
Id 
Id 
inc 
Id 
sub 
jr 
Id 
jr 
dec 
Id 
add 
sbc 
Id 
Id 
add 
Id 
Id 
adc 
Id 
call 
Id 
Id 
or 
jr 
Id 
dec 
jr 
Id 
Id 
Id 
add 
ir 
Id 
ret 


call 
Id 
d 
Id 
Id 
ei 
ret 


inc 
Id 
inc 


SOUND MANAGER 


z 
(x+11),l 
(ix+12),h 
2313 
22CB 
1,(ix+14) 
h,(ix+15) 
e,(ix+18) 
c,(h) 

h 


ae 

FO 
c,22D6 
e,00 
22E4 

e 

ac 

a,a 

a,a 

d,a 
a,(ix+16) 
a,C 

c,a 
a,(ix+17) 
a,d 

d,a 
2324 
c,(h) 
ae 

a 
nz,2306 
a,(ix+13) 


a 
nz,2303 
1,(ix+11) 
h,(ix+12) 
a,(hl) 
a,80 
c,2303 
(ix+04),00 


2313 
(x+18),e 


(ix+05),c 
(ix+04),80 


(ix+13),a 
h 


(x+14),l 


220 


SOUND MANAGER 


2310 DD7415 Id (ix+15),h 

231F 7B Id ae 

2320 B7 or a 

2321 C0 ret nz 

2322 1C inc e 

2323 C9 ret 

2324 DD7EOO . Id a,(ix+00) 

2327 87 add aa 

2328 F5 push af 

2329 DD7116 Id (ix+16),c Tonhöhe Lo 

232C CD2608 cal 0826 MC SOUND REGISTER 
232F Fi pop af 

2330 3C inc a 

2331 4A Id c,d 

2332 DD7117 Id (ix+17),c Tonhöhe Hi 

2335 032608 ip 0826 MC SOUND REGISTER 
rer SOUND AMPL ENVELOPE 
2338 110AB6 Id de,B60A Lautstärke Hüllkurven 
233B 1803 jr 2340 Hüllhurve kopieren 


Bere SOUND TONE ENVELOPE 
233D 11FAB6 Id de,B6FA Ton Hüllkurven 


tr Hüllhurve kopieren 
2340 EB ex de,hl 


2341 CD5123 cal 2351 Hüllkurve Adresse holen 

2344 EB ex de,hl 

2345 DO ret nc 

2346 EDBO Idir 

2348 09 ret 
rer SOUND AADDRESS 
2349 210AB6 Id hl,B60A Lautstärke Hüllkurven 

2340 1803 jr 2351 Hüllkurve Adresse holen 
Kr rer SOUND TADDRESS 
234E 21FAB6 Id hl,B6FA Ton Hüllkurven 
er Hüllkurve Adresse holen 
2351 B7 or a 

2352 08 ret z 

2353 FE1O cp 10 

2355 DO ret nc 

2356 011000 Id bc,0010 

2359 87 add aa 

235A 87 add aa 

235B 87 add aa 

2350 87 add aa 

235D 85 add al 

235E 6F Id 1,a 

235F 8C ad ah 

2360 95 sub | 

2361 67 Id h,a 
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2362 
2363 


2364 
2365 
2366 
2367 
2368 
2369 
236A 
236B 
236C 
236D 
236E 
236F 


37 
c9g 


c7 
c7 
c7 
c7 
C7 
c7 
C7 
c7 
C7 
C7 


c7 


scf 
ret 


rst 
rst 
rst 
rst 
rst 
rst 
rst 
rst 
rst 
rst 
rst 
rst 


oooooooooocoo0o0o0 


SOUND MANAGER 
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2.5.9 CASSETTE MANAGER (CAS) 


Die Aufgaben dieses Packs brauchen wir Ihnen sicher nicht näher ausein- 
anderzusetzen. 

Die Anwendung verschiedener Routinen dürfte für den Assemblerpro- 
grammierer kaum von besonderem Interesse sein, da professionelle Pro- 
gramme allgemein nicht gerne im Zusammenhang mit Kassettenbetrieb 
gesehen werden. Die Floppy gibt in dieser Richtung schon wesentlich 
mehr her. 

Dennoch hier einige Basisroutinen, die anwendbar sind: 


CAS IN OPEN eröffnet ein Eingabefile. Dazu müssen in b die Länge des 
Filenamens, in hi die Anfangsadresse des Filenamens und in de die Star- 
tadresse eines 2K großen RAM-Bereiches, der als Eingabepuffer benutzt 
wird, übergeben werden. 

Nach der Rückkehr enthält hl die Anfangsadresse des Fileheaders. 

a, bc und de enthalten weitere, dem Header entnommene Werte, die Sie 
aber auch dem Header selbst entnehmen können, da Sieja dessen Starta- 
dresse haben. 

Die Flags carry und zero geben Auskunft über den Erfolg der Aktion: 
Carry=1 und zero=0 bedeuten, daß alles geklappt hat. 

Carry=0 und zero=0 besagen, daß bereits noch ein File geöffnet ist. 
Falls die ESC-Taste gedrückt wurde, ist carry=0 und zero=1. 


CAS OUT OPEN öffnet ein Ausgabefile. Die Übergabeparameter und die 
Bedeutung der Flags sind die gleichen wie oben. Natürlich muß hier de 
die Adresse des Ausgabepuffers enthalten. 


CAS INCHAR holt ein Zeichen aus dem Eingabepuffer und übergibt esin 
a. War es das letzte Zeichen aus dem Puffer, wird automatisch ein neuer 
Block von der Kassette nachgezogen. 

Wenn carry=0O und zero=O sind, ist das Dateiende erreicht (EOF) oder das 
File war nicht geöffnet. Die anderen Kombination sind wie oben. 


CAS OUT CHAR schreibt das Zeichen in a in den Ausgabepuffer. Ist die- 


ser voll, wird er automatisch weggeschrieben. 
Die Bedeutung der Flags ist wie oben. 
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CASSETTE MANAGER 


re DAS INITIALISE 


2370 CD0124 cal 2401 CAS IN ABANDON 

2373 CD2E24 cal 242E CAS OUT ABANDON 

2376 AF xor a 

2377 CD8E23 cal 238E CAS NOISY 

237A 214D01 Id hl,014D 

237D 3E19 Id a,19 
te CASSETSPEED 
237F 29 add hi,hl 

2380 29 add hl,hl 

2381 29 add hi,hl 

2382 29 add hi,hl 

2383 29 add hl,hl 

2384 29 add hl,hl 

2385 OF ca 

2386 OF ca 

2387 E63F and 3F 

2389 6F Id l,a 

238A 22D1B8 Id (B8D1),hl (Cass. Speed) 

238D C9 ret 
tn CAS NOISY 
238E 3200B8 Id (B800),a (Cass. Message Flag) 

2391 09 ret 
nt CASINOPEN 
2392 DD2102B8 Id ix,B802 Input Buffer Status 

2396 CDAF23 cal 23AF CAS Open 

2399 DO ret nc 

239A ES push hl 

239B CD3F25 cal 253F File Header lesen 

239E ED5BICB8 Id de,(B81C) 

23A2 ED4B1FB8 Id bc,(B81F) 

23A6 3A19B8 Id a,(B819) 

23A9 E1 pp hl 

23AA C9 ret 
nr CASOUT OPEN 
23AB DD2147B8 Id ix,B847 Output Buffer Status 
tr CAS Open 
23AF DD7EOO Id a,(ix+00) 

23B2 B7 or a 

23B3 CO ret nz 

23B4 DDE5 push ix 

23B6 E3 ex (sp),hl 

2387 3601 Id (hi),01 

2389 23 inc hl 

23BA 73 Id (hl),e 

23BB 23 inc hl 

23BC 72 Id (hl),d 

23BD 23 inc hl 

23BE 73 Id (hi),e 
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CASSETTE MANAGER 


23BF 23 inc hl 

2300 72 Id (hl),d 
2301 23 inc hl 

2302 EB ex de,hl 
2303 E1 pop hl 

2304 D5 push de 

2305 O0E40 Id c,40 
2307 12 Id (de),a 
2308 13 inc de 

23C9 0D dc c 

23CA 20FB jr nz,23C7 
23CC DI pop de 

23CD D5 push de 

23CE 78 Id a,b 

23CF FE10 cp 10 

23Di 3802 jr c,23D5 
23D3 0610 Id b,10 
23D5 04 inc b 

23D6 48 Id c,b 

23D7 1807 jr 23E0 
23D9 E7 rst 4 

23DA 23 inc hl 

23DB CDB627 cal 27B6 
23DE 12 Id (de),a 
23DF 13 inc de 

23E0 10F7 dinz 23D9 
23E2 0D dc c 

23E3 2809 jr 2,23EE 
23E5 1B dec de 

23E6 1A Id a,(de) 
23E7 EE20 xor 20 

23E9 2003 ir nz,23EE 
23EB 12 Id (de),a 
23EC 18F4 jr 23E2 
23EE E1 pop hl 

23EF DD361501 Id (ix+15),01 
23F3 DD361716 Id (x+17),16 
23F7 DD35IC dec (ix+1C) 
23FA 37 scf 

23FB C9 ret 
Kr CASINCLOSE 
23FC 3A02B8 Id a,(B802) (Input Buffer Status) 
23FF B7 or a 

2400 C8 ret z 
Kr rer CASINABANDON 
2401 2102B8 Id hl,B802 Input Buffer Status 
2404 3E01 Id a,01 
2406 3600 Id (hi),00 
2408 23 inc hl 

2409 5E Id e,(hl) 
240A 23 inc hl 

240B 56 Id d,{hl) 
2400 21CCB8 Id h1,B8CC 
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CASSETTE MANAGER 


240F AE xor (hl) 

2410 37 scf 

2411 CO ret nz 

2412 77 Id (h),a 

2413 9F sbc aa 

2414 C9 ret 
nn CASOUTCLOSE 
2415 3A47B8 Id a,(B847) (Output Buffer Status) 
2418 FEO4 cp 04 

241A 2812 jr 2,242E CAS OUT ABANDON 
2410 C6FF add arFF 

241E DO ret nc 

241F 215DB8 Id h1,B85D 

2422 36FF Id (h),FF 

2424 23 inc hl 

2425 23 inc hl 

2426 TE Id a,(hl) 

2427 23 inc hl 

2428 B6 or (hi) 

2429 37 scf 

242A 041426 cal _nz,2614 

242D DO ret nc 
Br CAS OUT ABANDON 
242E 2147B8 Id h1,B847 Qutput Buffer Status 
2431 3E02 Id a,02 

2433 18D1 jr 2406 
nn CAS IN CHAR 
2435 E5 push hl 

2436 D5 push de 

2437 C5 push bc 

2438 0602 Id b,02 

243A CD8B24 cal 248B Check Input Buffer Status 
243D 201A jr nz,2459 

243F 2A1AB8 Id hl, (B81A) 

2442 7C Id a,h 

2443 B5 or | 

2444 37 scf 

2445 CC3F25 cal z,253F File Header lesen 
2448 300F jr nc,2459 

244A 2A1AB8 Id hl,(B81A) 

244D 2B dc hl 

244E 221AB8 Id (B81A),hl 

2451 2A05B8 Id hl,(B805) (Pointer Input Buffer) 
2454 E7 rst 4 Ida,{h) 

2455 23 inc hl 

2456 2205B8 Id (B805),hl (Pointer Input Buffer) 
2459 182C jr 2487 
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KR ra r CASOUTCHAR 


245B E5 push hl 

2450 D5 push de 

245D C5 push bc 

245E AF Id ca 

245F 2147B8 Id hl,B847 Output Buffer Status 

2462 0602 Id b,02 

2464 CD8E24 cal 248E Check Buffer Status 

2467 201E jr nz,2487 

2469 2A5FB8 Id hl,(B85F) 

2460 110008 Id de,0800 

246F ED52 sbc hl,de 

2471 C5 push bc 

2472 D41426 cal nc,2614 

2475 C1 pop be 

2476 300F jr nc,2487 

2478 2A5FB8 Id hl,(B85F) 

247B 23 inc hl 

247C 225FB8 Id (B85F),hl 

247F DA4ABB Id hl,(B84A) (Pointer Output Buffer) 

2482 71 Id (hl),c 

2483 23 inc hl 

2484 224AB8 Id (B84A),hl (Pointer Output Buffer) 

2487 01 pop be 

2488 Di pop de 

2489 E1 pop hl 

248A C9 ret 
RR rar Check Input Buffer Status 
248B 2102B8 Id h1,B802 Input Buffer Status 
RR & Check Buffer Status 
248E TE Id a,(h) 

248F BB cp b 

2490 C8 ret z 

2491 EEO1 xor 01 

2493 C0 ret nz 

2494 70 Id (hl),b 

2495 09 ret 
Kr rare CASTESTEOF 
2496 CD3524 cal 2435 CASIN CHAR j 
2499 DO ret nc 
KR rer rer re CASRETURN 
249A E5 push hl 

249B 2A1AB8 Id hl, (B81A) 

249E 23 inc hl 

249F 221AB8 Id (B81A),hl 

24A2 2A0SBE Id hl,(B805) (Pointer Input Buffer) 

24A5 2B dc hl 

24A6 2205B8 Id (B805),hl (Pointer Input Buffer) 

24A9 Ei pp hl 

24AA C9 ret 
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CASSETTE MANAGER 


Kerr CASIN DIRECT 


24AB EB 

24AC 0603 
24AE CD8B24 
24B1 CO 

24B2 ED531CB8 
24B6 CDCF24 
24B9 2A1CBB 
24BC EDSB1AB8 
2400 19 

2401 221CB8 
2404 CD3F25 
2407 38F0 
2409 C8 

24CA 2AA6BB 
24CD 37 

24CE C9 


24CF 2A03B8 

24D2 EDSBICB8 
24D6 ED4B1AB8 
24DA 7B 

24DB 95 

2400 7A 

24DD 9C 

24DE DAAGBA 

24E1 09 

24E2 2B 

24E3 EB 

24E4 09 

24E5 2B 

24E6 EB 

24E7 C3ACBA 


Check Input Buffer Status 


File Header lesen 


(Adr. Start Input Buffer) 


KLLDIR CONT'D 


KLLDDR CONT'D 


nn CAS OUT DIRECT 


24EA E5 

24EB C5 

24EC 4F 

24ED 2147B8 
24F0 0603 
24F2 CD8E24 
24F5 79 

24F6 Ci 

24F7 E1 

24F8 CO 

24F9 325EB8 
24FC EDS5364B8 
2500 ED4366B8 
2504 2248B8 
2507 EDS3SFBE 
250B 21FFF7 
250E 19 

250F 3F 

2510 D8 

2511 210008 


ex de,hl 

Id b,03 

cal 248B 

ret nz 

Id (B81C),de 
cal 24CF 

Id hl,(B81C) 
Id de,(B81A) 
add hi,de 

Id (B81C),hl 
cal 253F 

jr c,24B9 
ret Z 

Id hl,(B8A6) 
scf 

ret 

Id hl,(B803) 
Id de,(B81C) 
Id bc,(B81A) 
Id ae 

sub | 

Id a,d 

sbcc ah 

ip c,BAA6 (0537) 
add hl,bc 

dec hl 

ex de,hl 

add hl,bc 

dec hl 

ex de,hl 

ip BAAC (053D) 
push hl 

push bc 

Id c,a 

Id hl,B847 
Id b,03 

cal 248E 

Id ac 

pop bc 

pp hl 

ret nz 

Id (B85E),a 
Id (B864),de 
Id (B866),bc 
Id (B848),hl 
Id (B85F),de 
Id hI,F7FF 
add hi,de 

ccf 

ret c 

Id h1,0800 


Qutput Buffer Status 


Check Buffer Status 


(Adr. Start Output Buffer) 
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2514 
2517 
2518 
251A 
251B 
251E 
251F 
2520 
2523 
2524 
2525 
2526 


“** 
2528 
252B 
252C 
252D 
252E 
2530 
2534 
2537 
253A 
253C 


“.* 
253F 
2542 
2543 
2544 
2547 
254A 
254C 
254F 
2552 
2554 
2557 
2559 
255C 
255E 
2560 
2562 
2564 
2567 
256B 
256E 
2571 

2573 
2575 
2578 
2579 
257B 
257D 
2580 
2583 


CASSETTE MANAGER 


225FB8 ‚Id (B85F),hl 

EB ex de,hl 

ED52 sbc hl,de 

E5 push h 

2A48B8 Id hl,(B848) (Adr. Start Output Buffer) 
19 add hi,de 

E5 push hl 

CD1426 cal 2614 

E1 pp h 

DI pop de 

DO ret nc 

18DC jr 2504 
Br CAS CATALOG 
2102B8 Id h1,B802 Input Buffer Status 
7E d ah) 

B7 or a 

co ret nz 

3605 Id (hl),05 

ED5303B8 Id (B803),de (Adr. Start Input Buffer) 
CD8E23 cal 238E CAS NOISY 
CD4425 cal 2544 

38FB ir 0,2537 

030124 ip 2401 CAS IN ABANDON 
a File Header lesen 
3A18B8 Id a,(B818) 

B7 or a 

Co ret nz 

010183 Id bc,8301 

CD7326 cal 2673 

305C jr nc,25A8 

218CB8 Id h1,B88C 

114000 Id de,0040 

3E2C Id a,2C 

CD3628 cal 2836 CAS READ 

304F jr nc,25A8 

CDC525 cal 2505 

2057 jr nz,25B5 

068B Id b,8B 

3802 jr 0,2564 

0689 Id b,89 

CD9226 cal 2692 

EDSBYFBB Id de,(B89F) 

2A1CBB Id hIBBIC) 

3A02B8 Id a,(B802) (Input Buffer Status) 
FEO3 cp 03 

280E jr 2,2583 

21FFF7 Id hI,F7FF 

19 add hl,de 

3E04 Id a,04 

382B jr c,25A8 

2A03B8 Id hl,(B803) (Adr. Start Input Buffer) 
2205B8 Id (B805),hl (Pointer Input Buffer) 
3E16 Id a,16 
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2585 

2588 

258A 
258D 
258E 

2591 

2592 

2593 

2594 

2597 

259A 
259D 
25A0 

25A2 

25A5 
25A6 
25A8 
2549 
25AC 
25AE 
25B0 
25B3 
2585 
25B6 
25B8 
25BB 
25BC 
25BE 
2500 
2503 
25C5 
2508 
2509 
25CA 
25C0D 
25CE 
25D0 
25D3 
25D4 
25D5 
2506 
25D9 
25DA 
25DD 
25DE 
25E1 

25E4 

25E7 

25E9 

25EA 


25EB 
25EE 
25EF 
25F0 


CD3628 
301E 
211788 
34 
3A9DB8 
23 

77 

AF 
321EB8 
2A9FB8 
221AB8 
CDBF27 
3E8C 
CC0C27 
37 
1865 
B7 
2102B8 
285D 
0685 
CD1327 
1897 
F5 
0688 
CD9226 
Fl 
308E 
0687 
CD1127 
1887 
CDBF27 
37 

c8 
3A1EB8 
B7 
281B 
3AA3B8 
2F 

B7 

co 
3A07B8 
B7 
C4F325 
co 
218CB8 
1107B8 
014000 
EDBO 
AF 

cg 


CDF325 
co 
EB 
1A 


call 
jr 
Id 
inc 
Id 
inc 
Id 
xor 
Id 
Id 
Id 
call 


call 
sch 
jr 

or 
Id 

jr 
call 
jr 
push 


call 


Idir 
xor 
ret 


call 
ret 
ex 
Id 


CASSETTE MANAGER 


2836 CAS READ 
nc,25A8 

h1,8817 

(hi) 

a,(B89D) 

h 


(h),a 

a 
(B81E),a 
hi,(B89F) 
(B81A),hl 
27BF 
a,8C 
2,270C 


260D 
a 
h1,8802 
2,260B 
b,85 
2713 
2540 
af 
b,88 
2692 
af 
nc,254C 
b,87 
2711 
2540 
27BF 


Input Buffer Status 


z 
a,(B81E) 


a 
2,25EB 
a,(B8A3) 


a 

nz 
a,(B807) 
a 
nz,25F3 
nz 
h1,B88C 
de,B807 
bc,0040 


(File Header Input) 


File Header Input 


a 


25F3 
nz 
de,h 
a,(de) 
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25F1 
25F2 


25F3 
25F6 
25F9 
25FB 
25FC 
2öFF 
2600 
2601 

2604 
2605 
2606 
2607 
2608 
260A 


260B 
260D 
260E 
260F 
2612 
2613 


2614 
2617 
261A 
261C 
261E 
2621 

2624 
2627 
262A 
262C 
262F 
2632 
2635 
2636 
2639 
263C 
263E 
2641 

2642 
2644 
2648 
264A 
264D 
2650 
2653 
2655 
2658 
265B 
265E 
265F 


BE 
c9 


2107B8 
118CB8 
0610 

1A 
CDB627 
4F 

TE 
CDB627 
A9 

co 

23 

13 

10F1 

cg 


3604 

9F 

F5 
CD4F2A 
Fi 

cg 


010284 
CD7326 
304A 
068A 
114CB8 
CD9526 
216388 
CD8826 
303A 
2A48B8 
224AB8 
2261B8 
E5 
214CB8 
114000 
3E2C 
CD3F28 
Ei 

3022 
ED5SB5SFBB 
3E16 
CD3F28 
215DB8 
DC8826 
3011 
210000 
225FB8 
215CB8 
34 

AF 


cp 
ret 


Id 
Id 
Id 
Id 
call 
Id 
Id 
call 
xor 
ret 
inc 
inc 
dinz 
ret 


Id 
sbc 
push 
call 
pop 
ret 


CASSETTE MANAGER 


(h) 


h1,8807 
de,B88C 
b,10 
a,(de) 
27B6 
ca 
a,(hl) 
27B6 

c 

nz 

hl 

de 
25FB 


(h1),04 
a,a 

af 
2A4F 
af 


bc,8402 
2673 
nc,2666 
b,8A 
de,B84C 
2695 
h1,8863 
2688 
nc,2666 
hl,(B848) 
(B84A),hl 
(B861),hl 
hl 
h1,B84C 
de,0040 
a,2C 
283F 

hl 
nc,2666 
de,(B85F) 
a,16 
283F 
h1,B85D 
c,2688 
nc,2666 
h1,0000 
(B85P),hl 
hl,B85C 
(h) 

a 


File Header Input 


CAS STOP MOTOR 


File Header Output 


(Adr. Start Output Buffer) 
(Pointer Output Buffer) 


File Header Output 


CAS WRITE 


CAS WRITE 


231 


2660 
2663 
2664 
2666 
2667 
266A 
266C 
266E 
2671 

2673 
2676 
2677 
2678 
267A 
267B 
267C 
267D 
2680 
2681 

2682 
2683 
2684 
2685 


2688 
2689 
268A 
268B 
268C 
268F 


2692 
2695 
2698 
2699 
269A 
269D 
26A0 
26A3 
26A4 
26A5 
26A7 
26A9 
26AC 
26AF 
26B1 
26B4 
26B7 
26B9 
26BA 
26BB 
26BC 
26BD 
26BF 
26C0 


3263B8 


034B2A 


TE 
B7 
37 
c8 
012C01 
03722A 


118CB8 
3A00B8 
B7 

co 
320188 
CD8327 
CD2627 
1A 

B7 
200A 
3EBE 
CD2727 
011000 
182E 
CDBF27 
010010 
280D 
6B 

62 

TE 

B7 
2804 
0C 

23 


Id 
scf 
jr 
or 
Id 
jr 


call 
jr 

Id 

Id 
cp 
Id 
scf 
push 
push 
call 
pop 
pop 
sbc 
ret 
Id 

Ip 


or 
scf 
ret 
Id 
ip 
Id 
Id 
or 
ret 
Id 
call 
call 
Id 
or 
jr 


call 
Id 
ir 
call 
Id 
jr 
Id 
Id 
Id 
or 
jr 
inc 
inc 


CASSETTE MANAGER 


(B863),a 
260D 


a 

h1,8847 Output Buffer Status 
2,260B 

b,86 

2713 

262C 

hl,B8CC 

a,C 

(hi) 

(hl),00 


h 

bc 

nz,2760 

bc 

h 

a,a 

nc 

(hl),c 

2A4B CAS START MOTOR 


a,(hl) 
a 


z 
bc,012C 
2A72 


de,B88C 

a,(B800) (Cass. Message Flag) 
a 

nz 

(B801),a 

2783 

2726 

a,(de) 

a 


nz,26B1 
a,8E 
2727 
bc,0010 
26DF 
27BF 
bc,1000 
2,2606 
le 

h,d 
a,(hl) 


a 
2,2603 
c 
h 


232 


2601 

2603 
26C4 
2605 
2606 
26C9 
26CA 
26CD 
26CE 
26D0 
26D2 
26D3 
26D4 
26D7 
26D8 
26D9 
26DA 
26DC 
26DF 
26E0 
26E1 

26E2 
26E4 
26E7 
26E9 
26EC 
26ED 
26F0 
26F3 
26F4 
26F7 
26F9 
26FA 
26FB 
26FD 
26FF 
2702 

2704 
2705 
2708 
2709 
270A 
270C 
270F 
2711 

2713 
2714 
2717 
2718 
271A 
271D 


10F8 
78 

4 

4F 
CD8D27 
1A 
CDB627 
B7 
2002 
3E20 
C5 

D5 
CD3413 
DI 

c1 

13 
10ED 
CD5C27 
EB 

09 

EB 
3E8D 
CD2727 
0602 
CD8D27 
1A 
CDA427 
CD5C27 
13 
CDBF27 
200B 
13 

1A 
E6OF 
0624 
CD8027 
1858 
1A 
2101B8 
B6 

08 
186F 
CD2727 
186A 
3EFF 
F5 
CD1F27 
Fl 
C660 
D48027 
185C 


dinz 
Id 
Id 


call 
Id 
call 
or 
jr 


push 
push 
call 


pop 
inc 
dinz 
call 
ex 
add 
ex 
Id 
call 


call 
Id 

call 
call 
inc 
call 
jr 

inc 


and 
add 
call 
jr 
Id 
Id 
or 
ret 
jr 
call 
ir 


push 
call 
pop 
add 
call 


CASSETTE MANAGER 


26BB 
a,b 

b,c 

c,a 
278D 
a,(de 
27B6 

a 
nz,26D2 
a,20 

bc 

de 
1334 TXT WR CHAR 


2780 CAS Meldung (1 Zeichen) ausg. 


27ıF CAS Meldung (# in b) ausgeben 


nc,2780 CAS Meldung (1 Zeichen) ausg. 
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CASSETTE MANAGER 


KK rer reee CAS Meldung (# in b) ausgeben 


271F CD8011 cal 1180 TXT GET CURSOR 
2722 25 dc h 

2723 C47B27 call nz,277B 

2726 78 ld a,b 

2727 E5 push hl 

2728 E67F and 7F 

272A 47 ld b,a 

272B 210527 ld h1,27C5 Kassetten-Meldungen 
272E 2807 jr 2,2737 

2730 TE ld a,(hl) 

2731 23 inc hl 

2732 B7 or a 

2733 20FB jr nz,2730 

2735 10F9 dinz 2730 

2737 TE ld a,(hl) 

2738 B7 or a 

2739 2805 jr 2,2740 

273B CD4327 cal 2743 

273E 18F7 jr 2737 

2740 Ei pop hl 

2741 23 inc hl 

2742 C9 ret 

2743 FA2727 jp m,2727 

2746 E5 push hl 

2747 0600 ld b,00 

2749 04 inc b 

274A TE ld a,(hl) 

274B 23 inc hl 

274C 07 ılca 

274D 30FA jr nc,2749 

274F CD8D27 cal 278D 

2752 Ei pp hl 

2753 7E ld a,(hl) 

2754 23 in hl 

2755 E67F and 7F 

2757 CD8027 cal 2780 CAS Meldung (1 Zeichen) ausg. 
275A 10F7 dinz 2753 

275C 3E20 ld a,20 

275E 1820 jr 2780 CAS Meldung (1 Zeichen) ausg. 
2760 3A00B8 ld a,(B800) (Cass. Message Flag) 
2763 B7 or a 

2764 37 scf 

2765 CO ret nz 

2766 CD1F27 cal 271F CAS Meldung (# in b) ausgeben 
2769 CD421A cal 1442 KMREAD CHAR 
276C 38FB jr c,2769 

276E CD7912 cal 1279 TXTCURON 
2771 CD561B cal 1B56 KM WAIT KEY 
2774 CD8112 cal 1281 TXT CUR OFF 
2777 FE1B cp 1B 

2779 C8 ret z 

277A 37 scf 

277B CD8327 cal 2783 
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CASSETTE MANAGER 


277E 3EOA ld a,0A 
Kerr CAS Meldung (1 Zeichen) ausg. 
2780 C30014 ip 1400 TXT OUTPUT 
2783 F5 push af 

2784 E5 push hl 

2785 3E01 Id a,01 

2787 CD5E11 cal 115E TXT SET COLUMN 
278A E1 pp hl 

278B Fi pop af 

278C C9 ret 

278D D5 push de 

278E CD5612 cal 1256 TXT GET WINDOW 
2791 5C Id e,h 

2792 CD8011 cal 1180 TXT GET CURSOR 
2795 7C Id a,h 

279% 3D dc a 

2797 83 add ae 

2798 80 add ab 

2799 3D dc a 

279A BA cp d 

279B Di pop de 

279C D8 ret c 

279D 3EFF Id a,FF 

279F 320188 Id (B801),a 

27A2 18D7 jr 277B 

27A4 O6FF dd  bFF 

27A6 04 inc  b 

27A7 D6OA sub 0A 

27A9 3O0FB jr nc,27A6 

27AB C63A add a,3A 

27AD F5 push af 

27AE 78 Id a,b 

27AF B7 or a 

27B0 C4A427 cal nz,27A4 

2783 Fi pop af 

27B4 18CA jr 2780 CAS Meldung (1 Zeichen) ausg. 
27B6 FE61 cp 61 

27B8 D8 ret c 

27B9 FE7B cp 7B 

27BB DO ret nc 

27BC C6EO add a,E0 

27BE C9 ret 

27BF 3A02B8 Id a,(B802) (Input Buffer Status) 
27C2 FEOS cp 05 

27C4 C9 ret 
terre rar Kassetten-Meldungen 
2705 50 72 65 73 F3 00 50 4C Press.PL 

27CD 41 D9 74 68 65 EE 61 6E AYthenan 

27D5 F9 6B 65 79 BA 00 65 72 ykey:.er 

27DD 72 6F F2 00 80 81 00 80 TOr..... 


a7Es 52 45 C3 61 GE E4 8 
27ED 52 65 61 E4 82 00 5 
27F5 69 74 E5 82 00 52 6 
27FD 69 6E E4 74 61 70 E 
2805 46 6F 75 6E 64 20 A 
280D 4C 6F 61 64 69 GE E 
2815 53 61 76 69 6E E7 00 
281D 4F EB 00 62 6C 6F 
2825 00 55 6E GE 61 6D 
282D 66 69 6C 65 20 20 
2835 00 


CASSETTE MANAGER 


00 RECand.. 
72 Read..Wr 
77 ite..rew 
00 indtape. 
00 Found 

00 Loading. 
00 Saving.. 
EB Ok.block 
E4 .Unnamed 
AO 


file 


re OCASREAD 


2873 
af 
h1,28B8 
2858 


Motor Ein & Keyb. öffnen 


Kr CAS WRITE 


2873 
af 
2964 
hl,28F7 
c,289D 
c,2979 
2860 


Motor Ein & Keyb. Öffnen 


er GASCHECK 


2873 Motor Ein & Keyb. öffnen 


bc,F782 Port A=Out 
(oe 
bc,F610 


(e),c 


Motor ein 


a,d 
2A51 
af 


CAS RESTORE MOTOR 


KEKKEKKEE EEE EEE ar Motor Ein& Keyb. Öffnen 


2836 CD7328 call 
2839 F5 push 
283A 218828 Id 
283D 1819 jr 
283F CD7328 call 
2842 F5 push 
2843 CD6429 call 
2846 21F728 Id 
2849 DC9D28 call 
2840 DC7929 call 
284F 180F jr 
2851 CD7328 call 
2854 F5 push 
2855 210728 Id 
2858 E5 push 
2859 CD1929 call 
2850 E1 pop 
285D DC9D28 call 
2860 D1 pop 
2861 F5 push 
2862 0182F7 Id 
2865 ED49 out 
2867 0110F6 Id 
286A ED49 out 
2860 FB ei 
286D 7A Id 
286E CD512A call 
2871 Fi pop 
2872 C9 ret 
2873 32CDB8 Id 
2876 1B dec 
2877 1C inc 
2878 ES push 
2879 D5 push 
287A CD681E call 


(B8CD),a 
de 

e 

hl 

de 

1E68 SOUND RESET 
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287D 
287E 
2880 
2883 
2884 
2887 
2889 
288C 
288E 
2890 
2892 
2895 
2897 
289A 
289C 


289D 
289E 
289F 
28A1 
28A2 
28A3 
28A5 
28A8 
2849 
28AA 
28AB 
2BAC 
28AE 
28B1 
28B5 
28B7 


28B8 
28BB 
28BC 
28BF 
2801 
2802 
2803 
2805 
2807 
28CA 
28CB 
28CC 
280F 
28D0 
28D2 
28D3 
28D5 
28D6 
28D7 
28D9 
28DA 
28DC 


DI 
DDE1 
CD4B2A 
F3 
010EF4 
ED49 
01DOF6 
ED49 
0E10 
ED49 
0192F7 
ED49 
0158F6 
ED49 
cg 


7A 

B7 
280D 

E5 

D5 

1E00 
CDAE28 
DI 

Ei 

DO 

15 

20F3 
OIFFFF 
ED43D3B8 
1601 

E9 


CDB029 
DO 
DD7700 
DD23 
15 

1D 

20F3 
1812 
CDB029 
DO 

47 
CDDCBA 


pop 
pop 
call 
di 
Id 
out 
Id 
out 


out 
Id 
out 
Id 
out 
ret 


Id 

or 

jr 
push 
push 


call 
pop 
pop 
ret 
dec 
jr 

Id 
Id 
Id 
IP 
call 
ret 
Id 
inc 
dec 
dec 
jr 


call 
ret 
Id 
call 
xor 
Id 
ret 
inc 
dec 
dec 
jr 


jr 
call 


CASSETTE MANAGER 


de 
ix 
2A4B CAS START MOTOR 


bc,F40E Sound /O Port select 
(o),c 

bc,F6D0 Strobe Ein 

(O),C 

c‚10 Strobe Aus 

(eo), 

bc,F792 Port A=In 

(O),C 

bc,F658 Keyb Y9 (ESC) öffnen 
(o),c & Sound I/O auf Port A 


a,d 


a 
z,28AE 
hl 

de 

e,00 
28AE 
de 

hl 

nc 

d 
nz,28A1 
be,FFFF 
(B8D3),bc 
d,01 

(hi) 


29B0 

nc 
(ix+00),a 
ix 

d 

e 
nz,28B8 
28D9 
29B0 

nc 

b,a 
BADC (056D) RAM LAM (IX) 
b 


a,03 

nz 

ix 

d 

e 
nz,2807 
d 


2,28E2 
29B0 
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28DF 
28E0 
28E2 
28E5 
28E8 
28E9 
28EA 
28EC 
28EF 
28F0 
28F1 
28F2 
28F3 
28F5 
28F6 


28F7 
28FA 
28FD 
28FE 
2900 
2901 

2902 
2904 
2905 
2907 
2908 
290B 
290C 
290E 
2911 

2914 
2915 
2916 


2919 
291A 
291D 
291E 
291F 
2920 
2921 

2923 
2925 
2928 
2929 
292C 
292D 
2930 
2931 

2932 
2934 
2935 
2936 
2937 


DO 
18F7 
CDA629 
CDB029 
DO 

AM 
2007 
CDB029 
DO 

AB 

37 

c8 
3E02 
B7 

c9 


CDDCBA 
CDF829 
DO 
DD23 
15 

1D 
20F3 
15 
2807 
AF 
CDF829 
DO 
18F6 
CDA629 
CDF829 
DO 

7B 
C3F829 


D5 
CD2329 
DI 


ret 
jr 
call 
call 
ret 
xor 
jr 
call 
ret 
xor 
scf 
ret 
Id 
or 
ret 


call 
call 
ret 
inc 
dec 
dec 
jr 
dec 
jr 
xor 
call 
ret 
jr 
call 
call 
ret 
Id 
IP 
push 
call 
pop 
ret 
or 
ret 
jr 
call 
ret 
Id 
Id 
call 
ret 
ex 
Id 
add 
ex 
dec 
jr 


CASSETTE MANAGER 


nc 
28D9 
29A6 
29B0 
nc 

d 
nz,28F3 
29B0 
nc 

e 


z 
a,02 
a 


BADC (056D) RAM LAM (IX) 
29F8 

nc 

ix 

d 

e 

nz,28F7 

d 

2,290E 


a 
29F8 
nc 
2904 
29A6 
29F8 
nc 
a,e 
29F8 


de 
2923 
de 
c 


a 
z 

2919 

1,55 

29CD CAS Input RD DATA & Test ESC 
nc 

de,0000 

h,d 

29CD CAS Input RD DATA & Test ESC 
nc 

de,hl 

b,00 

hl,bc 

de,hl 

h 

nz,292D 
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2939 
293A 
293B 
293C 
293D 
293E 
293F 
2940 
2941 

2942 
2945 
2946 
2947 
2949 
294B 
294C 
294D 
294F 
2950 
2952 
2953 
2954 
2955 
2956 
2959 
295C 
295D 
2960 
2961 

2962 
2963 


2964 
2967 
296A 
296D 
296E 
296F 
2972 
2973 
2976 


2979 
297C 
297E 
2980 
2982 
2983 
2984 
2985 
2988 
2989 
298A 
298B 
298C 


61 

79 

%2 

4F 

9F 

47 

EB 

09 

EB 
CDCD29 
DO 

7A 
CB3F 
CB3F 
8A 

94 
38EA 
91 
38E7 
7A 

IF 

8A 

67 
22CEB8 
CDB029 
DO 
21CDB8 
AE 

co 

37 

c9 


CD892A 
210108 
CD7C29 
DO 

B7 
CDOB2A 
DO 
3ACDB8 
C3F829 


212100 
06F4 
ED78 
E604 
08 

ES 

37 
CD082A 
Ei 

2B 

7C 

B5 
20EE 


Id 
Id 
sub 
Id 
sbc 
Id 
ex 
add 
ex 
call 
ret 
Id 
srl 
srl 
adc 
sub 
jr 
sub 
jr 
Id 
rra 
adc 
Id 
Id 
call 
ret 
Id 
xor 
ret 
scf 
ret 


call 


call 
ret 
or 
call 
ret 
Id 
ip 
Id 
Id 
in 
and 
ret 
push 
scf 
call 
pop 


Id 
or 
jr 


CASSETTE MANAGER 


h,c 
a,C 

d 

c,a 
a,a 
b,a 
de,hl 
hl,bc 
de,h 
29CD CAS Input RD DATA & Test ESC 
nc 

a,d 

a 

a 

a,d 

h 
c,2939 


c 
c,2939 
a,d 


a,d 

h,a 
(B8CE),h 
29B0 
nc 
h1,B8CD 
(h) 

nz 


2A89 
h1,0801 
297C 
nc 

a 

2A08 

nc 
a,(B8CD) 
29F8 


h1,0021 


b,F4 
a,(c) 
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298E 37 
298F C9 


2990 2AD3B8 
2993 AC 
2994 F2A029 
2997 7C 
2998 EEO8 
299A 67 
299B 7D 
299C EE10 
299E 6F 
299F 37 
29A0O EDEA 
29A2 22D3B8 
2945 CI 


29A6 2AD3B8 
29A9 7D 
29AA 2F 
29AB 5F 
29AC 7C 
29AD 2F 
29AE 57 
29AF C9 


29B0 D5 
2981 1E08 
29B3 2ACEB8 
29B6 CDD429 
29B9 DCDD29 
29BC 300D 
29BE 7C 
29BF 91 
29C0 9F 
2901 CB12 
2903 CD9029 
2906 1D 
2907 20EA 
2909 7A 
29CA 37 
29CB DI 
29CC C9 


sct 
ret 


Id 
xor 
Ip 
Id 
xor 


Id 
xor 


scf 
adc 
Id 
ret 


Id 
Id 
cpl 
Id 
Id 
cpl 
Id 
ret 


push 


CASSETTE MANAGER 


hl,(B8D3) 
h 


p,29A0 
a,h 

08 

h,a 

a,l 

10 

l,a 


hi,hl 
(B8D3),hl 


hl,(B8D3) 
a,l 


e,a 
a,h 


d,a 


de 

e,08 
hl,(B8CE) 
29D4 
c,29DD 
nc,29CB 
a,h 

c 

aa 

d 

2990 


e 
nz,29B3 
a,d 


de 


rer CAS Input RD DATA & Test ESC 


29CD O06F4 
29CF ED78 
29D1 E604 
2903 C8 
29D4 ED5F 
29D6 C603 
29D8 OF 
29D9 OF 
29DA E61F 
29DC 4F 


Id 
in 
and 
ret 
ld 
add 
ca 
ca 
and 
ld 


b,F4 Port A 
a,(c) KeybX 
04 ESC? 
z jab 
a, 

a,03 

1F 


ca 
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29DD 
29DF 
29E0 
29E2 
29E3 

29E5 
29E7 
29E8 
29EA 
29EC 
29ED 
29EF 
29F1 

29F2 


29F3 
29F4 
29F6 
29F7 


29F8 
29F9 
29FB 
29FC 
29FE 
2A01 
2A03 
2A04 
2A06 
2A07 


CD9029 


ld 


add 
ld 
jr 


xor 
and 
jr 
xor 


IIC 
scf 
ret 


xor 
ld 

inc 
ret 


push 


rlc 


CASSETTE MANAGER 


b,F5 Port B 
ac 

a,02 

ca 

c,29F3 

a,(c) Input RD DATA 
l 

80 

nz,29DF 

a 

ra 

l 


ra 


de 

e,08 

d,a 

d 

2A08 
nc,2A06 
e 
nz,29FC 
de 


bc,(B8D0) 

hl,(B8D2) 

a,a 

h,a 

2,2A1A 

al 

aa 

a,b 

l,a 

ac 

b 

c,a 

a,l 

(B8D0),a 

1,0A WRDATA Aus 
2A37 CAS Output WR DATA 
c,2A2B 

c 

nc,2A34 


a 
ca 
a,h 
2990 
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CASSETTE MANAGER 


2A2F 2EOB ld 1,0B WRDATA Ein 

2A31 CD372A call 2A37 CAS Output WR DATA 
2A34 3E01 ld a,01 

2A36 CI ret 

KR EEE er re CAS Output WR DATA 
2A37 ED5F Id a,r 

2A39 CB3F srl a 

2ASB 91 sıb c 

2A3C 3003 jr nc,2A41 

2AZE 3C inc a 

2A3F 2OFD jr nz,2A3E 

2A41 06F7 Id b,F7 Port Control 

2A43 ED69 out (c),l WR DATA 

aaA45 F5 push af 

2A46 AF xor a 

2A47 ED4F Id ra 

2A49 Fi pop af 

2AMA C9 ret 
ne CASSTART MOTOR 
2A4B 3E10 Id a,10 

2A4D 1802 jr 2A51 CAS RESTORE MOTOR 
Br CASSTOP MOTOR 
2A4F S3EEF Id a,EF 
Br CAS RESTORE MOTOR 
2A51 05 push bc 

2A52 O06F6 Id b,F6 Port C 

2A54 ED48 in c,(c) 

2A56 04 inc b 

2457 E610 and 10 

2459 3E08 Id a,08 

2A5B 2801 jr z,2A5E 

2A5D IC inc a 

2A5E ED79 out (c),a Motor Ein/Aus 

2A60 37 scf 

2A61 280C jr z,2A6F 

2A63 79 Id a,C 

2A64 E610 and 10 

2A66 C5 push bc 

2467 010800 Id bc,00C8 

2A6A 37 scf 

2A6B CC722A cal z,2A72 

2A6E C1 pop be 

2A6F 79 Id ac 

2A70 C1 pop be 

2Ar1 C9 ret 

2A7r2 C5 push bc 

2A73 E5 push hl 

2A74 CD89Y2A cal 2A89 

2A77 3E42 Id a,42 

2A79 CDBDIC cl 1CBD KM TESTKEY 
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CASSETTE MANAGER 


2ATC Ei pp hl 
2ATD Ci pop bc 
2ATE 2007 jr nz,2A87 
2A80 OB dec be 
2A81 78 Id a,b 
2A82 Bi or c 
2A83 20ED jr nz,2A72 
2A85 37 scf 

2A86 09 ret 

2A87 AF xor a 
2A88 C9 ret 

2A89 018206 Id bc,0682 
2A8C OB dec bc 
2A8D 78 Id a,b 
2ABE Bi or c 
2A8F 20FB jr nz,2A8C 
2A91 C9 ret 

2A92 C7 rst 0 
2A93 C7 rst 0 
2A94 C7 rst 0 
2A95 C7 rst 0 
2A96 C7 rst 0 
2A97 C7 rst 0 
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2.5.10 SCREEN EDITOR (EDIT) 


Bei dem Editor handelt es sich eigentlich gar nicht um ein Pack in dem 
Sinne, wie wir es bisher verstanden haben. Er wird vom Betriebssystem 
naämlich überhaupt nicht benutzt. 

Vielmehr ist er im Zusammenhang mit den Arithmetik-Packs zu sehen. So 
wie diese, wird auch der Editor ausschließlich von BASIC angesprungen. 


Uns fallen keine Routinen ein, die man einzeln nutzen könnte. Allenfalls 
den Editor als Ganzes. 

Hierzu müssen Sie hl mit der Anfangsadtresse Ihres zu editierenden Tex- 
tes versorgen. Dieser Text darfnur max. 255 Zeichen enthalten, wasauch 
der größten Länge einer BASIC-Zeile entspricht. 
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SCREEN EDITOR 


Ka EDIT 


2A98 C5 push bc 

2A99 D5 push de 

2A9A E5 push hl 

2ASB ES push hl Zeiger auf Eingabepuffer 
2A9C O1FFOO Id bc,00FF 

2A9F 0C inc 6 Zeichen im Puffer zählen 
2AAD TE Id a,(hl) 

2AA1 23 inc hl 

2AR2 B7 or a 

2AA3 20FA jr nz,2A9F 

2AA5 32DDB8 Id (B8DD),a (Insert Flag) 

2AAB CD6F2C cal 2C6F 

2MB Ei pp hl 

2AAC CD672D cal 2D67 

2AAF C5 push bc 

2ABO E5 push hl 

2AB1 CDD92D cal 2DD9 Zeichen von Keyboard 
2AB4 Ei pp hl 

2AB5 C1 pop be 

2AB6 CDC62A cal 2AC6 EDIT Sprung ausführen 
2AB9 30F4 jr nc,2AAF 

2ABB F5 push af 

2ABC CDD22C cal 2CD2 

2ABF Fi pop af 

2AC0 Ei pp hl 

2AC1 DI pop de 

2AC2 C1 pop bc 

2AC3 FEFC cp FC 

2AC5 C9 ret 
te EDIT Sprung ausführen 
2AC6 E5 push hl 

2AC7 21E02A Id hl,2AEO EDIT Sprungtabelle 1 
2ACA 5F Id e,a 

2ACB 78 Id a,b 

2ACC Bi or c Zeichen im Puffer ? 
2ACD 7B Id a,e 

2ACE 200B jr nz,2ADB jaD 

2ADO FEFO cp FO eine der Cursor Tasten ? 
2AD2 3807 jr c,2ADB nein D) 

2AD4 FEF4 cp F4 Cursor Taste & SHFT/CTRL ? 
2AD6 3003 jr nc,2ADB ja 

2AD8 211C2B ld hl,2B1C EDIT Sprungtabelle 2 
2ADB CDF62D cal 2DF6 EDIT Sprungadr holen 
2ADE E3 ex (sp),hl ret-Adr. manipulieren 
2ADF C9 ret Sprung gemäß Tabelle 
ker EDIT Sprungtabelle 1 
2AEO 13 db 13 Anzahl Einträge 

2AE1 012C dw  2C01 Zeichen einfügen 

2AE3 FC db FC 

2AE4 422B dw 2B42 ESC 

2AE6 EF db EF 
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SCREEN EDITOR 


2AE7 402B dw  2B40 kein Effekt 

2AE9 OD db 0D 

2AEA 692B dw 2B69 ENTER 

2AEC FO db FO 

2AED B32B dw 2BB3 CRSR UP (Puffer) 
2AEF Fi db Fi 

2AFO 7E2B dw 2B7E CRSR DWN (Puffer) 
2AF2 F2 db F2 

2AF3 AA2B dw 2BAA CRSR LEFT (Puffer) 
2AF5 F3 db F3 

2AF6 752B dw 2B75 CRSR RGHT (Puffer) 
2AF8 FB db  F8 

2AF9 C72B dw 2BC7 CTRL&CRSR UP 
2AFB F9 db F9 

2AFC 922B dw 2B9 CTRL & CRSRDWN 
2AFE FA db FA 

2AFF BD2B dw 2BBD CTRL&CRSRLEFT 
2B01 FB db FB 

2B02 892B dw 2B89 CTRL & CRSR RGHT 
2B04 F4 db F4 

2B05 A22C dw 2CA2 SHFT&CRSR UP 
2807 F5 dd F5 

2B08 A72C dw 2CA7 SHFT & CRSR DWN 
2B0A F6 db F6 

2B0B 9D2C dw 2C9D SHFT&CRSRLEFT 
2B0D F7 db F7 

2BOE 982C dw 2098 SHFT & CRSR RGHT 
2B10 EO db EO 

2B11 EA2C dw 2CEA COPY 

2B13 7F db 7F 

2814 3D2C dw 2C3D DEL 

2B16 10 db 10 

2B17 4A2C dw 2C4A CLR 

2B19 E1 db Ei 

2B1A F92B dw 2BF9 CTRL & TAB (Flip Insert) 
rer EDIT Sprungtabelle 2 
2B1C 04 db 04 Anzahl Einträge 
2B1D 2B2B dw 2B2B KLINGEL 

2BiF FO db FO 

2B20 2F2B dw 2B2F CRSRUP 

2B22 Fi db Fi 

2B23 332B dw 2B33 CRSRDWN 

2B25 F2 db F2 

2B26 3B2B dw 2B3B CRSRLEFT 

2B28 F3 db F3 

2B29 372B dw 2B37 CRSR RGHT 
Kr KLINGEL 
2B2B 3E07 Id a,07 BEL 

2B2D 180E ir 2B3D 
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Kr ORSRUP 
2B2F 3EOB Id a,0B 
2B31 180A jr 2B3D 


tn ORSRDWN 
2B33 3E0A Id a,0A 


2B35 1806 ir 2B3D 
tt ORSRRGHT 
2837 3E09 Id a,09 

2839 1802 jr 2B3D 
er ORSRALEFT 
2B3B 3E08 Id a,08 

2B3D CD0014 cal 1400 TXT OUTPUT 

2B40 B7 or a 

2B41 C9 ret 
tt ESC 
2B42 F5 push af 

2B43 CD492B cal 2B49 

2B46 Fi pop af 

2B47 37 scf 

2B48 C9 ret 

2B49 CD692B cal 2869 ENTER 

2B4C 21612B Id hl,2B61 *xBREAK#-Meldung 

2B4F CD692B cal 2B69 ENTER 

2B52 CD8011 call 1180 TXT GET CURSOR 

2B55 25 dc h 

2B56 C8 ret z 

2B57 3EOD ld a,0D CR 

2B59 CD0014 call 1400 TXT OUTPUT 

2B5C 3EOA ld a,0A LF 

2B5E C30014 jp 1400 TXT OUTPUT 


tt KBREAKKH-Meldung 
2B61 2A 42 72 65 61 6B 2A 00 »Breakk. 


tt ENTER 


2B69 F5 push af 
2B6A TE Id a,(hl) 
2B6B 23 inc hl 
2B6C B7 or a 
2B6D C4A82D cal nz,2DA8 
2B70 20F8 jr nz,2B6A 
2B72 Fi pop af 
2873 37 sct 

2874 C9 ret 
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Kr CORSA RGHT (Puffer) 
2875 1601 Id d,01 


2877 CD932B cal 2B93 
2B7A CA2B2B ip _z2B2B KLINGEL 
2B7D C9 ret 


te ORSRDWN (Puffer) 
2B7E CDEB2B cal 2BEB 


2B81 79 Id ac 

2B82 90 sıb b 

2B83 BA cp d 

2B84 DA2B2B ip c,2B2B KLINGEL 
2B87 180A jr 2893 
KR re OTRLSCORSRRGHT 
2B89 CDEB2B cal 2BEB 

2B8C 7A Id a,d 

2B8D 93 sıb e 

2B8E CB ret z 

2B8F 57 Id d,a 

2B90 1801 jr 2893 
Kr OTRLACRSRDWN 
2892 51 Id d,c 

2893 78 Id a,b 

2B94 B9 cp c 

2895 C8 ret z 

2B96 D5 push de 

2897 CD502D cal 2D50 

2B9A 7E Id a,(hl) 

2B9B D4AB2D cal nc,2DA8 

2B9E 04 inc b 

2B9F 23 inc hl 

2BAO D4672D cal nc,2D67 

2BA3 DI pop de 

2BA4 15 decc d 

2BA5 20EC jr nz,2B93 

2BA7 F6FF or FF 

2BA9 C9 ret 


rer ORSALEFT (Puffer) 
2BAA 1601 Id d,01 


2BAC CDC82B cal 2BC8 
2BAF CA2B2B ip z,2B2B KLINGEL 
2BB2 C9 ret 


KERN er ORSR UP (Puffer) 


2BB3 CDEB2B cal 2BEB 


2BB6 78 Id a,b 

2BB7 BA cp d 

2BB8 DA2B2B jp c,2B2B KLINGEL 
2BBB 180B jr 2BC8 
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Kerr OTRLSCRSRLEFT 


2BBD CDEB2B cal 2BEB 

2BC0 7B Id ae 

2BC1 D601 sub 01 

2BC3 C8 ret z 

2BC4 57 Id d,a 

2BC5 1801 jr 2BC8 
Kr OTRLACRSRUP 
2BC7 51 Id d,c 

2BC8 78 Id a,b 

2BC9 B7 or a 

2BCA 08 ret z 

2BCB CD4A2D cal 2D4A 

2BCE 3007 jr nc,2BD7 

2BDO 05 dee b 

2BD1 2B dc hl 

2BD2 15 decce d 

2BD3 20F3 jr nz,2BC8 

2BD5 1811 jr 2BE8 

2BD7 78 Id a,b 

2BD8 B7 or a 

2BD9 280A jr 2,2BE5 

2BDB 05 dee b 

2BDC 2B dc hl 

2BDD D5 push de 

2BDE CD292D cal 2D29 

2BE1 DI pop de 

2BE2 15 dee d 

2BE3 20F2 jr nz,2BD7 

2BE5 CD672D cal 2067 

2BE8 F6FF or FF 

2BEA C9 ret 

2BEB E5 push hl 

2BEC CD5612 cal 1256 TXT GET WINDOW 
2BEF 7A Id a,d 

2BFO 94 sıb h 

2BFi 3C inc a 

aBrF2 57 Id d,a 

2BF3 CD8011 cal 1180 TXT GET CURSOR 
2BF6 5C Id e,h 

2BF7 Ei pp hl 

2BF8 C9 ret 
er OTRLA TAB (Flip Insert) 
2BF9 3ADDB8 Id a,(B8DD) (Insert Flag) 
2BFC 2F cpl 

2BFD 32DDB8 Id (B8DD),a (Insert Flag) 
2C00 C9 ret 
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Kr Zeicheneinfügen 


2001 B7 
2C02 C8 
2003 5F 
2C04 3ADDB8 
2007 B7 
2C08 280D 
2C0A 78 
2C0B B9 
2C0C 2809 
2C0E 73 
2COF 7B 
2C10 CDA82D 
2013 23 
2C14 04 
2015 B7 
2C16 C9 


2017 79 
2C18 FEFF 
2C1A CA2B2B 
2C1D AF 
2CIE 32DCB8 
2021 7B 
2022 CDA82D 
2025 0C 
2C26 ES 
2027 TE 
2028 73 
2029 5F 
2C2A 23 
2C2B B7 
2C2C 20F9 
2Cc2E 77 
2C2F Ei 
2C30 04 
2031 23 
2032 CD672D 
2035 3ADCBE 
2038 B7 
2039 (04292D 
2C3C C9 


or 
ret 
Id 
Id 
or 
jr 
Id 
cp 
ir 
Id 
Id 
call 
inc 
inc 
or 
ret 


Id 
cp 
IP 
xor 
Id 
Id 
call 
inc 
push 
Id 
Id 
Id 
inc 
or 
jr 
Id 
pop 
inc 
inc 
call 
Id 
or 
call 
ret 


a 
z 

e,a 
a,(B8DD) (Insert Flag) 
a 

2,2017 

a,b 


c 
2,2017 
(hl),e 
a,e 
2DAB 
hl 

b 

a 


a,C 
FF 
2,2828 KLINGEL 


a 
(B8DC),a 
ae 
2DA8 

c 

hl 

a,(hl) 
(hl),e 

6,a 

hl 

a 
nz,2027 
(hl),a 

hl 

b 

hl 

2D67 
a,(B8DC) 
a 


nz,2D29 


ne DEL 


203D 78 
2C3E B7 
2C3F CA2B2B 
2042 CD4A2D 
2045 D22B2B 
2048 05 
2C49 2B 


Id 
or 
ip 
call 
ip 
dec 
dec 


a,b 

a 

z,2B2B KLINGEL 
2D4A 
nc,2B2B 
b 

hl 


KLINGEL 
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KERRKE ra a e OLR 


2C4A 
2C4B 
2C4C 
2CAF 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2058 
2059 
2C5B 
2C5E 
2C5F 
2062 
2063 
2065 
2066 
2067 
2C6A 
2C6B 
2C6E 


2C6F 
2072 
2075 


2076 
2C7A 
2C7B 
2C7C 
2C7D 
2C7E 
2ac7F 
2080 
2081 


2082 
2083 
2086 
2087 
2C88 
2089 
2C8A 
2C8B 
2C8C 
2C8F 
2091 
2094 
2097 


78 
B9 
CA2B2B 
E5 
23 
TE 
2B 
77 


210000 
22DEB8 
c9 


ED5SBDEB8 
7C 
AA 
c0 
7D 
AB 
co 
37 
cg 


4F 
2ADEB8 
7C 

B5 

08 

7D 

81 

6F 
CDCE11 
3803 
210000 
22DEB8 
cg 


Id 
cp 
IP 
push 
inc 
Id 
dec 
Id 
inc 
or 
jr 
dec 
Id 
Id 
ex 
call 
ex 
Id 
pop 
dec 
Id 
or 
call 
ret 


Id 
Id 
ret 


Id 
Id 
xor 
ret 
Id 
xor 
ret 
sch 
ret 


Id 
Id 
Id 
or 
ret 


add 
Id 
call 
jr 

Id 
Id 
ret 


a,b 
2,2B2B KLINGEL 


nz,2050 
hl 


(n),20 
(BBDC).a 
(sp) hl 
2067 
(sp),hl 
(n),00 

hl 


c 
a,(B8DC) 
a 
nz,2D2D 


h1,0000 
(B8DE),hI 


de,(B8DE) 
a,h 

d 

nz 

al 

e 

nz 


c,a 
hl,(B8DE) 

a,h 

| 

z 

a,l 

a,C 

l,a 

11CE TXT VALIDATE 
c,2094 

h1,0000 

(B8DE),hl 
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re SHFTSCRSRRGHT 
2098 110001 Id de,0100 
2C9B 180D jr 2CAA 


nn SHFTACRSRLEFT 
2C9D 1100FF Id de,FF0O 


2CA0 1808 jr 2CAA 
tn SHFTSCRSR UP 
2CA2 11FF00 Id de,00FF 
2CA5 1803 jr 2CAA 


rt SHFTACRSRDWN 


2CA7 110100 Id de,0001 


2CAA C5 push bc 

2CAB E5 push hl 

2CAC 2ADEB8 Id hl,(B8DE) 

2CAF 7C Id a,h 

2CBO B5 or | 

2CB1 CC8011 cal 2,1180 TXT GET CURSOR 
2CB4 7C Id a,h 

2CB5 82 add ad 

2CB6 67 Id h,a 

2CB7 7D Id a,l 

2CB8 83 add ae 

2CB9 6F Id 1,a 

2CBA CDCE11 cal 11CE TXT VALIDATE 
2CBD 300B jr nc,2CCA 

2CBF E5 push hl 

2CC0 CDD22C cal 2CD2 

2CC3 Ei pp hl 

2CC4 22DEB8 Id (B8DE),hl 

2CC7 CDCD2C cal 2CCD 

2CCA E1 pp hl 

2CCB C1 pop bc 

2CCC C9 ret 

2CCD 116812 Id de,1268 TXT PLACE/REMOVE CURSOR 
2CDO 1803 jr 2CD5 

2CD2 116812 Id de,1268 TXT PLACE/REMOVE CURSOR 
2CD5 2ADEB8 Id hl,(B8DE) 

2CD8 7C Id a,h 

2CD9 B5 or | 

2CDA C8 ret z 

2CDB E5 push hl 

2CDC CD8011 cal 1180 TXT GET CURSOR 
2CDF E3 ex (sp),hl 

2CEO CD7411 cal 1174 TXT SET CURSOR 
2CE3 CD1600 cal 0016 

2CE6 Ei pp hl 

2CE7 C37411 ip 1174 TXT SET CURSOR 
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Kr COPY 


2CEA 
2CEB 
2CEC 
2CEF 
2CFÜ 
2CF3 
2CF4 
2CF5 
2CF7 
2CF8 
2CF9 
2CFB 
2CFE 
2D01 

2D03 
2D06 
2D09 
2DOC 
2DOD 
2DOE 
2D11 

2D14 
2D15 
2D18 
2D1A 
2D1D 
2D20 
2D21 

2D22 
2D23 
2D26 


2D29 
2D2B 
2D2D 
2D2F 
2D30 
2D31 
2D32 
2D35 
2D36 
2039 
2D3A 
2D3B 
2D3D 
2D3E 
2D3F 
2D40 
2D43 
2D46 
2D47 
2D48 
2D49 


05 


Bi 
2026 
CD8011 
22DEB8 
1806 
CD7411 
CD6812 
CDAB13 
F5 

EB 
CD7411 
2ADEB8 
24 
CDCE11 
3003 
22DEB8 
CDCD2C 
Fi 

EI 

C1 
DA012C 
032B2B 


1601 
1802 
16FF 
05 

E5 

D5 
CDD22C 
DI 
2ADEBB 
TC 

B5 
2809 
7C 

82 

67 
CD8C2C 
CDCD2C 
Et 

C1 

B7 

09 


push 
push 
call 
ex 
Id 

Id 
or 

jr 

Id 
or 

jr 
call 
Id 

ir 
call 
call 
call 
push 
ex 
call 
Id 
inc 
call 
jr 

Id 
call 
pop 
pop 
pop 
pp 
Ip 

Id 

jr 

Id 
push 
push 
push 
call 
pop 
Id 

Id 
or 

jr 


add 
Id 
call 
call 
pop 
pop 
or 
ret 


bc 

h 

1180 TXT GET CURSOR 
de,hl 

hl, (B8DE) 

a,h 

| 

nz,2D03 

a,b 

c 

nz,2D21 

1180 TXT GET CURSOR 
(B8DE),hl 

2D09 

1174 TXT SET CURSOR 
1268 TXT PLACE/REMOVE CURSOR 
13AB TXTRDCHAR 

af 

de,hl 

1174 TXT SET CURSOR 
hl,(B8DE) 

h 


11CE TXT VALIDATE 
nc,2D1D 

(B8DE),hI 

2CCD 

af 

h 

bc 

c,2C01 Zeichen einfügen 
2B2B KLINGEL 


d,01 
2D2F 
d,FF 
bc 

h 

de 
2CD2 
de 
hi,(B8DE) 
a,h 

| 
2,2D46 
a,h 
a,d 
h,a 
2C8C 
2CCD 
h 

bc 

a 
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2D4A 
2D4B 
2D4E 
2D50 
2D51 

2D54 
2D55 
2D56 
2D59 
2D5A 
2D5B 
2D5C 
2D5F 
2D60 
2D63 
2D64 
2D65 
2D66 


2D67 
2D68 
2D69 
2D6A 
2D6D 
2D6E 
2D6F 
2D70 
2D71 

2D72 
2D75 
2D77 
2D7A 
2D7B 
2D7C 
2D7D 
2D7E 
2D81 

2D82 
2D83 
2D84 


2D85 
2D86 
2D87 
2D88 
2D89 
2D8A 
2D8D 
2D8E 
2D8F 
2D90 
2D91 
2D94 
2D96 
2D97 


D5 
1108FF 
1804 
D5 
110901 
05 

E5 
CD8011 
7A 

84 

67 
CDCE11 
7B 
DC0014 
E 

0) 

DI 

cg 


05 

ES 

EB 
CD8011 
4F 

EB 

TE 

23 

B7 
04852D 
20F8 
CD8011 
91 

EB 

85 

6F 
CD7411 
Et 

c1 

B7 

c9 


F5 

05 

D5 

E5 

47 
CD8011 
9 

83 

5F 

48 
CDCE11 
3805 
78 

87 


push 
Id 

jr 
push 
Id 
push 
push 
call 
Id 
add 
Id 
call 


call 
pop 
pop 
pop 
ret 


push 
push 
ex 
call 
Id 
ex 
Id 
inc 
or 
call 
jr 
call 
sub 
ex 
add 
Id 
call 
pop 
pop 
or 
ret 


push 
push 
push 
push 
Id 
call 
sub 
add 
Id 

Id 
call 
jr 

Id 
add 
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de 

de,FF08 

2D54 

de 

de,0109 

bc 

h 

1180 TXT GET CURSOR 
a,d 

a,h 

h,a 

11CE TXT VALIDATE 
a,e 

c,1400 TXT OUTPUT 
h 

bc 

de 


bc 

h 

de,h 

1180 TXT GET CURSOR 
ca 

de,h 

a,(hl) 

h 

a 

nz,2D85 

nz,2D6F 

1180 TXT GET CURSOR 
c 

de,hl 


1174 TXT SET CURSOR 


af 

bc 

de 

h 

b,a 

1180 TXT GET CURSOR 
c 

ae 

8,a 

c,b 

11CE TXT VALIDATE 
c,2D9B 

a,b 

a,a 
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2D98 
2D99 
2D9A 
2D9B 
2D9C 
2D9F 
2DAO 
2DA3 
2DA4 
2DA5 
2DA6 
2DA7 


2DA8 
2DA9 
2DAA 
2DAB 
2DAC 
2DAD 
2DB0 
2DB1 

2DB2 
2DB5 
2DB6 
2DB9 
2DBA 
2DBD 
2DBE 
2DBF 
2DC2 
2DC3 
2DC6 
2DC7 
2DCA 
2DCB 
2DCD 
2DCE 
2DD! 

2DD4 

2DD5 
2DD6 
2DD7 

2DD8 


LEIZZZZZZZZZZZ ZZ ZZ. 


2DD9 
2DDC 
2DDD 
2DEO 
2DE3 
2DE6 
2DE9 
2DEC 
2DED 
2DFO 


3C 
83 
5 
EB 
CDCE11 
79 
DCA82D 
Ei 
DI 
c1 
Fi 
c9 


F5 
05 
D5 
E5 
47 
CD8011 
4F 
C5 
CDCE11 


9F 
32DCB8 
CDCD2C 
E 

Di 

C1 

Fi 

c9 


CD8011 
4F 
CDCE11 
CD762C 
DASCIA 
CD7912 
CD8011 
9 
04822C 
CD3C1A 


inc 
add 
Id 
ex 
call 
Id 
call 
pop 
pop 
pop 
pop 
ret 


push 
push 
push 
push 


push 
call 
pop 
call 
push 
call 
Id 
push 
call 
pop 
call 
sub 
call 
pop 
jr 
sbc 
Id 
call 
pop 
pop 
pop 
pop 
ret 


call 
Id 

call 
call 
ip 

call 
call 
sub 
call 
call 


SCREEN EDITOR 


a 

a,e 
e,a 
de,hl 
11CE TXT VALIDATE 
a,C 
c,2DA8 
hl 

de 

bc 

af 


af 

bc 

de 

hl 

b,a 

1180 TXT GET CURSOR 
c,a 

bc 

11CE TXT VALIDATE 
bc 

c,2C076 

af 

c,2CD2 

a,b 

bc 

1334 TXTWR CHAR 
bc 

1180 TXT GET CURSOR 
c 

nz,2082 

af 

nc,2DD4 

a,a 

(B8DC),a 

2CCD 

h 

de 

bc 

af 


KRRKKEEEKRKE EEK Hr are + Zeichen von Keyboard 
1180 TXT GET CURSOR 


c,a 

11CE TXT VALIDATE 
2C76 

c,1A3C KM WAIT CHAR 
1279 TXTCURON 

1180 TXT GET CURSOR 
6 

nz,2082 

1A3C KM WAIT CHAR 
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2DF3 038112 


2DF6 
2DF7 
2DF8 
2DF9 
2DFA 
2DFB 
2DFC 
2DFD 
2DFE 
2DFF 
2E01 
2E02 
2E04 
2E05 
2E06 
2E07 
2E08 
2E09 
2E0A 
2E0B 
2E0C 


2E0D 
2E0E 
2EOF 
2E10 
2E11 
2E12 
2E13 
2E14 
2E15 
2E16 


F5 
05 
46 
23 
E5 
23 
23 
BE 
23 
2804 
05 
20F7 
E3 
Fi 
TE 
23 
66 
6F 
c1 
Fi 
c9 


C7 
07 
C7 
c7 
c7 
C7 
C7 
c7 
C7 
c7 
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ip 1281 TXTCUROFF 
tr EDIT Sprungadr holen 

push af 

push bc 

Id b,(hi) 

inc hl 

push hl 

inc hl 

inc hl 

oo MN) 

inc hl 

jr 2,2E05 

dc b 

jr nz,2DFB 

ex (sp),hl 

pop af 

Id a,(hl) 

inc hl 

Id h,(hi) 

Id 1,a 

pop be 

pop af 

ret 

rst 0 

rst 0 

rst 0 

rst 0 

rst 0 

rst 0 

rst 0 

rst 0 

rst 0 

rst 0 

rst 0 


2E17 


C7 
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2.6 Der Character — Generator 


Nicht, daß wir Sie mit den folgenden Seiten langweilen wollen oder wir 
der Meinung sind, das Buch sei noch nicht umfangreich genug. 

Was wir glauben, ist einfach, daß der Zeichensatz ein wichtiges Betriebs- 
mittel ist, welchem sogar im BASIC — Befehlsvorrat eigene Kommandos 
zugestanden werden. 

Damit Sie bei deren Anwendung nicht jedesmal das Rad neu erfinden 
müssen, z.B. bei der Erzeugung von Umlauten, brauchen Sie sich nur das 
'a'’heraussuchen und die beiden Pünktchen darübersetzen. Die so gefun- 
denen Werte setzen Sie in Ihren Befehl ein. 

Warum es wichtig ist, daß Sie sich möglichst an den bereits vorhandenen 
Zeichen orientieren, ist schnell erklärt: 

Es fällt Ihnen sicher auf, daß alle vertikalen Linienelemente aus wenig- 
stens zwei benachbarten Punkten zusammengesetzt sind. Der Grund da- 
für ist die Tatsache, daß Sie ein einziges Pixel allein auf Ihrem Bildschirm 
schwerlich wiederfinden würden, auf dem Farbbildschirm noch schlech- 
teralsaufdem Grünmonitor, weil dort noch die Schlitzmaske im Wege ist, 
auf einen deren Stege dieser eine Punkt ja zufällig treffen könnte. 
Ziehen Sie also hieraus die Erfahrung, bei senkrechten Linien immer ein 
Pärchen vorzusehen. 


So, nun steht Ihren eigenen Versuchen nichts mehr im Wege. 
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3800 
3801 
3802 
3803 
3804 
3805 
3806 
3807 


3810 
3811 
3812 
3813 
3814 
3815 
3816 
3817 


3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 


3830 
3831 
3832 
3833 
3834 
3835 
3836 
3837 


3840 
3841 
3842 
3843 
3844 
3845 
3846 
3847 


3850 
3851 
3852 
3853 
3854 
3855 
3856 
3857 


FF 
Cc3 
C3 
c3 
C3 
C3 
c3 
FF 


18 
18 
18 
18 
18 
18 
18 
FF 


0C 
18 
30 
TE 
0C 
18 
30 
00 


00 
01 
03 
06 
cc 
78 
30 
00 


00 
00 
30 
60 
FF 
60 
30 
00 


18 


18 
18 
DB 
7E 
3C 
18 


JULI 
m_\ | mm 
m_\ | | um 
m) | mm 
m_\ |) Mm 
wm) \ mM 380D 
Llssse_L_ 
nunnanun 
EI 
su2__un® 
BEB__BuB 





CHARACTERS 


3808 
3809 
380A 
380B 
380C 


380E 
380F 


3818 
3819 
381A 
= 381B 


BEu__ Bm 
Su0 _|_Be® 381C 
IE) ) 381D 


381E 


Ssu8__u88 
sunnana® 381F 


3828 


III NE) ) 
Beuu__Bu® 3829 
su __Ban® 382A 
) 382B 
II \) 


382C 
382D 


II \) 
58__ 8888 382E 
EEEFIITE 382F 


Bansasan 3838 
EBSBEEE_ 3839 
BEsnen__ 383A 
SOON) 383B 
Use 88 383C 
____es8 383D 
su__u0s8 383E 
Euaszera 383F 


KrRaBZEn® 3848 


3849 


ESELTEPTT 

BE__BBa® 384A 
B__BSBOS 384B 
JULI 384C 
5__BBEB8® 384D 
N I 384E 
BaRDeEEnR 384F 


BER__B08 3858 
BER__B08 3859 
BSS__un8 385A 
SOME 385B 
“u nu 08 385C 
E08 385D 
S5____u® 385E 
BE5__u08 385F 
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FF 
co 
co 
co 
co 
co 
co 
co 


03 
03 
03 
03 
03 
03 
03 
FF 


FF 
c3 
E7 
DB 
DB 
E7 
C3 
FF 


3C 
66 
e3 
c3 
FF 
24 
E7 
00 


00 
00 
0C 
06 
FF 
06 
0C 
00 


18 
3C 
7E 
DB 
18 
18 
18 
18 


FL LIU) 
-LBEBBBEE 
LLBBBRR® 
-ÜBSBEB® 
-LEBBBE 


LÜBBBBEB 
m) II) 
LLBBBBE® 


TOO 
III II EHEN 
III EDEN 
III NH 
BBBBun__ 
III NEE 
III JE 
sunuanan 


FOL LÜLIU 
LLBBee__ 


um 
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BE_SE_0R 
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RERRBENE 
Euuazzm 
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BEBS__08 
IE 
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3864 
3865 
3866 
3867 


3870 
3871 
3872 
3873 
3874 
3875 
3876 
3877 


3880 
3881 
3882 
3883 
3884 
3885 
3886 
3887 


3890 
3891 
3892 
3893 
3894 
3895 
3896 
3897 


38AO 
38A1 
38A2 
38A3 
38A4 
38A5 
38A6 
38A7 


38B0 
38B1 
38B2 
38B3 
38B4 
38B5 
38B6 
38B7 


CHARACTERS 
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3868 
3869 
386A 
386B 
386C 
386D 
386E 
386F 


3878 
3879 
387A 
387B 
387C 
387D 
387E 
387F 


3888 
3889 
388A 
388B 
388C 
388D 
388E 
388F 


3898 
3899 
389A 
389B 
389C 
389D 
389E 
389F 


38A8 
38A9 
38AA 
38AB 
38AC 
38AD 
38AE 
38AF 


38B8 
38B9 
38BA 
38BB 
38BC 
38BD 
38BE 
38BF 

















38C0 
38C1 
3802 
3803 
3804 
3805 
38C6 
3807 


38DO 
38D1 
38D2 
38D3 
38D4 
38D5 
38D6 
38D7 


38E0 
38E1 
38E2 
38E3 
38E4 
38E5 
38E6 
38E7 


38F0 
38F1 
38F2 
38F3 
38F4 
38F5 
38F6 
38F7 


3900 
3901 
3902 
3903 
3904 
3905 
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3907 


3910 
3911 
3912 
3913 
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3915 
3916 
3917 


FF 
66 
3C 
18 
18 
3C 
66 
FF 


3C 
66 
66 
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18 
00 
18 
00 


FF 
DB 
DB 
DB 
FB 
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c3 
FF 
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C3 
c3 
DF 
DB 
DB 
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FF 


00 
00 
00 
00 
00 
00 
00 
00 


6C 
6C 
6C 
00 
00 
00 
00 
00 


CHARACTERS 
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38C8 
38C9 
38CA 
38CB 
38CC 
38CD 
38CE 
38CF 


38D8 
38D9 
38DA 
38DB 
38DC 
38DD 
38DE 
38DF 


38E8 
38E9 
38EA 
38EB 
38EC 
38ED 
38EE 
38EF 


38F8 
38F9 
38FA 
38FB 
38FC 
38FD 
38FE 
38rr 


3908 
3909 
390A 
390B 
390C 
390D 
390E 
390F 


3918 
3919 
391A 
391B 
391C 
391D 
391E 
39iF 
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4 


"u es 





um_ u. um 
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mm 
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um 
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nn um 


m 


un um mm 


un um 
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Kal 8 B| te) 


iR 


3920 
3921 
3922 
3923 
3924 
3925 
3926 
3927 


3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 


3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 


3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 


3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 


3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 


CHARACTERS 
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3928 
3929 
392A 
392B 
392C 
392D 
392E 
392F 


3938 
3939 
393A 
393B 
393C 
393D 
393E 
393F 


3948 
3949 
394A 
394B 
394C 
394D 
394E 
394F 


3958 
3959 
395A 
395B 
395C 
395D 
395E 
395F 


3968 
3969 
396A 
396B 
396C 
396D 
396E 
396F 


3978 
3979 
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397B 
397C 
397D 
397E 
397F 


ESEL 
ae 
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U) 


um wu 
u. 0 mm 
TER ITED 
OLE 
Ssn__ nen 
Bassnkae 
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Bassasus 
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E25__nn8 
BBsE__u8 





EN) 
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EISEN) 
SSDSADEN 
HERRARER 
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BEBBE__® 
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SELL 
_BEBSEBB 
EBauBanE 





CHARACTERS 
































3980 7C N) 3988 187° 
3981 cCE mm m) 3989 38 0 (N) 
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3983 DE a 398B 18°) 
3984 EEE 9 um | m 398C 18° KB) 
3985 c* mm) um 398D 18 N) 
3986 7C BEINEN |) 398E TE mm 
3987 ee CELITIEER 398F oo IIIOUUO 
3990 sc 3998 sc CM‘) 
3991 Sa | Bw 3999 66 m) mm) 
3992 oe On 399A 06 BERSE__E 
3993 3C a | 399B Ic 0 
3994 60 E__BSBEB 399C 06 II 
3995 66 m |) m _ 399D | BE |_E 
3996 7E nununm 399E 3C BB _eW 
3997 0. IE 399F 00 (OOSLEEIE 
39A0 1 39A8 TE 
39A1 sc nm |_ 39A9 62 _BE@_® 
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39A5 0C BER__88 39AD 66 su. mm 
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39B1 66 ae 39B9 66 nu, mm 
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39B4 66 B_BE_® 39BC 18 

39B5 66 a 39BD 18 
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39B7 ve FREENET 39BF 00 

39C0 3C u 39C8 3C 

39C1 66 un | um 39C9 66 

39C2 66 BB 39CA 66 

39C3 3C Bun | 39CB 3E 

39C4 6 m 39CC 06 

39C5 66 a 39CD 66 

39C6 3C | 39CE 3C 

39C7 o OO 39CF 00 

39D0 00 EBUBERABB 39D8 00 

39D1 00 <SCRIEBEBEN 39D9 00 

3902 ° 18° 39DA 18 

39D3 8 OO 39DB 18 

39D4 o OD 39DC 00 

39D5 18 BES__B88 39DD 18 

39D6 8 0 39DE 18 

39D7 or \ VOUODDO 39DF 30 
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39EO 
39E1 
39E2 
39E3 
39E4 
39E5 
39E6 
39E7 


39FO 
39F1 
39F2 
39F3 
39F4 
39F5 
39F6 
39F7 


3A00 
3A01 
3A02 
3A03 
3A04 
3A05 
3A06 
3A07 


3A10 
3A11 
3A12 
3A13 
3A14 
3A15 
3A16 
3A17 


3A20 
3A21 
3A22 
3A23 
3A24 
3A25 
3A26 
3A27 


3A30 
3A31 
3A32 
3A33 
3A34 
3A35 
3A36 
3A37 


0C 
18 
30 
60 
30 
18 
0C 
00 


60 
30 
18 
0C 
18 
30 
60 
00 


7C 
C6 
DE 
DE 
DE 
co 
7C 
00 


FC 
66 
66 
7C 
66 
66 
FC 
00 


F8 
6C 
66 
66 
66 
6C 
F8 
00 


FE 
62 
68 
78 
68 
60 
FO 
00 


CHARACTERS 
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DEE 


zu, 0m 
au Buum 
au nun 
SE Buun 
LUSSSS58 








263 


39E8 
39E9 
39EA 
39EB 
39EC 
39ED 
39EE 
39EF 


39F8 
39F9 
39FA 
39FB 
39FC 
39FD 
39FE 
S9FF 


3A08 
3A09 
3AOA 
3AOB 
3AOC 
3AOD 
3AOE 
3AOF 


3A18 
3A19 
3A1A 
3A1B 
3AIC 
3A1D 
3A1E 
3AiF 


3A28 
3A29 
3A2A 
3A2B 
3A2C 
3A2D 
3A2E 
3A2F 


3A38 
3A39 
3A3A 
3A3B 
3ASC 
3A3D 
3ASE 
3ASF 


00 
00 
7E 
00 
00 
TE 
00 
00 


3C 
66 
66 
0C 
18 
00 
18 
00 


18 
3C 
66 
66 
TE 
66 
66 
00 


3C 
66 
co 
co 
co 
66 
3C 
00 


FE 
62 
68 
78 
68 
62 
FE 
00 


3C 
66 
Co 
co 
CE 
66 
SE 
00 











3A40 
3A41 
3A42 
3A43 
3A44 
3A45 
3A46 
3A47 


3AS50 
3A51 
3A52 
3A53 
3A54 
3A55 
3A56 
3A57 


3A60 
3A61 
3A62 
3A63 
3A64 
3A65 
3A66 
3A67 


3A70 
3A71 
3A72 
3A73 
3A74 
3A75 
3A76 
3A77 


3A80 
3A81 
3A82 
3A83 
3A84 
3A85 
3A86 
3A87 


3A9O 
3A91 
3A92 
3A93 
3A94 
3A95 
3A96 
3A97 


66 
66 
66 
7E 
66 
66 
66 
00 


1E 
0C 
0C 
0C 
cc 
cc 
78 
00 


FO 
60 
60 
60 
62 
66 
FE 
00 


06 
E6 
F6 
DE 
CE 
C6 
C6 
00 


FC 
66 
66 
7C 
60 
60 
FO 
00 


FC 
66 
66 
7C 
6C 
66 
E6 
00 





CHARACTERS 


5__BS_® 3A48 
a__ss__® 3A49 
S__s5__® 3AAA 
SL _LLL® 3A4B 
2__Ss__® 3AAC 
2 _S8__® 3AAD 
2 _SS__® 3AAE 
gEaHSEHR 3AAF 


SOON) 3458 
SBSE__uB 3A59 
BESS__uB 3A5A 
SusE__us8 3ASB 
[less _e® 3A5C 
les es 3A5D 
E____es8 3ASE 
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una |) 3468 
5__Bess8 3A69 
2__Sasse 3A6A 
2__Benn8 3A6B 
__sss_® 3A6C 
2__SS__® 3A6D 
COOLLLD® 3AGE 
SrananEn 3A6F 


LlBe8_® 3A78 
aus | um) 3A79 
auun wm SATA 
.u Buu® 3A7B 
un) Bun 3ATC 
LESE _W 3A7D 
Llsss__® 3ATE 
FREREERT 3A7F 


LOOLLUWE 388 
B__BS__® 389 
2__S5__® 3ABA 
5_____u® 3A8B 
B__BBRsn8 3ASC 
2__BBSS® 3A8D 
LLLUBSSB 3ABE 
Eanzenue 3ABF 


sunnne | 3A98 
.__58__® 3499 
B__SS__® 3A9A 
sl e= 3A9B 
=__S__s® 3AIC 
S__Less__® 3A9D 
san mu 3ASE 
Sgsszaen 3A9F 
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7E 
18 
18 
18 
18 
18 
7E 
00 


E6 
66 
6C 
78 
6C 
66 
E6 
00 


C6 
EE 
FE 
FE 
D6 
C6 
C6 
00 


38 
6C 
C6 
C6 
06 
6C 
38 
00 


38 
6C 
C6 
C6 
DA 
CC 
76 
00 


3C 
66 
60 
3C 
06 
66 
3C 
00 








3AAO 
3AA1 
3AA2 
3AA3 
3AA4 
3AA5 
3AA6 
3AA7 


3ABO 
3AB1 
3AB2 
3AB3 
3AB4 
3AB5 
3AB6 
3AB7 


3ACO 
3AC1 
3AC2 
3AC3 
3AC4 
3AC5 
3AC6 
3ACc7 


3ADO 
3AD1 
3AD2 
3AD3 
3AD4 
3ADS 
3AD6 
3AD7 


3AEO 
3AE1 
3AE2 
3AE3 
3AE4 
3AES 
3AE6 
3AE7 


3AFO 
3AF1 
3AF2 
3AF3 
3AF4 
3AFS5 
3AF6 
3AF7 


7E 
5A 
18 
18 
18 
18 
3C 
00 


66 
66 
66 
66 
66 
3C 
18 
00 


C6 
6C 
38 
38 
6C 
C6 
c6 
00 


FE 
C6 
8C 
18 
32 
66 
FE 
00 


co 
60 
30 
18 
0C 
06 
02 
00 


18 
3C 
TE 
18 
18 
18 
18 
00 





CHARACTERS 


se LLL0® SAAB 
a8 88 3AAg 
BES__Su8 3AAA 
BSS__Sun 3AAB 
BES__Bu8 3AAC 
SSE__uu8 3AAD 
Be _S® 


3AAE 


BEEIIELTET) 3AAF 


| 3AB8 
a Bn__® 3ABI 
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3ABB 
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Se) 3ABD 
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LIE 3AD8 
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a 3ADA 
Bus__Bu8 3ADB 
Bu__Bu_® 3ADC 
ER) _ 3ADD 
unnnmE _ 3ADE 
BURHUESE 3ADF 


LLBBBSR® 3AE8 
E__BB888 3AEI 
Bu__BER® 3AEA 
BBa__BB® 
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III ER) _ 3AEC 
BEssa__® 3AED 
BSBSEE_B 3AEE 
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I \_ 3AF9 
a _ 3AFA 
Bus__ 888 3AFB 
BBa__Ba® SAFC 
Bua__Ba® SAFD 
SuE__Be® 3AFE 
PILELITI SAFF 
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66 
66 
66 
66 
66 
66 
3C 
00 


C6 
C6 
C6 
D6 
FE 
EE 
C6 
00 


66 
66 
66 
3C 
18 
18 
3C 
00 


3C 
30 
30 
30 
30 
30 
3C 
00 


3C 
0C 
0C 
0C 
0C 
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3C 
00 


00 
00 
00 
00 
00 
00 
00 
FF 
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3B00 
3B01 
3B02 
3B03 
3B04 
3B05 
3B06 
3B07 


3B10 
3B11 
3B12 
3B13 
3B14 
3B15 
3816 
3B17 


3B20 
3B21 
3B22 
3B23 
3B24 
3B25 
3B26 
3B27 


3B30 
3B31 
3832 
3833 
3B34 
3B35 
3B36 
3B37 


3B40 
3841 
3B42 
3B43 
3B44 
3B45 
3B46 
3B47 


3B50 
3B51 
3B52 
3853 
3B54 
3B55 
3B56 
3B57 


30 
18 
0C 
00 
00 
00 
00 
00 


EO 
60 
7C 
66 
66 
66 
DC 
00 


1C 
0C 
7C 
cc 
cc 
cc 
76 

00 


1C 
36 
30 
78 
30 
30 
78 
00 


EO 
60 
6C 
76 
66 
66 
E6 
00 


06 
00 
0E 
06 
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66 
66 
3C 
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3B08 
3B09 
3BOA 
3BOB 
3BOC 
3BOD 
3BOE 
3BOF 


3B18 
3B19 
3B1A 
3B1B 
3BiC 
3B1D 
3B1E 
3BiF 


3B28 
3B29 
3B2A 
3B2B 
3B2C 
3B2D 
3B2E 
3B2F 


3B38 
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3B3A 
3B3B 
3B3C 
3B3D 
3B3E 
3B3F 


3B48 
3B49 
3B4A 
3B4B 
3B4C 
3B4D 
3B4E 
3B4AF 
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3B5C 
3B5D 
3B5E 
3B5F 
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cc 
76 
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00 
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3B60 
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3B66 
3B67 


3B70 
3B71 
3B72 
3873 
3874 
3B75 
3B76 
3B77 


3B80 
3881 
3B82 
3883 
3884 
3B85 
3B86 
3B87 


3B90 
3B91 
3892 
3893 
3894 
3895 
3B96 
3897 


3BAO 
3BA1 
3BA2 
3BA3 
3BA4 
3BA5 
3BA6 
3BA7 
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3BB3 
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3BB6 
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3868 
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3B6E 
3B6F 


3878 
3B79 
3B7A 
3B7B 
3B7C 
3B7D 
3B7E 
3B7F 


3B88 
3B89 
3B8A 
3B8B 
3B8C 
3B8D 
3B8E 
3B8r 


3B98 
3899 
3B9A 
3B9B 
3B9C 
3B9D 
3BYE 
3B9YF 


3BA8 
3BA9 
3BAA 
3BAB 
3BAC 
3BAD 
3BAE 
3BAF 


3BB8 
3BB9 
3BBA 
3BBB 
3BBC 
3BBD 
3BBE 
3BBF 




















DEEBLLEN 


3BCO 
3BC1 
3BC2 
3BC3 
3BC4 
3BC5 
3BC6 
3BC7 


3BDO 
3BD1 
3BD2 
3BD3 
3BD4 
3BD5 
3BD6 
3BD7 


3BEO 
3BE1 
3BE2 
3BE3 
3BE4 
3BES5 
3BE6 
3BE7 


3BFO 
3BF1 
3BF2 
3BF3 
3BF4 
3BF5 
3BF6 
3BF7 


3C00 
3C01 
3C02 
3C03 
3C04 
3C05 
3C06 
3C07 


3C10 
3011 
3C12 
3C13 
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3C15 
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3017 


00 
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6C 
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00 


00 
00 
7E 
4C 
18 
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00 
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00 
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00 
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00 
00 
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00 
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00 
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3BCC 
3BCD 
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3BCF 


3BD8 
3BD9 
3BDA 
3BDB 
3BDC 
3BDD 
3BDE 
3BDF 


3BE8 
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3F60 
3F61 
3F62 
3F63 
3F64 
3F65 
3F66 
3F67 


3F70 
3F71 
3F72 
3F73 
3F74 
3F75 
3F76 
3F77 


6C 
FE 
FE 
FE 
7C 
38 
10 
00 


00 
3C 
66 
C3 
C3 
66 
3C 
00 


00 
7E 
66 
66 
66 
66 
7E 
00 


OF 
07 
OD 
78 
cc 
cc 
CC 
78 


0C 
0C 
0C 
0C 
0C 
3C 
7C 
38 


99 
5A 
24 
C3 
C3 
24 
5A 
99 


CHARACTERS 


a __ BB 
JUICE 
BER 
JÜLICH 


BAR _ BER 
FEELLEEII 
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3F28 
3F29 
3F2A 
3F2B 
3F2C 
3F2D 
3SF2E 
3F2F 


3F38 
3F39 
3F3A 
3F3B 
3F3C 
3F3D 
3F3E 
3F3F 


3F48 
3F49 
3F4A 
3F4B 
3F4C 
3F4D 
3F4E 
3FArF 


3F58 
3F59 
3F5A 
3F5B 
3F5C 
3F5D 
3FS5E 
3F5SF 


3F68 
3F69 
3F6A 
3F6B 
3F6C 
3F6D 
3F6E 
3F6F 


3F78 
3F79 
3F7A 
3F7B 
3F7C 
3F7D 
3SF7E 
3SF7F 


10 
38 
7C 
FE 
FE 
10 
38 
00 


00 
3C 
TE 
FF 
FF 
TE 
3G 
00 


00 
7E 
7E 
7E 
7E 
7E 
7E 
00 


3C 
66 
66 
66 
3C 
18 
TE 
18 


18 
1C 
TE 
1B 
18 
78 
F8 
70 


10 
38 
38 
38 
38 
38 
7C 
D6 








3F80 
3F81 
3F82 
3F83 
3F84 
3F85 
3F86 
3F87 


3F90 
3F91 
3F92 
3F93 
3F94 
3F95 
3F96 
3F97 


3FAO 
3FA1 
3FA2 
3FA3 
3FA4 
3FAS 
3FA6 
3FA7 


3FBO 
3FB1 
3FB2 
3FB3 
3FB4 
3FB5 
3FB6 
3FB7 


3FCO 
3FC1 
3FC2 
3FC3 
3FC4 
3FC5 
3FC6 
3FC7 


3FDO 
3FD1 
3FD2 
3FD3 
3FD4 
3FD5 
3FD6 
3FD7 


18 
3C 
7E 
FF 
18 
18 
18 
18 


10 
30 
70 
FF 
FF 
70 
30 
10 


00 
00 
18 
3C 
TE 
FF 
FF 
00 


80 
EO 
F8 
FE 
F8 
EO 
80 
00 


38 
38 
92 
7C 
10 
28 
28 
28 


38 
38 
12 
7C 
90 
28 
24 
22 


CHECLTET) 
Buu__Un® 3FAA 
I Um | 








CHARACTERS 


BBu__ BOB 3F88 
I )_ 3F89 
sw 3F8A 
JLÜILLUTU 3F8B 
BSE__Be® 3F8C 
SBB__BR® 3F8D 
Sus__Bu® 3F8E 
Buu _ Bus 3Far 


OEL IY) 3F98 
(| \) 3F99 
CE |) 3F9A 
SunaanmE 3F9B 
ULLI 3F9C 
8___Bsu® 


3F9D 


su__BB88 3F9E 
G88_8888 3rIF 


3FA8 
3FA9 


3FAB 
3FAC 
3FAD 
3FAE 
3FAF 


3FB8 
3FB9Y 
3FBA 
3FBB 
3FBC 
3FBD 


_ssanna® 3FBE 
EIER) 3FBF 


IE \_)\ 3FC8 
m) | 3FC9 
Lue _ Be_®@ 3FCA 
mm |_ 


3FCB 


SES_un88 3FCC 
SE_E_un8 3FCD 
Eu_5_un8 3FCE 
SIETEILL 


SFOF 


Su 3FD8 
BE | n08 3FD9 
BES_SE_® 3FDA 
s____ Les 3FDB 
Lss_ssss 3FDC 
EE_E_BER 


SFDD 


BE_SS_B® 3FDE 
EI 3FDF 
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18 
18 
18 
18 
FF 
TE 
3C 
18 


08 
0C 
0E 
FF 
FF 
OE 
0C 
08 


00 
00 
FF 
FF 
TE 
3C 
18 
00 


02 
OE 
3E 
FE 
SE 
0E 
02 
00 


38 
38 
10 
FE 
10 
28 
44 
82 


38 
38 
90 
7C 
12 
28 
48 
88 











SFEO 
3FE1 
SFE2 
3FE3 
SFE4 
3FES 
3FE6 
3FE7 


3FFO 
3SFF1 
3FF2 
SFF3 
3FF4 
SFF5 
3FF6 
3SFF7 





CHARACTERS 


GRBENTA® 3FEB 
s____08 3FEI 
SSS__USB 3FEA 
se____us 3FEB 
su____S® 3FEC 
su____S® 3FED 
BES__BS8 3FEE 
geanasne 3FEF 


BER__Bn8 3FFB 
se___ 88 3FF9 
a8 3FFA 
BuS__s0R8 3FFB 
SSE__su8 3FFC 
a ® 3FFD 
s5____u8 3FFE 


SO  SFFF 
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EEE) 
JÜLITIJJTT 

III) 
IE N) 
III EN) ) 
IE) ) 
a N) 
Ssus__Bu® 


BRZBERRR 
Su _Ba_a® 
s__se__® 

JULI) 
EEE) 
SB_S2_B® 
III) 
FEIERT 





3 BASIC 


3.1 Der BASIC-Interpreter des CPC 464 


Der CPC 464 hat einen schnellen und komfortablen BASIC --Interpreter, 
der in 16 KByte ROM untergebracht ist. Er belegt den Adreßbereich von 
&C000 bis &FFFF parallel zum Bildschirm— RAM. Für BASIC-Programm 
und -Variablen steht der Bereich von &0170 bis & AB80 zur Verfügung, 
das sind 43534 Byte. 


Der Interpreter unterstützt fast alle Möglichkeiten, die von der Hardware 
und dem Betriebssystem her gegeben sind. Dazu gehören vor allem die 
Bildschirmausgabe mit bis zu 8 Fenstern, die hochauflösende Grafik, der 
Sound sowie die Eventverarbeitung. Damit ist es erstmals von BASIC aus 
möglich, mehrere 'Jobs’ nebeneinander laufen zu lassen. Desweiteren 
bietet der BASIC --Interpreter eine Integerarithmetik mit 16—-Bit-Zahlen 
(Wertebereich —32768 bis 32767) und eine Fließkommaarithmetik mit 
8-Bit-Zweierexponent und 32-Bit—-Mantisse, die eine Genauigkeit 
von 9 Dezimalstellen bei einem Wertebereich von +1E-39 bis +1E+38 
garantiert. 


Dabei sind Integer— und Fließkommaarithmetik nicht Teil des BASI- 
C-Interpreters, sondern sind im Betriebssystem-ROM enthalten 
(Adresse &2E18 bis &37FF). Sie werden ebenso wie die übrigen Funktio- 
nen des Betriebssystems über die Sprungtabelle im oberen RAM-Be- 
reich (&BBO0 bis &BDF1) aufgerufen, die im Bedarfsfall geändert werden 
kann. 


Auch sonst ermöglicht der BASIC--Interpreter ein komfortables Erstel- 
len, Editieren und Ausführen von Programmen. Dem ersteren dient der 
Befehl AUTO, zum Editieren der EDIT-Befehl, der durch die Fähigkeiten 
des Betriebssystems kaum dem Arbeiten mit einem Bildschirmeditor 
nachsteht, sowie die Befehle RENUM, MERGE und DELETE. Auch bei 
der Ausführung des Programms braucht auf Komfort nicht verzichtet 
werden. Als Beispiel mögen die Fehlerbehandlung mit ON ERROR GO- 
TO, die Typdefinition von Variablen mit DEFtyp, das selektive Löschen 
von Feldern mit ERASE, die Ein— und Ausgabe von Zahlen als Dezimal-, 
Binär— oder Hexzahl, selbstdefinierte Funktionen mit mehreren Argu- 
menten und allen Datentypen und Programmstrukturen wie IF...THE- 
N...ELSE, FOR...NEXT und WHILE...WEND dienen. Die Neubelegung von 
Tasten und Funktionstasten ist ebenso einfach möglich wie die Defin- 
ition eigener Sonderzeichen auf dem Bildschirm. Ein TRACE-Befehl 
fehlt ebensowenig wie ein umfassendes PRINT USING. 


Nach dieser kurzen Übersicht soll auf die Eingabe und Ablage von BASIC- 
— Zeilen sowie die Ausführung durch den BASIC --Interpreter etwas nä- 


280 


her eingegangen werden. Mit diesen Kenntnissen können Sie nicht nur 
'das Letzte’ aus dem BASIC--Interpreter herausholen, sie sind auch die 
Grundlage zum Schreiben eigener BASIC-Erweiterungen, von denen 
später noch einige Beispiele folgen. 


Die Eingabe von BASIC-Zeilen 


Wenn Sie eine BASIC-Zeile eingeben, so wird sie zuerst in einen 256 By- 
te großen Puffer übernommen, der von Adresse & ACA4 bis &ADAS liegt. 
Dort steht die Eingabe im Klartext. Beginnt die Zeile mit einer Zeilennum- 
mer, so wird diese in eine 16-Bit-Binärzahl ungewandelt und in einen 
zweiten Puffer für die umgewandelte Zeile abgelegt. Dieser Puffer ist 300 
Zeichen groß und liegt vor dem BASIC-Programm von Adresse &40 bis 
&16F. Dann wird die Eingabezeile auf BASIC-Schlüsselworte durch- 
sucht. Diese Schlüsselworte werden durch ein Byte ersetzt, das soge- 
nannte Token. So wird z.B aus 'AFTER’ das Token &80. Die Tokens sämt- 
licher Befehlsworte und der BASIC-Operatoren wie '=' und 'AND'’ ha- 
ben Werte größer als 127, das 7. Bit ist also gesetzt. BASIC-Funktionen 
wie EXP oder ROUND haben Tokens zwischen 0 und &7F. Um sie von nor- 
malen ASCII-Zeichen zu unterscheiden, werden sie durch ein vorange- 
stelltes &FF gekennzeichnet. Der Doppelpunkt zum Trennen zweier Sta- 
tements wird durch den Kode &01 dargestellt, das Zeilenende wird durch 
&00 abgeschlossen. Konnte eine Buchstabenfolge nicht als Befehl oder 
Funktion identifiziert werden, so wird sie als Variablenname behandelt. 
Eine Variablenname kann bis zu 40 Zeichen lang sein, die alle signifikant 
sind. Zwischen Klein— und Großschreibung wird dabei nicht unterschie- 
den. Nehmen wir an, wir hätten folgende Zeile eingegeben: 


10 start=77 
Nach der Zeilennummer wird jetzt folgendes abgelegt: 
&0D &00 &00 &73 &74 8&61 &72 &F4 &EF &19 &4D &00 


Dabei bedeutet die &0D, daß es sich um eine Variable ohne Typkennzei- 
chen handelt. Dann folgen zwei Nullbytes, auf die wir später noch zurück 
kommen. Nun folgt der Name der Variablen, die ASCII-Codes für s,t,a 
undr. Beim letzten Zeichen 't'’ wird zum ASCII-Code &74 noch &80 dazu 
addiert (das oberste Bit wird gesetzt) und wir erhalten &F4. Der Code 
&EF ist das Token für '='. Das nachfolgende &19 kündigt eine Ein-Byte- 
—-Konstante an: &4D ist gleich 77. Die abschließende Null bedeutet das 
Ende der Zeile. 


Vor der Zeilennummer folgen noch zwei Bytes, die die Länge der Zeile an- 
geben: 
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&12 &00 &0A &00 


Die Zeile ist also &12 + 256 * &00 gleich 18 Bytes lang und hat die Zeilen- 
nummer &0A + 256 & &00 gleich 10. 


Sie sehen also, daß im Gegensatz zu anderen BASIC--Interpretern Kon- 
stanten im Programmtext nicht als ASCII-Texte abgelegt, sondern be- 
reits in die Binärform überführt worden sind. Dies hat einen ganz ent- 
scheidenen Vorteil. Die zeitintensive Umwandlung vom ASCIlL ins Binär- 
format braucht nur einmal, nämlich bei der Eingabe der Zeile zu gesche- 
hen und nicht bei jedem Ausführen der Zeile noch einmal. Dies bedeutet 
einen nicht unerheblichen Geschwindigkeitsvorteil beim Ausführen der 
Programme. 


Der CPC 464 kennt noch eine ganze Reihe von numerischen Konstanten, 
die durch ein entsprechendes Token gekennzeichnet sind. Konstanten, 
die nur aus einer Ziffer bestehen, also die Zahlen von 0 bis 9, werden 
durch die Token &OE bis &17 kodiert, belegen also nur ein Byte im Pro- 
grammtext. Das Token &19 für Ein-Byte-Werte haben wir bereitskenn- 
gelernt. Für Zwei-Byte-Integerwerte gibt es drei verschiedene Token, 
jenachdem, ob die Konstante dezimal, binär oder hex eingegeben wurde. 
Die Ablage mit Lo—- und Hi-Byte ist in allen drei Fällen gleich. 


&1A Zwei-Byte-Wert, dezimal 
&1B Zwei-Byte-Wert, binär 
&1C Zwei-Byte-Wert, hexadezimal 


Handelt es sich um keine ganze Zahl oder ist der Betrag größer als 32767, 
so wird sie als Fließkommawert abgelegt, der durch das Token &1F ge- 
kennzeichnet wird. Dann folgen 5 Bytes, der Fließkommawert. Auf die 
Fließkommazahlen wird an anderer Stelle noch eingegangen. 


Eine Sonderstellung nehmen in diesem Zusammenhang die Zeilennum- 
mern ein, wie sie z.B. nach Befehlen wie GOTO, GOSUB oder RUN folgen. 
Sie werden ebenfalls als 16-Bit-Binärzahl abgelegt, jedoch durch das 
Token &1E gekennzeichnet. 


Wird ein Programm ausgeführt und trifft es z.B. aufeinen GOTO-Befehl, 
so liest es die Zeilennummer und muß das ganze Programm nach dieser 
Zeile durchsuchen. Besonders bei größeren Programmen kann dasrelativ 
lange dauern. Oft werden GOTO- und GOSUB--Befehle in Programm- 
schleifen benutzt und hundert oder tausende Male durchlaufen. Dabei 
können die Suchzeiten dann einen Großteil der Programmausführungs- 
zeit ausmachen. Der BASIC-Interpreter des CPC 464 führt diese Zeilen- 
suche nur einmal durch. Hat er die Zeile gefunden, so ersetzt er die Zei- 
lennummer hinter dem GOTO--Befehl durch die Adresse der Zeile, die er 
gefunden hat. Damit er die Adresse von einer Zeilennummer unterschei- 
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den kann, ändert er das Token &1E in &1D, das Token für die Zeilenadres- 
se. Wird der GOTO-Befehl dann nochmal durchgeführt, hat der Interpre- 
ter direkt die Adresse, an die die Programmausführung verzweigen kann, 
was viel Zeit spart. 


Dieses Verfahren bringt jedoch bei Befehlen, die die Zeilennummer als 
solche brauchen, Schwierigkeiten. Wenn der LIST-Befehl die Zeile aus- 
geben soll, muß er ja die Zeilennummer ausgeben und nicht deren Adres- 
se. Dieses Problem ist jedoch leicht gelöst. Wenn die Zeilenadresse be- 
kannt ist, kann einfach von dort die Zeilennummer geholt werden, da ja, 
wie wir oben gesehen haben, die Zeilennummer in der Zeile abgelegt ist. 
Wenn Zeilen gelöscht oder eingefügt werden, muß eine Ersetzung der 
Zeilennadresse durch die Zeilennumern erfolgen, da die Adressen sich 
danach ja ändern. Dies betrifft jedoch nur die Ein—- und Ausgabe von Pro- 
grammzeilen und wird durch die bedeutend schnellere Programmaus- 
führung bei weitem wieder ausgeglichen. 


Die Programmausführung durch den BASIC-Interpreter 


Die Ausführung eines Statements durch den BASIC --Interpreter läßt sich 
vereinfacht folgendermaßen darstellen. Jede Programmzeile beginnt wie 
beschrieben mit der Programmlänge und der Zeilennummer. Danach 
kommt der eigentliche BASIC-Befehl. Der Interpreter prüft nun, ob es 
sich um ein Befehlstoken handelt, das durch einen Wert zwischen &80 
und &DC gekennzeichnet ist. Ist dies der Fall, so benutzt er dieses Token 
als Zeiger in eine Tabelle, die die Adressen sämtlicher BASIC-Befehle 
enthält. Der BASIC-Befehl wird als Unterprogramm ausgeführt. Danach 
wird wieder in die sogenannte Interpreterschleife zurückgekehrt. Be- 
gann die Anweisung jedoch nicht mit einem Befehlstoken, so wird zum 
LET--Befehl verzweigt. 


Der wohl wichtigste Teil des BASIC -Interpreters ist die Ausdrucksbe- 
rechnung. Der CPC 464 unterscheidet dabei zwischen drei Typen von 
Ausdrücken: Integer, Fließkomma und String. Wenn z.B. eine Wertzu- 
weisung an eine Variable ausgeführt wird oder wenn ein Parameter zu ei- 
nem Befehl berechnet werden soll, so wird eine Routine aufgerufen, die 
den Ausdruck berechnet und den Wert sowie den Typ des Ausdrucks be- 
reitstellt. Der Variablentyp kann drei Werte annehmen: 


2 Integer 
3 String 
5 Fließkomma 


Diese Typnummer ist gleichzeitig die Länge der Variablen. Bei einem 
String ist das der sogenannte Descriptor, der Länge und Adresse enthält 
(siehe auch Kapitel über den Variablenpointer). Stimmen nun Type eines 
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Ausdrucks und einer Variablen, an die dieser Ausdruck zugewiesen wer- 
den soll, nicht überein, so wird versucht, eine Typumwandlung durchzu- 
führen. Das ist jedoch nur bei den numerischen Typen Integer und Fließ- 
komma möglich. Diese Umwandlung kostet natürlich Rechenzeit. Des- 
halb sollte man immmer dort, wo es möglich ist, Integervariablen einset- 
zen. Die Praxis hat gezeigt, daß oft in 90% der Fälle Integervariablen ein- 
gesetzt werden können. Dadurch entfällt nicht nur eine Typumwand- 
lung, sondern die Integerarithmetik ist auch noch bedeutend schneller 
als die Fliießkommaarithmetik. Ganz besonders sollte dies für die Laufva- 
riablen in FOR-NEXT--Schleifen und sonstige Zähler gelten. 


Wird dagegen versucht, einen Stringausdruck einer numerischen Varia- 
blen oder umgekehrt zuzuweisen, so wird die Fehlermeldung 'Type mis- 
match’ ausgegeben. Eine Umwandlung von String nach numerisch und 
umgekehrt ist nur explizit mit den Funktionen VAL und STR$ möglich. 
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3.2 Der BASIC-Stack 


Ein Stack oder Stapelspeicher dient zum Ablegen von Daten nach dem 
'Last in - First out’ Prinzip. Der Prozessor benutzt dazu den Speicherbe- 
reich ab &C000. Vor jedem Eintrag wird der Stackpointer (Stapelzeiger) 
dekrementiert. Werden Daten wieder vom Stack geholt, so wird anschlie- 
ßend der Stapelzeiger wieder inkrementiert. Der Prozessorstack dient 
z.B. zur Ablage von Rücksprungadressen bei Unterprogrammaufrufen 
und erlaubt durch das Zugriffsprinzip eine Schachtelung von Unterpro- 
grammen. 


Der BASIC-Interpreter braucht zur Ablage der Parameter von GOSUB- 
Aufrufen, FOR-NEXT- und WHILE-WEND-Schleifen ebenfalls einen 
Stack, der erst eine Schachtelung dieser Programmstrukturen möglich 
macht. Dazu wird nun nicht der Prozessorstack mitbenutzt, sondern es 
existiert ein eigener BASIC-Stack, der 512 Bytes groß ist und bei Adresse 
&AE8SB beginnt. Im Gegensatz zum Prozessorstack wächst dieser Stack 
mit zunehmenden Einträgen zu höheren Adressen hin bis maximal 
&BO8A. Als Stackpointer dient die Speicherstelle &BO8B/&BO8C. 


Betrachten wir zuerst, welche Parameter bei einem GOSUB-Befehl auf 
dem Stack abgelegt werden. 


&00/&01 Kennzeichen der GOSUB-Klasse 
Lo Adresse der Anweisung nach 

Hi dem GOSUB-Befehl 

Lo Zeilenadresse der 

Hi GOSUB-Anweisung 

&06 Größe des Stackeintrags 


Zuerst wird also ein Byte abgelegt, was den Typ der GOSUB-Anweisung 
bestimmt. Bei einem normalen GOSUB-Befehl ist dies ein Nullbyte. Han- 
delt es sich jedoch um den Aufruf eines Unterprogramms, die aus einem 
AFTER oder EVERY-Befehl herrührt, wird zur Unterscheidung eine Eins 
auf dem Stack abgelegt. Dann folgen die Adresse des nächsten Befehls 
nach dem GOSUB-Befehl sowie die Adresse der Zeile, in der der GOSUB- 
Befehl steht. Damit der Stackeintrag beim RETURN-Befehl wieder identi- 
fiziert werden kann, wird noch ein Byte auf dem Stack abgelegt, das die 
Länge des Stackeintrags angibt und damit implizit einen GOSUB-Daten- 
satz kennzeichnet. 
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Die Daten einer WHILE-WEND-Schleife werden in ähnlicher Form abge- 


legt. 
Lo 
Hi 


Lo 
Hi 


Lo 
Hi 


&07 


Zeilenadresse des 
WHILE-Befehls 


Adresse des 
WEND-Befehls 


Adresse der 
WHILE-Bedingung 


Größe des Stackeintrags 


Der Eintrag enthält also 3 Adressen und als Kennbyte eine 7, die Anzahl 


der Stackeinträge. 


Bei der FOR-NEXT-Schleife wird es etwas komplizierter. Hierbei wird un- 
terschieden, ob die Laufvariable vom Typ Integer oder Real ist. Im erste- 
ren Fallist nicht nur die Ausführungszeit kürzer, sondern der Stackbedarf 
ist ebenfalls kleiner. Betrachten wir zuerst den Aufbau bei einer Integer- 


schleife. 
Lo 
Hi 


Lo 
Hi 


Lo 
Hi 


Sgn 


Lo 
Hi 


Lo 
Hi 


Lo 
Hi 


Lo 


Adresse der 
Laufvariablen 


Endwert der 
Laufvariablen 


STEP-Wert 


Vorzeichen des STEP-Werts 


Adresse der 
FOR-Anweisung 


Zeilenadresse der 
FOR-Anweisung 


Adresse der 
NEXT-Anweisung 


Zeilenadresse 
286 


Hi 


&10 


der NEXT-Anweisung 


Größe des Stackeintrags 


Der Stackeintrag für eine FOR-NEXT-Scheife mit Integervariable ist also 
16 Bytes groß. Wird die Schleife mit einer Real-Variablen durchlaufen, so 
werden 22 Bytes im Stack belegt. 


Lo 
Hi 


5BytesFließ- 
kommawert 


5BytesFließ- 
kommawert 


Sgn 


Lo 
Hi 


Lo 
Hi 


Lo 
Hi 


Lo 
Hi 


&16 


Adresse der 
Laufvariablen 


Endwert der 
Laufvariablen 


STEP-Wert 


Vorzeichen des STEP-Werts 


Adresse der 
FOR-Anweisung 


Zeilenadresse der 
FOR-Anweisung 


Adresse der 
NEXT-Anweisung 


Zeilenadresse 
der NEXT-Anweisung 


Größe des Stackeintrags 


Außer zur Abspeicherung von Schleifenstrukturen wird der BASIC-Stack 
noch zur Speicherung von Zwischenausdrücken bei numerischen Be- 
rechnungen benutzt, z.B. bei verschachtelten Klammerausdrücken und 
zur Realisierung einer Hierarchie bei den arithmetischen und logischen 


Operatoren. 
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3.3 Die BASIC-Vektoren 


Wollen Sie eigene BASIC-Befehle oder Funktionen realisieren, so gibt es 
außer der Anwendung von Erweiterungsroms oder RSX noch eine weite- 
re Möglichkeit zur Implementierung. Dies geschieht über die sogenann- 
ten BASIC-Vektoren. 


Der BASIC-Interpreter ruft dazu an allen strategisch wichtigen Stellen 
ein Unterprogramm im RAM auf, das normalerweise nur aus einem RET- 
Befehl besteht und so keinen Einfluß hat. Soll z.B. ein Befehl ausgeführt 
werden, so wird geprüft, ob das Statement mit einem gültigen Befehlsto- 
ken beginnt. Ist dies der Fall, so wird aus dem Token die Adresse des zu- 
gehörigen Befehls berechnet und dorthin verzweigt. Wurde hingegen 
kein gültiger Befehl erkannt, so wird ein SYNTAX ERROR gemeldet. Vor 
der Ausgabe der Fehlermeldung - und dies ist der Trick dabei - wird je- 
doch zuerst die oben beschriebene Routine im RAM aufgerufen, die nor- 
malerweise nur aus einem RET-Befehl besteht und demzufolge direkt zu- 
rückkehrt. Wollen Sie einen eigenen Befehl 'einbauen’, so brauchen Sie 
nur den entsprechenden RET-Befehl im RAM durch einen Sprung aufIhre 
eigene Routine zu ersetzen, die aufeinen neuen gültigen Befehl prüft und 
ihn ausführt. 


Diese Methode ist nicht nur flexibler als die RSX-Methode - man ist nicht 
auf Integerargumente beschränkt (siehe Kapitel 3.5.2) - sondern ist auch 
in der Ausführung schneller, da nicht die Tabelle sämtlicher Erweiterun- 
gen nach dem richtigen Befehlswort durchsucht werden muß. 


Die folgende Tabelle enthält die Adressen der neun Routinen, die vom 
Benutzer manipuliert werden können. Dabei wird eine Routine (wohl ver- 
sehentlich) vom BASIC-Interpreter nicht angesprungen, sondern direkt 
zur Fehlerausgabe verzweigt (siehe BASIC-Listing, Adresse &D078). 


ACO01-AC03 Patch für READY-Modus 

ACO4-ACO6 Patch für ERROR-Einsprung 

ACO07-ACO9 Patch für Befehl ausführen 

ACOA-ACOC Patch für Funktionsberechnung 
ACOD-ACOF Patch für Konstante holen (nicht benutzt) 
AC10-AC12 Patch für Eingabe, Zeile in Token wandeln 
AC13-AC15 Patch für Ausgabe, Token listen 
AC16-AC18 Patch für Eingabe, Umwandlung von Ziffern 
AC19-AC1B Patch für Operatoren 


Das folgende Beispiel soll eine Anwendung dieser Vektoren demonstrie- 


ren. Dazu wird der schon als Token vorhandene Befehl SWAP zum Aus- 
tausch zweier Variabler benutzt. 
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00E7 
CA94 
000D 
D686 
DD37 
DD3F 


AC07 
AC07 
8000 
8000 
8002 


8003 
Stack 
8004 
8007 
800A 
800D 
800E 
8012 
8013 
8016 
801A 
801B 
801C 
801D 


801F 
8021 


8024 
8025 
8027 
802A 
802D 
802E 
8030 
8031 
8034 


;Variablen-Swap 
;LE 15/12/84 


SWAP EQU 
ERROR EQU 
MISM EQU 
GETVAR EOU 
CHECK EQU 
BLANK EQU 
ORG 
C30080 JP 
ORG 
FECE SWPNEW CP 
co RET 
D1 POP 
CD3FDD CALL 
CD86D6 CALL 
CD37DD CALL 
2C DEFB 
ED534C80 LD 
C5 PUSH 
CD86D6 CALL 
ED534E80 LD 
79 LD 
c1 POP 
B9 CP 
2805 JR 
1EOD LD 
C394CA JP 
ES TYPOK PUSH 
0600 LD 
2A4E80 LD 
114780 LD 
C5 PUSH 
EDBO LDIR 
c1 POP 
2AAC8O LD 
ED5B4E80 LD 
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&E7 ; SWAP-Token 
&CA94 ; Fehler-Aussprung 
13 ; 'TYPE MISMATCH’ 
&D686 ; Variable suchen 
&DD37 ; Zeichen prüfen 
&DDS3F ; Blanks überlesen 


&ACO7 

SWPNEW ; Vektor verbiegen 
&8000 

SWAPx2 & &FF ;, SWAP-Token 
NZ ; "SYNTAX ERROR’ 

DE ; Rücksprungadresse vom 


BLANK 

GETVAR ; Variable suchen 
CHECK 

“‚“ ‚ auf Komma prüfen 
(VAR1),DE 

BC ; und Typ merken 
GETVAR 

(VAR2),DE 

A,C 

BC 

C ; Typen vergleichen 
Z,TYPOK 


E,MISM 
ERROR 


HL ; Programmzeiger merken 
B,0 

HL,(VAR2) 

DE,TEMP 

BC 

; Variable 2 nach TEMP 

BC 

HL,(VAR1) 

DE,(VAR2) 


8038 C5 PUSH BC 


8039 EDBO LDIR ; Variable 1 nach Variable 2 
803B Ci POP BC 

803C 214780 LD HL,TEMP 

803F ED5BA4C80 LD DE,(VARI) 

8043 EDBO LDIR ; TEMP nach Variable 1 
8045 E1 POP HL; Programmzeiger zurück 
8046 C9 RET 

8047 TEMP DEFS 5 ; Zwischenspeicher 

804C VAR1 DEFS 2; Adresse Variable 1 

804E VAR2 DEFS 2; Adresse Variable 2 


In diesem Zusammenhang ist noch die Speicherstelle &AC00 von Bedeu- 
tung. Normalerweise steht dort eine Null. Dies bewirkt, daß eine BASIC- 
Zeile so übernommen wird, wie sie eingegeben wurde. Wird diese Spei- 
cherstelle jedoch mit einem Wert ungleich Null geladen, so werden über- 
flüssige Leerzeichen in der Eingabezeile ignoriert und nicht mit abge- 
speichert. 


Wenn Sie z.B. folgende Zeile eingeben, 
10 FOR i=1 TO 100: PRINT “Hallo“ : NEXT 
so wird daraus 


10 FOR i=1 TO 100:PRINT“Hallo“:NEXT Dies kann z.B. dann 
nützlich sein, wenn der Speicherplatz knapp ist. Das Programm wird da- 
durch soweit wie möglich komprimiert. Der Nachteil dieser Methode ist 
jedoch, daß das Programm an übersichtlichkeit verlieren kann. Pro- 
grammstrukturen können so schlechter sichtbar gemacht werden. 


10 FOR I=1 TO 100 


20 PRINT “Hallo“ 
30 NEXT 
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3.4 Das BASIC-RAM 


In der folgenden Aufstellung finden Sie die Bedeutung der vom BASIC-In- 
terpreter benutzen RAM-Adressen. 


AB80 - ABFF 
ACOO 
ACO1-ACO3 
ACO4 - AC06 
AC07-ACO9 
ACOA - ACOC 
ACOD-ACOF 
AC10-AC12 
AC13- AC15 
AC16-AC18 
AC19-ACI1B 
ACIC 
AC1D-ACIE 
AC1F-AC2O 
AC21 

AC22 

AC23 

AC24 

AC25 

AC26 

AC27- AC2B 
AC2C - AC2D 
AC2E-AC2F 
AC34 - AC35 
AC36 - AC37 
AC38 - AC43 
AC44 - AC4F 
AC50 - AC5B 
ACSC - AC6D 
AC6E - AC7F 
AC80-AC91 
AC92- ACA3 
ACA4- ADA3 
ADA6-ADA7 
ADA8-ADA8 
ADAA 
ADAB-ADAC 
ADAD-ADAE 
ADAF -ADBO 
ADB1 


Zeichenmatrix für CHR$(240) bis CHR$(255) 
Flag für zusätzliche Blanks ignorieren 
Patch für READY-Modus 

Patch für ERROR-Einsprung 

Patch für Befehl ausführen 

Patch für Funktionsberechnung 

Patch für Konstante holen (nicht benutzt) 
Patch für Eingabe, Zeile in Token wandeln 
Patch für Ausgabe, Token listen 

Patch für Eingabe, Umwandlung von Ziffern 
Patch für Operatoren 

Flag für AUTO-Modus 

Zeilennummer für AUTO 

Inkrement für AUTO 

aktuelle Streamnummer 

Eingabekanal 

aktuelle PRINTER-Position 

WIDTH 

aktuelle Position auf Kassette 

Flag für ersten FOR-NEXT-Durchlauf 
Zwischenspeicher für FOR-Variable 
Adresse des zugehörigen NEXT-Befehls 
Adresse des zugehörigen WEND-Befehls 
ON BREAK Adresse 


Sound-Queue 0 

Sound-Queue 1 

Sound-Queue 2 

Event-Block O 

Event-Block 1 

Event-Block 2 

Event-Block 3 

Eingabepuffer 

Adresse der ERROR-Zeile 
Programmzeiger nach ERROR 
ERROR-Nummer 

Programmzeiger nach Unterbrechung 
Zeilenadresse nach Unterbrechung 
Adresse der ON-ERROR-Routine 
Fehlerbehandlungsroutine aktiv 
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ADB2 

ADB3 

ADB4 

ADBS - ADB6 
ADB? 

ADB8 
ADB9- ADBA 
ADBB-ADBC 
ADCB-ADCF 
ADDO - AE03 
AEO4A - AE05 
AE06 - AEOB 
AEOC - AE25 
AE2D 

AE2E - AE2F 
AE3O - AE31 
AE32 - AE33 
AES4 - AE35 
AE36 - AE37 
AE38 

AESF - AE40 
AE41 

AE42 

AE43 - AE44 
AE45 

AE46 - AE78 
AE72 - AE73 
AE74 

AE75 - AE76 
AE77 - AE78 
AE79 
AET7B-AE7C 
AE7D-AET7E 
AE7F- AE8O 
AE81 - AE82 
AE83 - AE84 
AE85 - AE86 
AE87 - AE88 
AE89- AE8A 
AESB - BO8A 
BO8B - BO8C 
BO8D - BO8E 
BO8F - BO9O 
BO9YA - BO9B 
BO9C - BOB9Y 
BOBA -BOBC 
BOC1 


Sound-Parameter Kanal-Status 
Sound-Parameter Lautstärken-Hüllkurve 
Sound-Parameter Ton-Hüllkurve 
Sound-Parameter Periode 
Sound-Parameter Geräusch-Periode 
Sound-Parameter Lautstärke 
Sound-Parameter Dauer 

ENV & ENV 

Zwischenspeicher für Fliießkommazahl 
Tabelle für skalare Variable 
Tabelle für FN 

Tabelle für Arrays 

Variablentypen A-Z 

Trennzeichen bei INPUT-Befehl 
Zeilenadresse bei READ-Befehl 
DATA-Zeiger 

Speicher für BASIC-Stackpointer 
Adresse des aktuellen Statements 
Adresse der aktuellen Programmzeile 
TRACE-Flag 

Startadresse bei LOAD 

Flag für CHAIN MERGE 

Filetyp 

Filelänge 

Flag für geschützes Programm 
Puffer für Umwandlung nach ASCII 
Adresse für CALL-Befehl 
Konfiguration für CALL-Befehl 

hl während CALL-Befehl 

sp während CALL-Befehl 
Tabulatorweite 

Zeiger auf HIMEM 

Zeiger auf Ende freies RAM 

Zeiger auf Start freies RAM 

Zeiger auf Programmstart 

Zeiger auf Programmende 

Zeiger auf Variablenstart 

Zeiger auf Arraystart 

Zeiger auf Arrayende 

BASIC-Stack 

BASIC-Stackpointer 

Beginn der Strings 

Ende der Strings 

Zeiger in Stringdescriptorstack 
Stringdescriptorstack 
Stringdescriptor 

Variablentyp 
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BOC2 - BOC3 


B8E4 - B8E7 
B8E8 - BBEC 
B8ED - BöF1 
B8F2 - B8F6 
B8F7 


Integervariable bzw. 

Adresse einer Fließkommazahl 

Zeiger auf Stringdescriptor 

RND-Wert 

Zwischenspeicher für Fliießkommazahl 
Zwischenspeicher für Fliießkommazahl 
Zwischenspeicher für Fließkommazahl 
Flag für DEG/RAD 
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3.5 BASIC und Maschinensprache 


3.5.1 Der CALL-Befehl 


Das Bindeglied zwischen BASIC und Maschinensprache ist der CALL-Be- 
fehl. Mit ihm ist es möglich, aus einem BASIC-Programm heraus ein Ma- 
schinenprogramm aufzurufen. Zum CALL-Befehl gehört noch eine 16- 
Bit-Adresse, die besagt, an welcher Stelle das Maschinenprogramm 
steht, z.B. 


CALL &8000 


Damit wird ein Maschinenprogramm ab der Adresse &8000 oder dezimal 
32768 aufgerufen. Wird das Maschinenprogramm mit dem RET-Befehl 
beendet, wird die Kontrolle wieder zurück an den Interpreter gegeben, 
der in der Ausführung des BASIC-Programms fortfährt. 


Beim CALL-Befehl sind Betriebssystem und BASIC-Interpreter nicht di- 
rekt zugänglich; im gesamten 64K-Adreßbereich ist RAM selektiert. 
Selbstverständlich lassen sich jedoch Betriebssystemroutinen über die 
Einsprungadressen im Bereich ab &BO000 aufrufen. Diese Routinen sor- 
gen selbsttätig für die erforderliche ROM/RAM-Konfiguration. Wollen Sie 
während eines CALL-Befehls auf Routinen des BASIC-Interpreters oder 
Betriebssystemroutinen zugreifen, die nicht über Vektoren angesprun- 
gen werden, so können Sie dazu die RST 3 und RST 5 Routinen benutzen, 
die die Umschaltung realisieren. 


Der CALL-Befehl erlaubt es aber weiterhin noch Parameter von BASIC 
aus an die Routine zu übergeben. Dazu können hinter der Adresse durch 
Komma getrennt bis zu 32 Parameter übergeben werden, die der Maschi- 
nenroutine dann zur Verfügung stehen. Diese Parameter müssen wie die 
Adresse selbst einen 16-Bit-Wert ergeben. Sie werden von BASIC auf 
dem Stack abgelegt. Der BASIC-Interpreter übergibt die Basisadresse 
dieses Parameterblocks im IX-Register. Im Akku steht zusätzlich noch, 
wieviele Parameter übergeben wurden. Der letzte Parameter steht also 
an Adresse IX, der vorletzte an Adresse IX+2 und der erste Parameteran 
Adresse IX + 2x(A-1). 


Während des CALL-Befehls können sämtliche Registerinhalte verändert 
werden (bezüglich der Benutzung der Zweitregister siehe im Kapitel 
Firmware). Auch der Stackpointer darf verändert werden, sofern sicher- 
gestellt ist, daß beim abschließenden RET die richtige Rücksprungadres- 
se vom Stack geholt wird. 


Bei der Benutzung des CALL-Befehls sind Ihrer Phantasie keine Grenzen 
gesetzt. Sie können z.B. erweiterte Grafikfunktionen zur Verfügung stel- 
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len wie Kreise zeichnen, Fläche ausfüllen usw. 


Die Übergabe von Parametern von der Maschinenroutine zurück ans BA- 
SIC ist nicht vorgesehen, ist jedoch über einen Umweg möglich. Soll z.B. 
das Ergebnis eines Maschinenprogramms einer Variablen zugewiesen 
werden, so kann dem CALL-Befehl deren Adresse übergeben werden. 
Dies ist mit dem 'Klammeraffen’ möglich. 


CALL &AB00,@A 


Damit steht dem Maschinenprogramm die Adresse der Variablen A zur 
Verfügung und es kann direkt der Wert der Variablen verändert werden. 
Diese Möglichkeit ist im Kapitel über den Variablenpointer näher be- 
schrieben. 


3.5.2 BASIC-Erweiterungen mit RSX 


Betriebssystem und BASIC des CPC 464 unterstützen eine Möglichkeit, 
eigene Befehle ins BASIC einzubinden, die man RSX nennt. Das ist eine 
Abkürzung für 'Resident System eXtension’. Diese Erweiterungen kön- 
nen von BASIC aus durch einen Namen aufgerufen werden und erlauben 
eine Parameterübergabe, wie sie beim CALL-Befehl schon beschrieben 
wurde. Wenn wir z.B eine Grafikerweiterung schreiben wollen, die uns 
ein Quadrat auf den Bildschirm zeichnet, so kann der Aufruf dazu so aus- 
sehen: 


10 IQUADRAT, 100,100,50 


Damit soll ein Quadrat gezeichnet werden, dessen linke obere Ecke die 
Koordinaten 100,100 hat mit einer Kantenlänge von 50 Punkten. 


Wie Sie sehen, wird eine Befehlserweiterung durch einen vorangestell- 
ten senkrechten Strich (Shift @) gekennzeichnet. 


Eine derartige Befehlserweiterung kann in einem Extensionrom stecken, 
wie es der Fall ist, wenn Sie ein Diskettenlaufwerk angeschlossen haben 
oder aber auch im RAM. Damit haben wir die Möglichkeit, eigene Erwei- 
terungen zu schreiben. Damit das Betriebssystem weiß, wo es nach einer 
solchen Erweiterung suchen soll, muß die Erweiterung erst '’eingebun- 
den’ werden. Dazu dient eine Routine des Betriebssystems: KL LOG 
EXT. Das folgende Beispiel realisiert den oben angesprochenen Befehl 
zum Zeichnen eines Quadrat und demonstriert, wie die Einbindung von- 
statten geht. 


; RSX-BEFEHLSERWEITERUNG 
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BCD1 
den 

BBC6 
BBCO 
BBF9 
BDC7 


8000 


8000 010980 
fehlstabelle 
8003 211680 
Kernal 

8006 C3D1BC 
den 


8009 OE8O0 
worte 
800B C31A80 


800E 51554144 
8014 D4 
8015 00 


8016 


801A FEO3 
801C CO 

801D CDC6BB 
len 

8020 D5 

8021 E5 

8022 DD5605 
8025 DD5EO04 
8028 DD6603 
802B DD6EO2 
802E CDCOBB 
xX,Y-Koordinate 
8031 DD5601 
8034 DD5EOO 
Offset 

8037 D5 

8038 210000 
803B CDFYBB 
ziehen 


; LE 21/12/84 


LOGEXT 
ASKCUR 
MOVABS 


DRAWRE 
CHGSGN 


RSX 


TABLE 


KERNAL 


QUADRA 


EQU 


EQU 
EQU 
EQU 
EQU 


ORG 


LD 


LD 


JP 


DEFW 


JP 


DEFM 
DEFB 
DEFB 


DEFS 


CP 
RET 
CALL 


PUSH 
PUSH 
LD 
LD 
LD 
LD 
CALL 


LD 
LD 


PUSH 


LD 
CALL 
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&BCD1 ; Erweiterung einbin- 


&BBC6 ; Grafik-Cursor holen 
&BBCO ; Grafik-Cursor setzen 
&BBF9 ; Linie relativ ziehen 
&BDC7 ; Vorzeichen ändern 


&8000 
BC,RSX ; Adresse der RSX-Be- 
HL,KERNAL ; 4 Byte RAM für 


LOGEXT ; Erweiterung einbin- 


TABLE ; Adresse der Befehls- 
QUADRAT 


“QUADRA“ 
“T"+8&80 
0 ; Ende der Tabelle 


4 ; Speicher für Kernal 


3 ; drei Parameter ? 
NZ 
ASKCURS ; Grafik-Cursor ho- 


DE ; X-Koordinate merken 

HL ; Y-Koordinate merken 
D,(IX+5) 

E,(IX+4) ; X-Koordinate 
H,(IX+3) 

L,(IX+2) ; Y-Koordinate 
MOVABS ; Grafik-Cursor auf 


D,(IX+1) 
E,(IX) ; Länge nach de als X- 


DE ; merken 
HL,0 ; Y-Offset 
DRAWREL ; waagerechteLinie 


803E Ei POP HL 


803F E5 PUSH HL 

8040 CDC7BD CALL CHGSGN ; Y-Offset negativ 
8043 E5 PUSH HL 

8044 110000 LD DE,0 

8047 CDFYBB CALL DRAWREL ; senkrechte Linie 
ziehen 

804A Di POP DE ; negativer X-Offset 

804B 210000 LD HL,0 ; Y-Offset null 

804E CDFYBB CALL DRAWREL ; waagerechte Linie 
ziehen 

8051 E1 POP HL 

8052 110000 LD DE,O 

8055 CDFYBB CALL DRAWREL ; senkrechte Linie 
ziehen 

8058 Ei POP HL 

8059 Di POP DE 

805A C3COBB JP MOVABS ; Koordinaten wie- 
derherstellen 


Nachdem das Programm geladen (als Binärfile von Kassette oder Disket- 
te) oder mittels DATA-Lader generiert im Speicher steht, muß es einma- 
lig initialisiert werden werden. Dies geschieht durch Aufruf von CALL 
&8000. Damit steht der neue Befehl zur Verfügung. Für die Einbindung 
werden zwei Tabellen benutzt. Die erste, in unserem Beispiel RSX ge- 
nannt, enthält zuerst die Adresse der zweiten Tabelle, hier TABLE ge- 
nannt, und anschließend Sprungbefehle auf die eigentliche Erweiterung. 
Die zweite Tabelle enthält die Namen, unter denen die neuen Befehle 
aufgerufen werden können. Dabei sind Großbuchstaben sowie Punkte 
erlaubt. Das letzte Zeichen eines Befehlswort wird durch das gesetzte Bit 
7 gekennzeichnet. Danach können weitere Befehlsworte folgen. Das En- 
de der Tabelle ist durch ein Nullbyte gekennzeichnet. In jeder Tabelle 
müssen natürlich gleich viel Einträge stehen; zu jedem Befehlswort muß 
in der ersten die korrespondierende Sprungadlresse stehen. Unter dem 
Label KERNAL müssen wir dem Betriebssystem 4 Bytes zur Verfügung 
stellen, die zur Verwaltung der Erweiterung benutzt werden. Die 4 Bytes 
müssen zwischen Adresse &4000 und &BFFF stehen. 


Die Routine zum Zeichnen des Quadrats beginnt beim Label QUADRAT. 
Zuerst wird geprüft, ob drei Parameter übergeben wurden. Ist das nicht 
der Fall, wird sofort zurückgekehrt. Andernfalls wird die aktuelle Grafik- 
cursorposition geholt und auf den Stack gerettet. Jetzt werden die über- 
gebenen X- und Y-Koordinaten nach DE und HL geholt. Die Basis des Pa- 
rameterblock steht in IX zur Verfügung. Nachdem der Grafikcursor auf 
diese Koordinaten gesetzt wird, kann viermal die Routine zum Zeichnen 
einer Linie relativ zur augenblicklichen Position aufgerufen werden. Um 
einen negativen Offset zu berechnen, wird die Routine CHGSGN der Inte- 
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gerarithmetik aufgerufen. Zum Abschluß wird die ursprüngliche Grafik- 
cursorposition wieder hergestellt. 


Als Beispiel für eine Anwendung der Routine geben Sie bitte folgendes 
kleine Programm ein: 


10CLS 

20 FOR i=35 TO 400 STEP 20 
30 IQUADRAT,i,i,30 

40 NEXT 


3.5.3 Der Variablenpointer ’@’ 


Eine besonders für den Maschinenprogrammierer interessante 
Funktion ist der Variablenpointer, der durch den 'Klammeraffen’ auf- 
gerufen wird. Diese Funktion gibt die Adresse zurück, an der eine 
Variable im Speicher abgelegt ist. Der Aufruf sieht so aus: 


PRINT @a 


Damit wird die Adresse der Variablen a ausgegeben. War die Variable 
noch nicht angelegt, wird die Fehlermeldung 'Improper argument’ aus- 
gegeben. 


Wenn wir nun an den Inhalt der Variablen wollen, müssen wir zwischen 
den 3 möglichen Typen unterscheiden. 


Bei Integervariablen sieht die Sache am einfachsten aus. An der angege- 
benen Adresse ist der 16-Bit-Wert abgelegt. Den Wert der Variablen a% 
erhalten wir also mit folgender Formel: 


PRINT PEEK(@a%)+256+PEEK(@a% +1) 


Dabei können wir Werte zwischen 0 und 65535 erhalten. Soll das Vorzei- 
chen noch berücksichtigt werden, müssen wir die Funktion UNT anwen- 
den. 


PRINT UNT(PEEK(@a%)+256+xPEEK(@a%+1)) 


Bei Fließkommavariablen zeigt der Variablenpointer ebenfalls auf den 
Wert der Variablen, der sich jedoch aus 5 Bytes zusammensetzt. Die er- 
sten 4 Bytes sind die sogenannte Mantisse und das 5. Byteist der Zweier- 
exponent, mit dem die Mantisse multipliziert werden muß, um den Wert 
der Variablen zu erhalten. Wenn wir die 4 Mantissenbytes mit mi bis m4 
bezeichnen und den Exponenten mit ex, so ergibt folgende Formel den 
zugehörigen Fließkommawert: 
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x = (1-2xSGN (m4 AND 128)) x 2 1 (ex-129) x 
(1+ ((m4 AND 127)+(m3+{m2+m1/256)/256)/256)/128) 


Aus der Formel wird deutlich, daß das Vorzeichen der Fließkommazahlim 
obersten Bit von m4 steckt und daß die Mantissenbytes m1 bis m4 stei- 
gende Wertigkeiten haben. Der Zweierexponent enthält einen Offset von 
129, so daß sich Werte von 21-129 bis 21127 ergeben. Probieren wir unsere 
Formel einmal aus. 


100 a=-13:’ untersuchte Fließkommavariable 
110 ad= @a:’ Adresse von a 
120 m1=PEEK(ad):m2=PEEK(ad+1):m3=PEEK(ad+2) 
130 m4=PEEK(ad+3):ex=PEEK(ad+4) 
140 PRINT (1-2xSGN (m4 AND 128)) x 2 1 (ex-129) x 
(1+ ((m4 AND 127)+(m3+(m2+m1/256)/256)/256)/128) 


Wenn Sie das Programm laufen lassen, erhalten Sie den Wert -13 zurück. 
Ersetzen Sie Zeile 100 einmal durch INPUT a, so können Sie beliebige 
Werte ausprobieren. 


Anwendung findet die Variablenpointer-Funktionim CALL-Befehl, derja 
bekanntlich nur 16-Bit-Werte übergeben kann. Wollen Sie also mit Fließ- 
kommawerten arbeiten, so können Sie mit '@' die Adresse einer Fließ- 
kommazahl übergeben, auf die Sie sich dann beziehen können. Mit dieser 
Methode ist es natürlich auch möglich, den Wert der Fließkommavaria- 
blen direkt zu verändern. 


Noch interessanter wird es bei Stringvariablen. Auch hier können wir den 
Variablenpointer benutzen, der uns wieder die Adresse der Variablen zu- 
rückgibt. Dies ist jedoch nicht direkt die Adresse des Strings, sondern des 
sogenannten Stringdescriptors. Dieser Stringdescriptor ist drei Bytes 
lang. Das erste Byte enthält die Länge des Strings, also einen Wert von 
Null bis 255. Die nächsten beiden Bytes enthalten die Adresse des 
Strings. 


100 INPUT a$ 

110 ad=@a$ 

120 I=PEEK(ad) 

130 sa=PEEK(ad+1)+256+PEEK(ad+2) 

140 FOR i=sa TO sa+l-1: PRINT CHR$(PEEK(I));: NEXT 


Das Programm holt Länge und Adresse des Strings, liest und gibt ihn aus. 


Auch hier kann über den Variablenpointer ein String an den CALL-Befehl 
übergeben werden. 
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Strings lassen sich im Zusammenhang mit dem CALL-Befehl noch ganz 
anders einsetzen. Man legt dazu ein Maschinenprogramm einfach in ei- 
nem String ab und kann es mit dem CALL-Befehl und dem Variablenpoin- 
ter aufrufen. Das Maschinenprogramm muß dazu verschiebbar (keine in- 
ternen absoluten Sprünge) und darf nicht länger als 255 Bytes sein. Das 
ist bei kleineren Utilities meist gegegeben. Wollen Sie diese Methode an- 
wenden, so müssen Sie folgendermaßen vorgehen: 


Zuerst wird das Maschinenprogramm in die Stringvariable abgelegt. Dies 
wird meist mit READ und DATA geschehen. Wollen Sie das Programm 
dann ausführen, so berechnen Sie die Startadresse des Strings (und des 
Maschinenprogramms) mit dem 'Klammeraffen’. 
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3.6 Das BASIC-ROM-Listing 


3.6.1 Die Fließkommaarithmetik 


Sämtliche arithmetische Funktionen, die der BASIC-Interpreter benutzt, 
stehen im Betriebssystem-ROM. Sie werden über die Sprungtabelle von 
&BD3D bis &BDC7 aufgerufen. Wenn Sie diese Arithmetikroutinen än- 
dern wollen, so brauchen Sie nur an der entsprechenden Stelle einen 
Sprung auf Ihre Routine einfügen. 


Als ein Beispiel zur Anwendung der Fließkommaroutinen des BASIC-In- 
terpreters zeigen wir Ihnen eine Routine zur Berechnung der Quadrat- 
wurzel einer Zahl. Der BASIC-Interpreter des CPC 464 stellt uns diese 
Funktion zwar schon zur Verfügung, jedoch soll gezeigt werden, daß 
durch Anwendung vonleistungsfähigen Algorithmen diese noch verbes- 
sert werden können. 


Die eingebaute SOR-Funktion arbeitet nach dem gleichen Algorithmus, 
nach dem auch die Potenzberechnung geschieht. 


SQR(X) = EXP (LOG(X)x0.5) 


Es müssen also jedesmal Exponential- und Logarithmusfunktion berech- 
net werden, was über aufwendige Polynomberechnungen geschieht. Die 
Quadratwurzel läßt sich jedoch über eine einfache Iterationsvorschrift 
berechnen. 


X(N+1) = (X(N) +A/X(N))/2 


wobei A die Zahl ist, aus der die Wurzel gezogen werden sollund X(N) der 
alte und X(N+1) derneue Näherungswert ist. Als Startwert kann mandie 
Zahl A selbst nehmen. Ein besserer Nährungswert ergibt sich jedoch, 
wenn man den Zweierexponent der Fließkommazahl halbiert. Dann än- 
dert sich das Ergebnis nach vier Iterationen im Rahmen der Rechenge- 
nauigkeit nicht mehr. Beachten Sie auch, daß die Division durch 2 nicht 
als aufwendige Fließkommadivision realisiert wurde, sondern einfach 
dadurch, daß man den Zweierexponenten um eins erniedrigt. Der Zeitge- 
winn dieses Verfahrens ist bedeutend. Benötigt die SOR-Routine des In- 
terpreters noch 27 Millisekunden, so schafft unsere Routine die gleiche 
Aufgabe in knapp 8 Millisekunden; sie ist also mehr als dreimal so 
schnell. 


‚SCHNELLE SOR-ROUTINE 
‚LE 18/12/84 


ABOO ORG &ABOO 
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BD70 
BD64 
BD58 


ABOO 
ABO3 
ABOA 
ABO5 
ABO8 
ABOA 
ABOB 


ABOC 
ABOD 
AB10 
AB13 
AB15 


AB16 
AB17 
AB19 
ABIC 
ABI1E 
ABIF 
AB2O 
AB22 


AB25 
AB27 
AB28 
AB29 
AB2C 
AB2F 
AB31 
AB32 
AB33 
AB36 
AB37 
AB3A 
AB3C 
AB3D 
AB40 
AB43 
AB46 
AB49 
AB4A 


CD70BD 
3F 

C8 
F20CAB 
3E01 

B7 

c9 


E5 
1153AB 
010500 
EDBO 
Ei 


E5 
DDE1 
DD7EO4 
D681 

3F 

1F 
C601 
DD7704 


0604 

C5 

ES 
1158AB 
010500 
EDBO 
Ei 

ES 
1153AB 
EB 
010500 
EDBO 

El 
1158AB 
CD64BD 
1158AB 
CD58BD 
E5 
DDE1 


SGN 
DIV 
ADD 


NEWSOR 


GOON 


ITER 


EQU 
EOQU 
EQU 


CALL 
CCF 
RET 
JP 

LD 
OR 
RET 


PUSH 
LD 
LD 
LDIR 
POP 


PUSH 
POP 
LD 
SUB 
CCF 
RRA 
ADD 
LD 


LD 
PUSH 
PUSH 
LD 
LD 
LDIR 
POP 
PUSH 
LD 
EX 
LD 
LDIR 
POP 
LD 
CALL 
LD 
CALL 
PUSH 
POP 
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&BD70 
&BD64 
&BD58 


SGN ; Vorzeichen prüfen 


Z ; Null, schon fertig 

P,GOON 

A,1; 'IMPROPER ARGUMENT' 
A 


HL 

DE,STORE1 

BC,5 

; Radikant merken 
HL 


HL 

IX 

A,(IX+4) ; Exponent 
&81 ; normalisieren 


; Exponent halbieren 
A,1 
(IX+4),A ; als Startwert 


B,4 ; 4 Iterationen 
BC 

HL 

DE,STORE2 

BC,5 

; Näherung merken 
HL 

HL 
DE,STORE1 
DE,HL 

BC,5 

; Radikant holen 
HL 

DE,STORE2 

DIV 
DE,STORE2 

ADD 

HL 

IX 


AB4C DD3504 DEC (IX+4) ;, ZAHL/2 


AB4AF Ci POP BC 
AB5O 10D5 DJNZ ITER 
AB52 C9 RET 

ABS53 STORE1 DEFS 5 
AB58 STORE2 DEFS 5 


Wie kann man aber den Interpreter dazu veranlasssen, die neuen Routine 
zu verwenden? Für die SOR-Funktion dient der Vektor &BD79. An diese 
Adresse muß ein Sprung auf unsere Routine eingetragen werden. 


JP &ABO00 


Wenn die Routine von BASIC aus aufgerufen wird, muß das HL-Register 
auf den Fließkommawert zeigen. Nach Ausführung der Routine muß das 
HL-Register auf das Ergebnis zeigen. Normalerweise hat sich der Wert 
dieses Registers nicht verändert. Die Flags zeigen den Fehlerstatus der 
Funktion an: 


Fehlerstatus der Funktionen 


C=1 ordnungsgemäße Ausführung 
C=0&Z=1 ’Division by zero’ 

C=0& N=1 ’Overflow’ 

C=0&Z=0 ’Improper argument’ 


Auf den nächsten Seiten finden Sie das Listing der Fließkommaarithme- 
tik, wobei jede Routine auch die Adresse der Sprungtabelle enthält, über 
die sie vom BASIC-Interpreter aus angesprochen wird. In Kapitel 3.6.3 
finden Sie dann die Integerarithmetik, die vom Interpreter immer dann 
benutzt wird, wenn dies möglich ist. Da hierbei immer nur mit 2-Byte- 
Werten gearbeitet wird, ist diese Arithmetik bedeutend schneller als die 
Rechnung mit Fließkommazahlen. Nutzen Sie dies auch in Ihren Program- 
men aus und verwenden Sie wenn immer möglich nur Integervariablen. 
Dies gilt besonders auch für FOR-NEXT-Schleifen (siehe dazu auch Kapi- 
tel 3.2). 
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FLIESSKOMMA-ARITHMETIK 


KR eek ke ee BDID Variable von (de) nach (hi) kopieren 


2E18 E5 push hl 

2E19 D5 push de 

2E1A C5 push bc 

2E1B EB ex de,hl 

2E1C 010500 Id bc,0005 5 Bytes 
2E1F EDBO Idir kopieren 
2E21 EB ex de,hl 

2E22 2B dee hl 

2E23 TE Id a,(hl) a = Exponent 
2E24 C1 pop be 

2E25 DI pop de 

2E26 E1 pp hl 

2E27 37 scf 

2E28 C9 ret 
te BD4AO Integer nach Fließkomma wandeln 
2E29 D5 push de 

2E2A C5 push bc 

2E2B F67F or 7F 

2E2D 47 Id b,a 

2E2E AF xor a 

2E2F 12 Id (de),a 

2E30 13 inc de 

2E31 12 Id (de),a 

2E32 13 inc de 

2E33 O0E9O Id c,90 Exponent, 2115 
2E35 7C Id a,h 

2E36 B7 or a 

2E37 2008 jr nz,2E41 

2E39 4F Id c,a 

2E3A 65 Id hl 

2E3B 6F Id 1,a 

2E3C B4 or h 

2E3D 280D jr z,2E4C 

2E3F 0E88 Id c,88 Exponent, 217 
2E41 FA4B2E ip m,2E4B 

2E44 29 add hl,hl 

2E45 OD dee c 

2E46 B4 or h 

2E47 F2442E jp p,2E44 

2E4A 7C Id a,h 

2E4B AO and b 

2E4C EB ex de,hl 

2E4D 73 Id (hl),e 

2E4E 23 inc hl 

2E4F 77 Id (hl),a 

2E50 23 inc hl 

2E51 71 Id (hl),c 

2652 C1 pop be 

2E53 E1 pp hl 

2E54 C9 ret 
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FLIESSKOMMA-ARITHMETIK 


KRRKEKKEKEEEEEEerrra BDAI 4-Byte-Wert nach Fließkomma wandeln 


2655 05 push bc 

2E56 0100A0 Id bc,A000 Exponent, 2131 
2E59 CD602E cal 2E60 konvertieren 
2E50 C1 pop be 

2E5D C9 ret 


KR BDI4 A-Byte-Werts256 nach Fließkomma wandeln 
2ESE 06A8 Id b,A8 Exponent, 2139 


2E60 D5 push de 

2E61 CDA136 cal 36A1 Konversion 
2E64 Di pop de 

2E65 C9 ret 
er e BDA6 Fließkomma nach Integer 
2E66 ES push hl 

2E67 DDE1I pop ix 

2E69 AF xor a 

2E6A DD9604 sub (ix+04) Exponent 
2E6D 281B jr 2,2E8A Zahl gleich null ? 
2E6F C690 add 4,90 

2E71 DO ret nc 

2E72 D5 push de 

2E73 C5 push bc 

2E74 C610 add a10 

2E76 CD3D36 cal 363D 

2E79 CB21 sia c 

2E7B ED5A adc hi,de 

2E7D 2808 jr 2,2E87 

2E7F DD7EO3 Id a,(ix+03) Vorzeichen der Mantisse 
2E82 B7 or a 

2E83 3F ccf 

2E84 C1 pop be 

2E85 D1 pop de 

2E86 C9 ret 

2E87 9F sbc aa 

2E88 18F9 jr 2683 

2EBA 6F Id 1,a 

2E8B 67 Id h,a Null nach hi 
2E8C 37 scf 

2E8D C9 ret 
ee BD49 Fließkomma nach Integer 
2EBE CDA12E cal 2EA1 FIX 

2E91 DO ret nc 

2E92 FO ret p 

2E93 E5 push hl 

2E94 79 Id a,C 

2E95 34 ine (hi) 

2E96 2006 ir nz,2E9E 

2E98 23 inc hl 

2E99 3D de a 

2E9A 20F9 jr nz,2E95 
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FLIESSKOMMA-ARITHMETIK 


2E9C 34 inc (hl) 

2E9D 0C inc c 

2E9E E1 pop hl 

2E9F 37 scf 

2EAQ C9 ret 
Bere BDAC FIX 
2EA1 E5 push hl 

2EA2 D5 push de 

2EA3 E5 push hi 

2EA4 DDEI pop ix 

2EA6 CD0436 cal 3604 FIX-Funktion 
2EA9 DI pop de 

2EAA Ei pp hl 

2EAB C9 ret 
Be BDAF INT 
2EAC CDA12E cal 2EA1 FIX 

2EAF DO ret nc 

2EBO C8 ret z 

2EB1 CB78 bit 7,b 

2EB3 C8 ret z 

2EB4 18DD jr 2E93 
Be BD52 
2EB6 CDE835 cal 35E8 SGN 

2EB9 47 Id b,a 

2EBA 2852 jr z,2FOE 

2EBC FCFB35 cal m,35FB negativ, dann Vorzeichenwechsel 
2EBF E5 push hl 

2ECO DD7EO4 Id a,(ix+04) Exponent 
2EC3 D680 sub 80 normalisieren 
2EC5 5F Id e,a 

2EC6 9F sbc aa 

2EC7 57 Id d,a 

2EC8 6B Id l,e 

2EC9 62 Id h,d 

2ECA 29 add hi,hl 

2ECB 29 add hi,hl 

2ECC 29 add hl,hl 

2ECD 19 add hl,de 

2ECE 29 add hi,hl mal 77 

2ECF 19 add hi,de 

2EDO 29 add hl,hl 

2ED1 29 add hl,hl 

2ED2 19 add hi,de 

2ED3 7C Id a,h 

2ED4 D609 sub 09 

2ED6 5F Id 8,4 

2ED7 Ei pp hl 

2ED8 C5 push bc 

2EDI D5 push de 

2EDA CA1F2F cal nz,2FiF Zahl mit 10fa multiplizieren 
2EDD FD21132F Id iy,2F13 3124999.98 
2EE1 CDA035 cal 35A0 Vergleich 
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FLIESSKOMMA-ARITHMETIK 


2EE4 281B jr z,2F01 gleich ? 
2EE6 3008 ir nc,2EFO größer ? 
2EE8 CD1234 cal 3412 Multiplikation mit 10 
2EEB DI pop de 

2EEC 1D dc e 

2EED D5 push de 

2EEE 18ED jr 2EDD 

2EFO FD21182F Id iy,2F18 1E9 
2EF4 CDA035 cal 35A0 Vergleich 
2EF? 3808 jr c,2F01 kleiner ? 
2EF9 CD9B34 cal 349B Division durch 10 
2EFC DI pop de 

2EFD 1C inc € 

2EFE D5 push de 

2EFF 18EF jr 2EFO 

2F01 CDBE2E cal 2EBE 

2F04 79 Id a,C 

2F05 DI pop de 

2F06 C1 pop bc 

2F07 4F Id c,a 

2F08 3D dc a 

2F09 85 add al 

2F0A 6F Id 1,a 

2F0oB DO ret nc 

2F0C 24 inc h 

2F0OD C9 ret 

2FOE 5F Id e,a 

2FOF 77 Id (h)),a 

2F10 O0EO1 Id c,01 

2F12 C9 ret 


Le ZZ u zz ZZ ZZ u ZZ ZZ ZZ Z 2 zz zZ zz ZZ z Z zZ Z Z zz Z Z Z zz Z Z Z ZZ Z z z z z 2 Z zz = 3 


2F13 FO IF BC 3E 96 
2F18 FE 27 6B 6E 9E 


3124999.98 
1E9 


er BD55 Zahlmit 10Ta multiplizieren 


2FiD 2F epl a 
2FIE 3C inc a 
2FiF B7 or a 
2F20 37 scf 

2F21 08 ret z 
2F22 4F Id c,a 
2F23 F2282F ip p,2F28 
2F26 2F pl a 
2F27 3C inc a 
2F28 CD3E2F cal 2F3E 
2F2B 2809 jr z,2F36 
2F2D C5 push bc 
2F2E F5 push af 
2F2F CD362F cal 2F36 
2F32 Fi pop af 
2F33 01 pop bc 
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2F34 18F2 


2F36 79 
2F37 B7 
2F38 F29E34 
2F3B (31534 


2F3E 118F2F 
2F41 D60D 
2F43 DO 
2F44 C60C 
2F46 5F 
2F47 87 
2F48 87 
2F49 83 
2F4A 0653 
2F4C 5F 
2F4D CE2F 
2F4aF 93 
2F50 57 
2F51 AF 
2F52 09 


jr 


Id 
or 
p 
Ip 
Id 
sub 
ret 
add 
Id 
add 
add 
add 
add 
Id 
adc 
sub 
Id 
xor 
ret 


2F28 
a,C 


a 
p,349E 
3415 


de,2F8F 
0D 
nc 
a,0C 
e,a 
a,a 
a,a 
a,e 
a,53 
6,4 
a,oF 
e 
d,a 
a 


FLIESSKOMMA-ARITHMETIK 


Division 
Multiplikation 
1613 

-13 

größer gleich ? 
+12 


mal 5 


2F53, Zehnerpotenzen 


RR Fließkommakonstanten 


2F53 00 00 00 20 84 
2F58 00 00 00 48 87 
2F5D 00 00 00 7A 8A 
2F62 00 00 40 1C 8E 
2F67 00 00 50 43 91 
2F6C 00 00 24 74 94 
2F7i1 00 80 96 18 98 
2F76 00 20 BC 3E 9B 
2F7B 00 28 6B 6E 9E 
2F80 00 F9 02 15 A2 
2F85 40 B7 43 3A AS 
2F8A 10 B5 D4 68 AB 
aF8F 2A E7 84 11 AC 


10 

100 

1000 
10000 
100000 
1000000 
10000000 
100000000 
1E9 

1E10 
1E11 
1E12 
1E13 


RR BDI7 AND Init 


2F94 216589 
2F97 22E6B8 
2F9A 21076C 
2F9D 22E4B8 
2FAO CI 


Id 
Id 
Id 
Id 
ret 


h1,8965 


(B8E6),hl 


hl,6007 


(BSE4),hl 


KR rer rn BDYA Random Seed 


2FA1 EB 
2FA2 CD942F 
2FAS EB 
2FA6 CDE835 
2FA9 C8 
2FAA 11E4B8 
2FAD 0604 
2FAF 1A 
2FBO AE 


ex 
call 
ex 
call 
ret 
Id 
Id 
Id 
xor 


de,hl 


2F94 


de,hl 
35E8 


zZ 
de,B8E4 


b,04 
a,(de) 


(hi) 


RND Init 
SGN 


Zeiger auf RND-Mantisse 
4 Bytes 


neue Mantisse bilden 
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2FB1 12 
2FB2 13 
2FB3 23 
2FB4 10F9 
2FB6 C9 


FLIESSKOMMA-ARITHMETIK 


Id (de),a 

inc de 

inc hl 

dinz 2FAF nächstes Byte 


ret 


KR re BDID AND 


2FB7 E5 push hl 
2FB8 2AE6BB Id hl,(BBE6) 
2FBB 01076C Id bc,6C07 
2FBE CDFA2F cal 2FFA 
2FCI E5 push hl 
2FC2 2AE4B8 Id hl,(B8E4) 
2FC5 016589 Id bc,8965 
2FC8 CDFA2F cal _2FFA 
2FCB D5 push de 
2FCC E5 push hl 
2FCD 2AE6B8 Id hl,(BBE6) 
2FDO CDFA2F cal _2FFA 
2FD3 E3 ex (sp),hl 
2FD4 09 add hl,bc 
2FD5 22E4B8 Id (B8E4),hl 
2FD8 Ei pp hl 
2FD9 01076C Id bc,6007 
2FDC ED4A ade hl,be 
2FDE C1 pop be 
2FDF 09 add hl,be 
2FEO C1 pop be 
2FEI 09 add hl,be 
2FE2 22E6B8 Id (B8E6),hl 
2FE5 E1 pp hl 
Bere BDAO letzten RND-Wert holen 
2FE6 ES push hl 

2FE7 DDE1I pop ix 

2FE9 2AE4B8 Id hi,(B8E4) 
2FEC ED5BE6B8 Id de,(B8E6) 
2FFO 010000 Id bc,0000 
2FF4 DD360480 Id (ix+04),80 Exponent 
2FF7 C3B136 ip 36B1 
2FFA EB ex de,hl 
2FFB 210000 Id h1,0000 
2FFE 3E11 Id a,11 
3000 3D de a 

3001 08 ret z 

3002 29 add hi,hl 
3003 CB13 rl e 

3005 CB12 rl d 

3007 30F7 jr nc,3000 
3009 09 add hl,be 
300A 30F4 jr nc,3000 
3000 13 inc de 
300D 18F1 ir 3000 
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FLIESSKOMMA-ARITHMETIK 


Kr BDB2 LOGIO 


300F 118B30 Id de,308B LOG10(2) 

3012 1803 jr 3017 
RR rer BDTF LOG 
3014 118630 Id de,3086 LOG(2) 

3017 CDE835 cal 35E8 SGN 

301A 3D de a 

301B FEO1 cp 01 

301D DO ret nc 

301E D5 push de 

301F CD6C35 cal 356C Exponent testen 

3022 F5 push af 

3023 DD360480 Id (ix+04),80 Exponent, Zahl 0.5 bis 1 
3027 118130 Id de,3081 1/SORL) 

302A CDYA35 cal 359A Vergleich 

302D 3006 jr nc,3035 größer ? 

302F DD3404 inc (ix+04) Exponent erhöhen, Zahl mal 2 
3032 Fi pop af 

3033 3D dc a 

3034 F5 push af 

3035 CD1633 cal 3316 Ergebnis zwischenspeichern 
3038 D5 push de 

3039 113233 Id de,3332 1 

303C CD3F33 cal 333F Addition 

303F EB ex de,hl 

3040 E1 pop hl 

3041 D5 push de 

3042 113233 Id de,3332 1 

3045 C0D3733 cal 3337 Subtraktion 

3048 Di pop de 

3049 CDIE34 cal 349E Division 

3040 CDA9Y32 cal 32A9 Polynomberechnung 
Bee Fließkommakonstanten für LOG 
304F 04 Polynomgrad 

3050 4C 4B 57 5E 7F 0.434259751 

3055 OD 08 9B 13 80 0.576584342 

305A 23 93 38 76 80 0.961800762 

305F 20 3B AA 38 82 2.88539007 
PETE nun nn nen ee Ze u m Ze ee ZZ Ze ZZ Z 2 2 ZZ 2 Z 2 u ZZ Z zz Z 2 2 2 3 
3064 D5 push de 

3065 CD1534 cal 3415 Multiplikation 

3068 Di pop de 

3069 E3 ex (sp),hl 

306A 7C Id a,h 

306B B7 or a 

3060 F27130 ip p,3071 

306F 2F cpl a 

3070 3C inc a 

3071 6F Id l,a 

3072 7C Id a,h 

3073 2600 Id h,00 

3075 CD292E cal 2E29 Integer nach Fließkomma wandeln 
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FLIESSKOMMA-ARITHMETIK 


3078 EB ex de,hl 

3079 E1 pop hl 

307A CD3F33 cal 333F Addition 

307D Di pop de 

307E C31534 ip 3415 Multiplikation 

LE 2 2 2 z z z z z z z Z z z z z zZ z z z z Z Z zz Z Z 2 zz Z ZZ ZZ Z Z 2 2 2 2 2 2 Z 2 2 2 2 2 2 2 2 2 2 23 
3081 34 F3 04 35 80 .707106781 1/SQR(2) 

3086 F8 17 72 31 80 ‚693147181 LOG(2) 

308B 85 9A 20 1A 7F ‚301029996 LOG10(2) 


KE rr BDB5 EXP 


3090 O6E1 Id b,E1 


3092 CD0733 cal 3307 Exponent vergleichen 

3095 D22833 ip nc,3328 1 als Ergebnis 

3098 110031 Id de,3100 LOG(größte darstellbare Zahl) 

309B CDYA3S cal 359A Vergleich 

309E F2EC36 ip P,36EC größer, dann Überlauf 

30A1 110531 Id de,3105 LOG(kleinste darstellbare Zahl) 

30A4 CD9YA35 cal 359A Vergleich 

30A7 FAE636 ip m,36E6 kleiner, dann Unterlauf, Null 

30AA 11FB30 Id de,30FB 1/LOG(2) 

30AD CDD432 cal 32D4 

30B0 7B Id a,e 

30B1 F2B630 jp p,30B6 

30B4 ED44 ng a 

30B6 F5 push af 

3087 CD1D33 cal 331D multiplizieren 

30BA CDOF33 cal 330F Variable zwischenspeichern 

30BD D5 push de 

30BE CDAC32 cal Y2AC Polynomberechnung 
Kr Fließkommakonstanten für EXP 
30C1 03 Polynomgrad 

30C2 F4 32 EB OF 73 6.86258E-5 

30C7 08 B8 D5 52 7B 2.57367E-2 

30CC 00 00 00 00 80 0.5 

DEZ ZZ z z z z z z z zZ z zz Z zZ z ZZ z Z 2 zz ZZ zz zz 2 2 2 2 2 2 2 2 2 2 2 2 Ze 2 2 ee 2 2 ee 7 
30D1 E3 ex (sp),hl 

30D2 CDAC32 cal 32AC Polynomberechnung 

KK EEK Fließkommakonstanten für EXP 
30D5 02 Polynomgrad 

30D6 09 60 DE 01 78 1.98164E-3 

30DB F& 17 72 31 7E 0.173286795 

LEE zZ 2 Z 2 z z Z z 2 2 ZZ Z 2 2 2 zz 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 Ze ee ee ee 7 
30E0 CD1534 cal 3415 Multiplikation 

30E3 DI pop de 

30E4 E5 push hl 

30E5 EB ex de,hl 

30E6 CD3733 cal 3337 Subtraktion 

30E9 EB ex de,hl 

30EA E1 pp hl 

30EB CDIE34 cal 349E Division 
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FLIESSKOMMA-ARITHMETIK 


30EE 11CC30 Id de,30CC 0.5 

30F1 CD3F33 cal 333F Addition 

30F4 DD3404 inc (ix+04) Exponent erhöhen, Zahl mal 2 

30F7 Fi pop af 

30F8 C37B35 ip 357B Zahl mit 2fa multiplizieren 
PEITTTTTIERTEEOO U EEEEEEE EE EEEEEEEEE E nn 
30FB 29 3B AA 38 81 1.44269504 1/LOG(2) 

3100 C7 33 OF 30 87 88.0269919 LOG(größte Zahl) 

3105 F8 17 72 Bi 87 -88.7228391 LOGI(kleinste Zahl) 
RB 66% BD79 SOR 
310A 11CC30 Id de,30CC 0.5 


KR BD7C Potenzierung 
310D EB ex de,hl 


310E CDE835 cal 35E8 SGN, Vorzeichen des Exponents 
3111 EB ex de,hl 

3112 CA2833 jp 2,3328 Null, dann 1 als Ergebnis 
3115 F5 push af 

3116 CDE835 cal 35E8 SGN, Vorzeichen der Basis 
3119 2825 jr 2,3140 

311B 47 Id b,a 

3110 FCFB35 cal m,35FB negativ, dann Vorzeichenwechsel 
311F E5 push hl 

3120 CD8231 cal 3182 

3123 E1 pp hl 

3124 3825 jr c,314B 

3126 E3 ex (sp),hl 

3127 E1 pp hl 

3128 FA4831 jp m,3148 

312B C5 push bc 

312C D5 push de 

312D CD1430 cal 3014 LOG 

3130 DI pop de 

3131 DC1534 cal c,3415 Multiplikation 

3134 DC9030 cal c,3090 EXP 

3137 01 pop bc 

3138 DO ret nc 

3139 78 Id a,b 

313A B7 or a 

313B FCFB35 cal m,35FB negativ, dann Vorzeichenwechsel 
313E 37 scf 

313F C9 ret 

3140 Fi pop af 

3141 37 scf 

3142 FO rt  p i 

3143 CDEC36 cal 36EC Überlauf 

3146 AF xor a 

3147.C9 ret 

3148 AF xor a 

3149 3C inc a 

314A C9 ret 


312 


314B 
314C 
314D 
314E 
314F 
3150 
3151 

3152 

3154 

3155 

3158 
3159 
315A 
315B 
315D 
315E 
3161 

3163 
3164 
3166 
3167 
316A 
316D 
316F 
3170 


3172 
3173 
3174 
3177 


3179 
317A 
317B 
317C 
317F 


3182 
3183 
3186 
3189 
318A 
318B 
318D 
318F 
3190 
3191 


3192 
3193 
3194 
31% 
3196 
3197 
3198 


4F 
Fi 

C5 

F5 

79 

37 

8F 
30FD 
4 
CDOF33 
EB 

78 

87 
2815 
F5 
CD1033 
3016 
Fl 
30F4 
F5 
11E8B8 
CD1534 
300A 
rl 
18E8 


Fi 

37 
FCFD32 
18BE 


Fi 
Fl 
C1 
FAE636 
C3EE36 


05 
CD1733 
CDA12E 
79 

c1 

3002 
2803 

78 

B7 

c9 


4F 
TE 
1F 
9F 
AO 
47 
79 


ra 
sbc 
and 
Id 
Id 
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c,a 
af 
bc 
af 
a,C 


a,a 
nc,3151 
b,a 
330F 
de,hl 
a,b 

a,a 
2,3172 
af 

331D 
nc,3179 
af 
nc,315A 
af 
de,B8E8 
3415 
nc,3179 
af 

315A 


af 


m,32FD 
3137 


af 

bc 
m,36E6 
36EE 


3317 
2EA1 
a,C 


nc,318F 


2,3192 
a,b 


c‚a 
a,(hl) 


a,a 


b,a 
a,C 


Variable zwischenspeichern 


mit Zwischenergebnis multiplizieren 


Multiplikation 


Kehrwert bilden 


Unterlauf, Null 
Überlauf 


Zwischenergebnis holen 
FIX 
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3199 FEO2 cp 02 

319B 9F sbc aa 

319C DO ret nc 

319D 7E Id a,(hl) 

319E FE27 cp 27 

31A0 D8 ret c 

31A1 AF xor a 

31A2 C9 ret 
KR BDT6 Pl 
31A3 11A931 Id de,31A9 7 

31A6 C3182E ip 2E18 Variable holen 

PERF EEE EEE EEE EEE EEE nn 
31A9 A2 DA OF 49 82 3.14159265 7 
ek eer BD73 2 DEG/RAD 
31AE 32F7B8 Id (B8F7),a 

31B1 C9 ret 
ter BDBB COS 
31B2 CDE835 cal 35E8 SGN 

3185 FCFB35 cal m,35FB negativ, dann Vorzeichenwechsel 

31B8 F601 or 01 

31BA 1801 jr 31BD 


tn BDBB SIN 


31BC AF xor a 


31BD F5 push af 

31BE 111032 Id de,321D 1m 

31C1 06F0 Id b,FO 

3103 3AF7B8 Id a,(B8F7) DEG? 

3106 B7 or a 

31C7 2805 ir z,31CE 

3109 112232 Id de,3222 1/180 

31CC 06F6 Id b,F6 

31CE CD0733 cal 3307 Exponent vergleichen 
31D1 303A jr nc,320D 

31D3 Fi pop af 

31D4 CDD532 cal 32D5 

31D7 DO ret nc 

31D8 7B Id a,e 

31D9 IF ra 

31DA DCFB35 cal c,35FB Vorzeichenwechsel 
31DD 06E8 Id b,E8 

31DF CD0733 cal 3307 Exponent vergleichen 
31E2 D2E636 ip nc,36E6 Unterlauf, Null 

31E5 DD3404 ine  (ix+04) Exponent erhöhen, Zahl mal 2 
31E8 CDA932 cal 32A9 Polynomberechnung 
er eree a Fließkommakonstanten für SIN 
31EB 06 Polynomgrad 

31EC 1B 2D 1A E6 6E -3.42879E-6 

31F1 F8 FB 0728 74 1.60247E-4 

31F6 01 89 68 99 79 -4.68165E-3 
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3ıFB Ei DF 35 23 7D 7.96926E-2 

3200 28 E7 5D A5 80 -0.645964095 

3205 A2 DA OF 49 81 1.57079633 7/2 

LE 2 zz 2 zZ 2 2 2 2 zz 2 zz — zZ 2 z 2 2 2 2 ZZ 2 2 2 2 Z 2 2 2 z z 2 2 Z 2 — 2 2 Z 2 ZZ 2 zZ z zz > 
320A 031534 ip 3415 Multiplikation 

320D Fi pop af 

320E 022833 ip nz,3328 SIN ?, dann 1 als Ergebnis 

3211 3AF7B8 Id a,(B8F7) 

3214 FEO1 cp 01 DEG? 

3216 D8 ret c nein, fertig 

3217 112732 Id de,3227 mit 7/180 

321A 031534 ip 3415 multiplizieren 

LE 2 zz 2 zz 2 2 zZ 2 Z 2 ZZ z z 2 2 z z z zz Z Z z z z zZ Z Z Z z z z z z Z z z Z 2 Z Z Z z z z z ZZ z 3 
321D 6E 83 F9 22 7F 0.318309886 1/7 

3222 B6 60 0B 36 79 5.55556E-3 1/180 

3227 13 35 FA 0E 7B 1.74533E-2 17/180 

3220 D3 EO 2E 65 86 57.2957795 180/r 
Br BDBE TAN 
3231 CDOF33 cal 330F Zahl zwischenspeichern 

3234 D5 push de 

3235 CDB231 cal 31B2 COS 

3238 E3 ex (sp),hl 

3239 DCBC31 cal c,31BC SIN 

3230 DI pop de 

323D DAYE34 ip c,349E Division 

3240 C9 ret 
RR BDII ATN 
3241 CDE835 cal 35E8 SGN 

3244 F5 push af 

3245 FCFB35 cal m,35FB negativ, dann Vorzeichenwechsel 

3248 06F0 Id b,FO 

324A CD0733 cal 3307 Exponent vergleichen 

324D 304A jr nc,3299 

324F 3D dc a 

3250 F5 push af 

3251 F4FD32 cal p,32FD Kehrwert bilden 

3254 CDA932 cal 32A9 Polynomberechnung 
Re Fließkommakonstanten für ATN 
3257 OB Polynomgrad 

3258 FF 0103 0F 77 1.09112E-3 

325D 83 FC E8 EB 79 -7.19941E-2 

3262 6F CA 78 36 7B 2.22744E-2 

3267 D5 3E BO B5 7C -4.43575E-2 

3260 BO C1 8B 09 7D 6.71611E-2 

3271 AF E8 32 B4 7D -8.79877E-2 

3276 74 6C 65 62 7D 0.110545013 

327B Di F5 37 92 7E -0.142791596 

3280 7A C3 CB4C TE 0.199996046 

3285 83 AT AA AA 7F -0.333333239 
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328A FE FF FF FF 7F 0.5 

KERKKKKRR TFT € 
328F CD1534 cal 3415 Multiplikation 

3292 Fi pop af 

3293 110532 Id de,3205 nl2 

3296 F43B33 cal p,333B Subtraktion 

3299 3AF7B8 Id a,(B8F7) DEG? 

3290 B7 or a 

329D 112032 Id de,322C 180/7 

32A0 (41534 cal n2,3415 falls DEG dann multiplizieren 
32A3 Fi pop af 

32A4 FCFB35 cal m,35FB negativ, dann Vorzeichenwechsel 
32A7 37 scf 

32A8 C9 ret 
Kerr Polynomberechnung 
32A9 CD1D33 cal 331D multiplizieren 

32AC CD1633 cal 3316 Variable zwischenspeichern 
32AF EB ex de,hl 

32B0 D1 pop de 

32B1 1A Id a,(de) Polynomgrad holen 

32B2 13 inc de 

32B3 47 Id b,a nach b 

32B4 CDI82E cal 2E18 Variable holen 

32B7 13 inc de 

32B8 13 inc de 

32B9 13 inc de plus 5, nächster Koeffizient 
32BA 13 inc de 

32BB 13 inc de 

32BC D5 push de 

32BD 11EDB8 Id de,B8ED Zwischenspeicher 

32C0 05 dc b nächster Koeffizient 

32C1 C8 ret z 

32C2 C5 push bc 

32C3 11F2B8 Id de,B8F2 Zwischenspeicher 

32C6 CD1534 cal 3415 Multiplikation 

3209 C1 pop be 

32CA DI pop de 

32CB D5 push de 

32CC C5 push bc 

32CD CDIF3I cal 333F Addition 

32D0 C1 pop bc 

32D1 DI pop de 

32D2 18E3 jr 32B7 


Eu En En nn ZZ ZZ ZZ ZZ ZZ ZIELE ZZ 


32D4 AF xor a 


32D5 F5 push af 

3206 CD1534 cal 3415 Multiplikation 

32D9 Fi pop af 

32DA 11CC30 Id de,30CC 0,5 

32DD C43F33 cal nz,333F Addition 

32E0 E5 push hl 

32E1 CD662E cal 2E66 Fließkomma nach Integer 
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32E4 3013 ir nc,32F9 

32E6 DI pop de 

32E7 E5 push hl 

32E8 F5 push af 

32E9 D5 push de 

32EA 11EDB8 Id de,B8ED 

32ED CD292E cal 2E29 Integer nach Fließkomma wandeln 
32F0 EB ex de,hl 

3Fl E1 pp hl 

32F2 CD3733 cal 3337 Subtraktion 

32F5 Fi pop af 

32F6 DI pop de 

32F7 37 scf 

32F8 C9 ret 

32F9 E1 pop hl 

32FA AF xor a 

32FB 3C inc a 

32FC C9 ret 
Kr rare Kehrwert bilden 
32FD CD1633 cal 3316 Variable zwischenspeichern 
3300 EB ex de,hl 

3301 CD2833 cal 3328 1 holen 

3304 C39E34 jp 349E Division 


re Exponent vergleichen 


3307 CD6C35 cal 356C 


330A FO ret p 
330B B8 cp b 
330C C8 ret z 
330D IF ccf 
330E C9 ret 


re & Variable zwischenspeichern 
330F EB ex de,hl 
3310 21E8B8 Id h1,B8E8 
3313 C3182E jp 2E18 


Zieladresse 
Variable kopieren 


ar Variable zwischenspeichern 


3316 EB ex de,hl 


3317 21F2B8 Id hl,B8F2 

331A C3182E jp 2E18 Variable holen 

EZ zz z z z z z z z z z ZZ z z zz Z z z z zZ ZZ 2 2 zZ Z 2 2 2 zz ZZ zz 2 2 2 2 Ze u Ze ee u u zz 0 
331D EB ex de,hl 

331E 21EDB8 Id hl,B8ED 

3321 CD182E cal 2E18 Variable holen 

3324 EB ex de,hl 

3325 (31534 ip 3415 Multiplikation 
Kerr Konstante 1 holen 
3328 D5 push de 

3329 113233 Id de,3332 1 

332C CD182E cal 2E18 Variable holen 
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332F DI pop de 
3330 37 scf 
3331 C9 ret 


Eu nun nn ZZ ZZ ZZ ZZ ZZ a zo 


3332 00 00 00 00 81 1 


kr BD5B Subtraktion (hl) := (hl) - (de) 
3337 3E01 Id a,01 
3339 1805 jr 3340 


ker BD5E Subtraktion (hl) := (de) - (hi) 
333B E80 Id a,80 


333D 1801 jr 3340 
Re BD5B Addition (hi) := (hi) + (de) 
333F AF xor a Carry löschen 
3340 E5 push hl 

3341 DDE1 pop ix 

3343 D5 push de 

3344 FDE1 pop iy 

3346 DD4603 Id b,(ix+03) Vorzeichen erster Operand 
3349 FD4E03 Id c,(iy+03) Vorzeichen zweiter Operand 
3346 B7 or a 

334D 280B jr 2,335A 

334F FAS833 ip m,3358 

3352 3E80 Id a,80 

3354 A9 xor CC 

3355 4F Id c,a 

3356 1802 jr 335A 

3358 AB xor  b 

3359 47 Id b,a 

335A DD7EO4 Id a,(ix+04) Exponenten 
335D FDBEO4 cp (iy+04) vergleichen 
3360 3014 jr nc,3376 

3362 50 Id d,b 

3363 41 Id b,c 

3364 4A Id c,d 

3365 B7 or a 

3366 57 Id d,a 

3367 FD7EO4 Id a,(iy+04) Exponent 
336A DD7704 Id (ix+04),a Exponent 
336D 2854 jr 2,3303 

336F 92 sub d 

3370 FE21 cp 21 

3372 304F jr nc,3303 

3374 1811 jr 3387 

3376 AF xor a 

3377 FD9604 sub (iy+04) Exponent 
337A 2859 jr 2,33D5 

337C DD8604 add a,(ix+04) Exponent 
337F FE21 cp 21 

3381 3052 jr nc,33D5 


318 


3383 ES 
3384 FDEI 
3386 EB 
3387 SF 
3388 78 
3389 A9 
338A F5 
338B C5 
3380 7B 
338D CD4336 
3390 79 
3391 C1 
3392 4F 
339 Fi 
3394 FADA33 
3397 FD7EOO 
339A 85 
339B 6F 
3390 FD7EO1 
339F 8C 
33A0 67 
33A1 FD7EO2 
33A4 8B 
33A5 SF 
33A6 FD7EO3 
33A9 CBFF 
33AB 8A 
33AC 57 
33AD D2BA36 
3380 CB1A 
3382 CB1B 
3384 CBIC 
3386 CB1D 
3388 CB19 
33BA DD3404 
33BD C2BA36 
33C0 C3EE36 


PETE EEE EL EEE EZ ZZ EEE ZZ ZZ Zn ZZ 


33C3 FD7EO2 
33C6 DD7702 
33C9 FD7EO1 
33CC DD7701 
33CF FD7EOO 
33D2 DD7700 
33D5 DD7003 
33D8 37 

3309 C9 


33DA AF 
33DB 91 
33DC 4F 
33DD FD7EOO 
33E0 9D 
33E1 6F 


FLIESSKOMMA-ARITHMETIK 


push hl 

pop iy 

ex de,hl 

Id e,a 

Id a,b 

xor cC 

push af 

push bc 

Id ae 

cal 3643 

Id ac 

pop bc 

Id c,a 

pop af 

jp m,33DA 
Id a,(iy+00) 
add al 

Id 1,a 

Id a,(iy+01) 
ade ah 

Id h,a 

Id a,(iy+02) 
ade ae 

Id e,a 

Id a,(iy+03) 
set 7,a 

ade ad 

Id d,a 

jp nc,36BA 
m d 

m e 

1 h 

m | 

m c 

inc (ix+04) Exponent erhöhen 
ip nz,36BA 5 
ip 36EE Überlauf 
Id a,(iy+02) 
Id (ix+02),a 
Id a,(iy+01) 
Id (ix+01),a 
Id a,(iy+00) 
Id (ix+00),a 
Id (ix+03),b 
scf 

ret 

xor a 

sub c 

Id c,a 

Id a,(iy+00) 
sbe a, 

Id 1,a 
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33E2 FD7EOI Id a,(iy+01) 
33E5 IC spe ah 
33E6 67 Id h,a 
33E7 FD7EO2 Id a,(iy+02) 
33EA 9B sbc ae 
33EB SF Id e,a 
33EC FD7EO3 Id a,(iy+03) 
33EF CBFF st 7, 
33F1 9A sbc ad 
33F2 57 Id d,a 
33F3 3016 jr nc,340B 
33F5 78 Id a,b 
33F6 2F cpl a 

33F7 47 Id b,a 
33F8 AF xor a 

33F9 91 sub c 

33FA 4F Id c,a 
33FB 3E00 Id a,00 
33FD 9D sbe al 

33FE 6F Id 1,a 

33FF  3E00 Id a,00 
3401 9C sbcc ah 
3402 67 Id h,a 
3403 3E00 Id a,00 
3405 9B sbce ae 
3406 5F Id e,a 
3407 3E00 Id a,00 
3409 9A sbce ad 
340A 57 Id d,a 
340B 87 add aa 
340C DABA36 jp c,36BA 
340F C3B136 jp 36B1 
tt Multiplikation mit 
3412 11532F Id de,2F53 10 
tt BD6I Multiplikation 
3415 D5 push de 

3416 FDE1 pop iy 

3418 ES push hl 

3419 DDE1 pop ix 

341B FD7EO4 Id a,(iy+04) Exponent 
341E B7 or a 

341F 282C ir 2,344D 
3421 3D dc a 

3422 CD4835 cal 3548 
3425 2826 jr 2,344D 
3427 3021 jr nc,344A 
3429 F5 push af 

342A 05 push bc 
342B CD5034 cal 3450 
342E 79 Id a,C 
34aaF C1 pop be 

3430 4F Id c,a 
3431 Fi pop af 
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3432 CB7A bit 7,d 
3434 200D jr nz,3443 
3436 3D dc a 

3437 2814 jr 2,344D 
3439 CB21 sia c 

343B CB15 rl | 

343D CB14 rl h 

343F CB13 rl e 

3441 CB12 rl d 

3443 DD7704 Id (ix+04),a Exponent 
3446 B7 or a 

3447 C2BA36 ip nz,36BA 
344A C3EE36 ip 36EE Überlauf 
344D C3E636 jp 36E6 Unterlauf 
DEZ ZZ zz z z z z z z z zz z z z z Z Z z z z z Z Z z z 2 zZ ZZ zz 2 Z ZZ 2 2 2 ZZ zZ 2 2 2 2 zZ zz 7 
3450 210000 Id h1,0000 
3453 5D Id el 

3454 54 Id d,h 
3455 FD7EOO Id a,(iy+00) 
3458 CD9334 cal 3493 
345B FD7EO1 Id a,(iy+01) 
345E 009334 cal 3493 
3461 FD7EO2 Id a,(iy+02) 
3464 CD9334 cal 3493 
3467 FD7EO3 Id a,(iy+03) 
346A F680 or 80 
3460 0608 Id b,08 
346E IF rra 

346F 4F Id c,a 
3470 3014 jr nc,3486 
3472 7D Id a,l 

3473 DD8600 add a,lix+00) 
3476 6F Id 1,a 

3477 7C Id a,h 
3478 DD8EO1 adc a,(ix+01) 
347B 67 Id h,a 
347C 7B Id ae 
347D DD8E02 adc a,(x+02) 
3480 5F Id e,a 
3481 7A Id a,d 
3482 DD8E03 adce a,ix+03) 
3485 57 Id d,a 
3486 CB1A rm d 

3488 CB1B 0 e 

348A CBIC m h 

348C CB1D m | 

348E CB19 rm C 

3490 10DE dinz 3470 
3492 C9 ret 


FLIESSKOMMA-ARITHMETIK 
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3493 B7 
3494 20D6 
3496 6C 
3497 63 
3498 5A 
3499 57 
349A C9 


or 
jr 
Id 
Id 
Id 
Id 
ret 


a 
nz,346C 
l,h 

he 

e,d 

d,a 


FLIESSKOMMA-ARITHMETIK 


KR re Division durch 10 


349B 11532F 


KR rer e BD6A Division 


349E D5 
349F FDEI 
34A1 E5 
34A2 DDEI 
34A4 AF 
34A5 FD9604 
34A8 2858 
34AA CD4835 
34AD CAE636 
3480 304D 
3482 C5 
3483 4F 
34B4 5E 
3485 23 
34B6 56 
3487 23 
3488 TE 
3489 23 
34BA 66 
34BB 6F 
34BC EB 
34BD FD4603 
34C0 CBF8 
3402 CD3235 
3405 3006 
3407 79 
3408 B7 
3409 2008 
34CB 1831 


34CD 0D 
34CE 29 
34CF CB13 
34D1 CB12 
34D3 DD7104 
34D6 CD0735 
34D9 DD7103 
34DC CD0735 
34DF DD7102 
34E2 CD0735 
34E5 DD7101 
34E8 CD0735 
34EB D43235 


Id de,2F53 
push de 

pop iy 

push hl 

pop ix 

xor a 

sub (iy+04) 
jr 2,3502 
cal 3548 

ip 2,36E6 
jr nc,34FF 
push bc 

Id c,a 

Id e,(hl) 

inc hl 

Id d,{hl) 

inc hl 

Id a,(hl) 

inc hl 

Id h,(h!) 

Id 1,a 

ex de,hl 

Id b,liy+03) 
set 7.b 

cal 2532 

jr nc,34CD 
Id a,C 

or a 

jr nz,34D3 
jr 34FE 
dee c 

add hi,hl 

rl e 

rl d 

Id (ix+04),c 
cal 3507 

Id (ix+03),c 
cal 3507 

Id (ix+02),c 
cal 3507 

Id (x+01),c 
cal 3507 
cal nc,3532 


Exponent 


Unterlauf 


Exponent 
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34EE 
34EF 
34F0 
34F3 
34F6 
34F9 
34FA 
34FB 


34FE 
34FF 


3502 
3505 
3506 


3507 
3509 
350B 
350C 
350D 
350E 
3511 

3513 
3514 
3517 
3518 
3519 
351C 
351D 
351E 
3521 

3522 
3523 
3524 
3525 
3526 
3528 
3529 
352A 
352C 
352E 
352F 
3531 


3532 
3933 
3534 
3535 
3536 
3537 
353A 
353B 
353C 
353D 


9F 
69 
DD6601 
DD5EO2 
DD5603 
C1 
4F 
C3BA36 


1 
C3EE36 


CD9435 
AF 
cg 


0EO1 
3808 
7A 

B8 

3F 
CC3635 
3013 
7D 
FD9600 
6F 

7C 
FDIEO! 
67 

7B 
FDIEO2 
5F 

7A 

98 

57 

37 
cB11 
9F 

29 
CB13 
CB!2 
3C 
2008 
cg 


7A 
B8 
3F 
co 
7B 
FDBEO2 
3F 
co 
7C 
FDBEO1 


sbc 
Id 
Id 


Id 
pop 
Id 


pop 
Ip 


call 
xor 
ret 


sbc 


sbc 
add 


ret 


Id 

cp 
ccf 
ret 


cp 
ccf 
ret 


cp 
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a,a 
l,c 
h,(ix+01) 
e,(ix+02) 
d,(ix+03) 
bc 

ca 
36BA 


bc A 
36EE Überlauf 


3594 
a 


c,01 
c,3513 
a,d 

b 


2,3536 
nc,3526 
a,l 
(iy+00) 
1,a 

a,h 
a,(iy+01) 
h,a 

ae 
a,(iy+02) 
e,a 

a,d 

a,b 

d,a 


c 
a,a 
hl,hl 
e 

d 


a 

nz,3509 

a,d 

b 

nz 

ae 

(iy+02) 

nz 

a,h 

(iy+01) 
323 


FLIESSKOMMA-ARITHMETIK 


3540 3F ccf 

3541 CO ret nz 

3542 7D Id a,l 

3543 FDBEOO cp (iy+00) 

3546 3F ccf 

3547 09 ret 

3548 4F Id c,a 

3549 DD7EO3 Id a,(ix+03) 

3540 FDAE03 xor (iy+03) 

354F 47 Id b,a 

3550 DD7EO4 Id a,(ix+04) Exponent 

3553 B7 or a 

3554 08 ret z 

3555 81 add ac 

3556 4F Id c,a 

3557 IF rra 

3558 A9 xor  C 

3559 79 Id a,C 

355A F26835 ip p,3568 

355D DDCBOSFE set 7,(ix+03) Vorzeichen negativ 
3561 D67F sub 7F 

35693 37 sch 

3564 CO ret nz 

3565 FEO1 cp 01 

3567 C9 ret 

3568 B7 or a 

3569 F8 ret m 

356A AF xor a 

356B CI ret 

356C ES push hl 

356D DDE1 pop ix 

356F DD7EO4 Id a,(ix+04) Exponent 

3572 B7 or a 

3573 08 ret z 

3574 D680 sub 80 

3576 37 scf 

3577 C9 ret 
Kr re BD67 mit 2la multiplizieren 
3578 E5 push hl 

3579 DDE1 pop ix 

357B B7 or a Zweierexponent im Akku 
357C FA8935 ip m,3589 negativ ? 

357F DD8604 add a,lix+04) Exponent erhöhen 
3582 DD7704 Id (ix+04),a und wieder abspeichern 
3585 3F ccf 

3586 D8 rt  cC 2 

3587 180B jr 3594 Überlauf ? 
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3589 DD8604 add a,(ix+04) Exponent addieren 
358C 3802 jr c,3590 kein Unterlauf 
358E AF xor a Null als Ergebnis 
358F 37 scf 

3590 DD7704 Id (ix+04),a Exponent wieder abspeichern 
3593 C9 ret 

3594 DD4603 Id b,(ix+03) Vorzeichen der Mantisse 
3597 CDEE36 cal 36EE Überlauf 
er BDA Vergleich 
359A E5 push hl 

359B DDE1I pop ix 

359D D5 push de 

359E FDEI pop iy 

35A0O DD7EO4 Id a,(ix+04) Exponenten 

35A3 FDBEO4 cp (iy+04) vergleichen 

35A6 Y83A jr c,35E2 

35A8 2033 jr nz,35DD 

35AA B7 or a 

35AB 08 ret z 

35AC DD7EO3 Id a,(ix+03) 

35AF FDAE03 xor  (iy+03) 

3582 FADD3S ip m,35DD 

3585 DD7EO3 Id a,(ix+03) 

35B8 FD9603 sub (iy+03) 

35BB 2017 jr nz,35D4 

35BD DD7EO2 Id a,(ix+02) 

35C0 FD9602 sub (iy+02) 

35C3 200F jr nz,35D4 

35C5 DD7EOI Id a,(ix+01) 

35C8 FD9601 sub (iy+01) 

35CB 2007 jr nz,35D4 

35CD DD7EOO Id a,(ix+00) 

35D0 FD9600 sub  (iy+00) 

3503 (8 ret z 

35D4 9F sbc aa 

3505 FDAEO3 xor  (iy+03) 

3508 87 add aa 

3509 9F sbc aa 

35DA D8 ret (6 

35DB 3C inc a 

35DC C9 ret 

35DD DD7EO3 Id a,(ix+03) 

35E0 18F6 jr 35D8 

35E2 FD7EOI Id a,(iy+03) 

35E5 2F cpl a 

35E6 18F0 jr 35D8 
rk BD70O SGN 
3568 E5 push hi 

35E9 DDEI OP ix 

35EB DD7EO4 Id a,(ix+04) Fxponerit 
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35EE 
35EF 
35F0 
35F3 
35F4 
35F5 
35F6 
35F7 


*** 
35F8 
35F9 
35FB 
35FE 
3600 
3603 


“** 
3604 
3605 
3608 
360A 
360C 
360D 
360E 
3610 
3612 
3613 


“*x* 
3614 
3616 
3617 
3618 
361B 
361C 
361D 
361E 
361F 
3620 
3621 

3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
362A 
362B 
362D 
362E 
3630 
3631 


B7 

C8 
DD7EO3 
87 

9F 

D8 . 
3C 

09 


or 
ret 
Id 
add 
sbc 
ret 
inc 
ret 
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a 

zZ 
a,(ix+03) 
a,a 

a,a 

c 

a 


re BD6D Vorzeichenwechsel 


ES 
DDE1 
DD7EO3 
EE80 
DD7703 
cg 


push 
pop 
Id 
xor 
Id 
ret 


h 

ix 

a,(ix+03) Vorzeichen der Mantisse 
80 invertieren 

(ix+03),a 


eu nun nn nn ZZ a ZZ ZZ ZZ ZZ ZZ ZZ u zo FIX 


AF 
DD9604 
200A 
0604 
77 

23 
10FC 
0EO1 
37 

cg 


xor 
sub 
jr 
Id 
Id 
inc 
dinz 
Id 
scf 
ret 


a 

(ix+04) Exponent 

nz,3614 Zahl ungleich Null, dann nach Integer 
b,04 

(hl),a Mantisse löschen 

h 

360C 

c,01 


Re Konvertierung Fließkomma nach Integer 


C6AO 
DO 
E5 
CD3D36 
AF 
B8 
8 
Bi 
4D 
44 
E1 
71 
23 
70 
23 
73 
23 
5f 
TE 
72 
E680 
47 
0EO4 
AF 
B6 


add 
ret 
push 
call 
xor 
cp 
adc 
or 


a,A0 
nc 

h 
363D 
a 
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3632 
3634 
3635 
3636 
3638 
3639 
363A 
363B 
363C 


363D 
363F 
3641 
3643 
3644 
3645 
3646 
3647 
3648 
3649 
364A 
364B 
3640 
364E 
3651 


3653 
3654 
3655 
3656 
3657 
3658 
3659 
365A 
365B 
365C 
365E 
3660 
3662 
3664 
3665 
3667 
3669 
366B 
366D 
366F 
3670 
3672 


3673 
3674 
3675 
3676 
3678 
3679 


2005 
2B 
0D 
20F9 
0C 
7B 
B7 
37 
c9 


FE21 
3802 
3E21 
5E 
23 
56 
23 
4E 
23 
66 
69 
EB 
CBFA 
010000 
180B 


4F 
78 
B5 
47 
79 
4D 
6C 
63 
5A 
1600 
D608 
30F1 
0608 
08 
CB3A 
CB1B 
CBIC 
CB1D 
CB19 


20F3 
c9 


14 
15 


2017 
57 
7B 


jr 
dec 
dec 
jr 
inc 
Id 
or 
scf 
ret 


cp 
jr 
Id 
Id 
inc 
Id 
inc 


inc 


ret 


inc 
dec 
ret 
jr 
Id 
Id 


FLIESSKOMMA-ARITHMETIK 


nz,3639 
h 

(e 
nz,3631 
c 

a,e 

a 


21 
0,3643 
a,21 
e,(hl) 
h 
d,hi) 
h 


chi) 
h 

h,(hl) 
I,c 
de,hl 
7,d 
bc,0000 
365E 


c,a 
a,b 

| 

b,a 

a,C 

cl 

I,h 

h,e 

e,d 
d,00 
08 
nc,3653 
a,08 


»ozoaNn 


nz,3665 


nz,368F 
d,a 
ae 
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367A B4 or h 
367B B5 or | 
367C Bi or c 
367D C8 ret z 
367E 7A Id a,d 
367F D608 suıb 08 
3681 381C jr c,369F 
3683 08 ret z 
3684 53 Id de 
3685 5C Id e,h 
3686 65 Id hl 
3687 69 Id Ic 
3688 OEOO Id c,00 
368A 14 inc d 
368B 15 dece d 
368C 28F1 jr 2,367F 
368E FB ret m 
368F 3D dc a 
3690 C8 ret z 
3691 CB21 sla c 
3693 CB15 rl | 
3695 CB14 rl h 
3697 CB13 rl e 
3699 CB12 rl d 
369B F28F36 ip p,368F 
369E C9 ret 

369F AF xor a 
36AO CI ret 


ra e& Konvertierung Integer nach Fließkomma 
36A1 E5 push hl 


36A2 DDE1 pop ix 

36A4 DD7004 Id (ix+04),b Exponent 
36A7 47 Id b,a 

36A8 SE Id e,(hl) 

36A9 23 inc hl 

36AA 56 Id d,(hl) 

36AB 23 inc hl 

36AC TE Id a,(hl) 

36AD 23 inc hl 

36AE 66 Id h,(hi) 

36AF 6F Id 1,a 

36B0 EB ex de,hl 

36B1 DD7EO4 Id a,(ix+04) Exponent 
36B4 CD7336 cal 3673 

36B7 DD7704 Id (ix+04),a Exponent 
36BA CB21 sa c 

36BC 3013 jr nc,36D1 

36BE 2C ine | 

36BF 2010 jr nz,36D1 

3601 24 inc h 

36C2 200D jr nz,36D1 

3604 1C inc e 

3605 200A jr nz,36D1 
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3607 14 inc d 

36C8 2007 ir nz,36D1 

36CA DD3404 ine  (ix+04) Exponent 
36CD 281F ir z,36EE Überlauf 
36CF 1680 Id d,80 

36D1 78 Id a,b 

36D2 F67F or 7F 

36D4 A2 and d 

36D5 DD7703 Id (ix+03),a 

36D8 DD7302 Id (ix+02),e 

36DB DD7401 Id (ix+01),h 

36DE DD7500 Id (ix+00),l 

36E1 DDES push ix 

36E3 E1 pp hl 

36E4 37 scf 

36E5 C9 ret 


tt Unterlauf, Null 
36E6 AF xor a 


36E7 DD7704 Id (ix+04),a Exponent 

36EA 18F5 ir 36E1 
rear Überlauf, größte positive Zahl 
36EC 0600 Id b,00 Vorzeichen positiv 
36EE 78 Id a,b 

36EF F67F or 7F 

36Fi DD7703 Id (ix+03),a Mantisse mit Vorzeichen 
36F4 FEFF or FF 

36F6 DD7704 Id (ix+04),a Exponent 

36F9 DD7700 Id (ix+00),a 

36FC DD7701 Id (ix+01),a 

36FF DD7702 Id (ix+02),a 

3702 C9 ret 

3703 C7 rst 0 

3704 C7 rst 0 

37056 C7 st 0 

3706 C7 st 0 

3707 C7 st 0 
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KEREE rrre BDÄI 


3708 44 Id b,h Vorzeichen merken 

3709 CDD137 cal 37D1 Absolutwert bilden 

370C 1802 jr 3710 

Luz z zz z 2 Z 2 z 2 zz z 2 zZ z Z 2 z z 2 z zz zz z z z z 2 Z 2 zz Z 2 z zZ zz ZZ ZZ Z 2 zz 2 BDA6 
370E 0600 Id b,00 

3710 1E00 Id e,00 

3712 0E02 Id c,02 

3714 09 ret 
KR rer ra BDAI Vorzeichen in b übernehmen 
3715 7C Id a,h 

3716 B7 or a 

3717 FA2037 ip m,3720 

371A BO or b Vorzeichen des Ergebnisses 

371B FAD437 ip m,37D4 Vorzeichenwechsel 

371E 37 scf 

371F 09 ret 

3720 EE80 xor 80 Vorzeichenbit umkehren 

3722 B5 or j 

3723 CO ret nz 

3724 78 Id a,b 

3725 37 scf 

3726 8F acc aa 

3727 C9 ret 
Beer e BDAC Additionhl:=hi+de 
3728 B7 or a Carry-Flag löschen 

3729 ED5A adce hl,de Addition 

372B 37 scf 

372C EO ret po Ergebnis positiv ? 

372D F6FF or FF Flags setzen 

372F C9 ret 

Kerr BDB2 Subtraktionhl:=de-hl 
3730 EB ex de,hl Operanden vertauschen 
Br BDAF Subtraktion hl:=ni- de 
3731 B7 or a Carry-Flag löschen 

3732 ED52 sbc hl,de Subtraktion 

3734 37 scf 

3735 EO ret po Ergebnis positiv ? 

3736 F6FF or FF Flags setzen 

3738 C9 ret 

Kerr BOB5 Multiplikation mit Vorzeichen 
3739 CD4537 cal 3745 Vorzeichen des Ergebnisses bestimmen 

373C CD5037 cal 3750 vorzeichenlose Multiplikation 

373F D21537 ip nc,3715 Vorzeichen übernehmen 

3742 F6FF or FF 

3744 C9 ret 
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KERKEKKKKKKKE EEE ER EER K rare Vorzeichen des Ergebnisses bestimmen 


3745 7C Id a,h Vorzeichen von hl 

3746 AA xor  d und Vorzeichen von de 
3747 47 Id b,a nach b bringen 

3748 EB ex de,hl 

3749 CDD137 cal 37D1 Absolutwert von de bilden 
374C EB ex de,hl 

374D C3D137 ip 37D1 Absolutwert von hl bilden 


rer BDBE Multiplikation ohne Vorzeichen 
3750 7C Id a,h 


3751 B7 or a 

3752 2805 jr 2,3759 

3754 7A Id a,d 

3755 B7 or a 

3756 37 scf 

3757 CO ret nz 

3758 EB ex de,hl 

3759 B5 or | 

375A 08 ret z 

375B 7A Id a,d 

3750 B3 or e 

375D 7D Id a,l 

375E 6B Id le 

375F 62 Id h,d 

3760 C8 ret z 

3761 FEO3 cp 03 

3763 3810 jr 0,3775 

3765 937 scf 

3766 8F ad aa 

3767 30FD jr nc,3766 

3769 29 add hi,hl 

376A D8 ret c 

376B 87 add aa 

376C 3002 jr nc,3770 

376E 19 add hi,de 

376F DB ret c 

3770 FE8O cp 80 

3772 20F5 jr nz,3769 

3774 C9 ret 

3775 FEO1 cp 01 

3777 C8 ret z 

3778 29 add hl,hl 

3779 C9 ret 
rk BDBB Division mit Vorzeichen 
377A CD8937 cal 3789 Division hl := hl/de 
377D DA1537 jp c,3715 Vorzeichen übernehmen 
3780 C9 ret 
rer BDBB MOD 
3781 4C Id c,h Vorzeichen merken 
3782 CD8937 cal 3789 Division 

3785 EB ex de,hl Rest nach hl 
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3786 41 Id b,c Vorzeichen zurückholen 
3787 18F4 jr 377D und übernehmen 
3789 CD4537 cal 3745 Vorzeichen des Ergebnisses bestimmen 
KK EEE era BOOT Division hl := hi/de, de := Rest 
3780 7A Id a,d ohne Vorzeichen 
378D B3 or e Divisor Null, dann beenden 
378E C8 ret z 

378F C5 push bc 

3790 EB ex de,hl 

3791 0601 Id b,01 

3793 7C Id a,h 

3794 B7 or a 

3795 2009 jr nz,37A0 

3797 7A Id a,d 

3798 BD cp | 

3799 3805 jr c,37A0 

379B 65 Id h,l 

379C 2E00 Id 1,00 

379E 0609 Id b,09 

37A0 7B Id a,e 

37A1 9% sub | 

37A2 TA Id a,d 

37A3 9C sbc ah 

37A4 3805 jr c,37AB 

37A6 04 inc b 

37A7 29 add hl,hl 

37A8 30F6 jr nc,37A0 

37AA 3F ccf 

37AB 3F ccf 

37AC 78 Id a,b 

37AD 44 Id b,h 

37AE 4D Id el 

37AF 210000 Id h1,0000 

37B2 3D dc a 

37B3 2003 jr nz,37B8 

37B5 1817 ir 37CE 

37B7 29 add hi,hl 

37B8 F5 push af 

37B9 78 Id a,b 

37BA IF rra 

37BB 47 Id b,a 

37BC 79 Id a,C 

37BD IF a 

37BE 4F Id c,a 

37BF 7B Id a,e 

37C0 91 sub c 

37C1 7A Id a,d 

37C2 98 sbc ab 

37C3 3805 jr c,37CA 

3705 57 Id d,a 

37C6 7B Id a,e 

37C7 91 sub c 
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37C8 
37C9 
37CA 
37CB 
37CC 
37CE 
37CF 
37D0 


LE zz zz z z z z z z z Z zz zz: 


37D1 
37D2 
37D3 


EZ zz z z z z z zz z ZZ zZ z 2 


37D4 
37D5 
37D6 
37D7 
37D8 
37D9 
37DA 
37DB 
37DC 
37DD 
37DF 


LE zZ ZZ ZZ zZ ZZ zz ZZ ZZ zo 2 


37E0 
37E1 
37E2 
37E3 
37E4 
37E5 
37E6 
37E7 
37E8 


DEZ zz zz z z zz Zu zz z — =; 


3789 
37EA 
37EB 
37EC 
37EF 
37F0 
37F1 

37F2 
37F3 


37F4 
37F5 
37F7 
37F8 
37F9 
37FB 


5 
2C 
Fi 
3D 
20E9 
37 
9) 
cg 


7C 
B7 
FO 


AF 
% 
6F 
9C 
% 
BC 
67 
37 
co 
FEO1 
c9 


7C 
87 
9F 
D8 
B5 
08 
AF 
3C 
cg9 


7C 
AA 
7C 
F2F437 
87 
9F 
D8 
3C 
c9 


BA 
20F9 
7D 
93 
20F5 
c9 


Id 
inc 
pop 
dec 
jr 
scf 
pop 
ret 


Id 
or 
ret 


xor 
sub 
Id 
sbc 
sub 
cp 
Id 
sch 
ret 
cp 
ret 


Id 
add 
sbc 
ret 
or 
ret 
xor 
inc 
ret 


Id 
xor 
Id 
IP 
add 
sbc 
ret 
inc 
ret 


cp 
jr 
Id 
sub 
jr 
ret 
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e,a 
af 
nz,37B7 


bc 


aekkrKkeeKee ek ee er Absolutwert bilden 


a,h Vorzeichen testen 
a 
p positiv, dann schon fertig 


srrkkkkkkekeraeeeeeeeee BDOC7 Vorzeichenwechsel hl 
a 

| 

l,a 

a,h 

| 

h 

h,a 


nz 
01 


wrekkkkeekkkaeeeraeaee BDCA SGN Vorzeichen vonhl 
a,h 
a,a 
a,a 


wrkkkkkkerkkkekkeeeaeeeae BOCH Vergleich hi <> de 
a,h Vorzeichen von hi 

d und Vorzeichen von de 

a,h 

p,37F4 Zahlen mit gleichem Vorzeichen vergleichen 

a,a 

a,a 

c 

a 


d 
nz,37F0 
a,l 


e 
nz,37F0 
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Kerr ROM-Header 


C000 80 db 80 erstes Vordergrund-ROM 
Coo1 01 db 01 Mark 1 

C002 00 db 00 Version 0 

C003 00 db 00 Modifikation 0 

C004 4CC0 dw CO4C Adresse des Namens 
KERKEEEE ee BASIC-Initialisierung 
C006 3100C0 Id sp,C000 Stack ab C000 

C009 CDCBBC cal BCCB KLROM WALK 

C00C CDC4F4 cal F4C4 Speicher konfigurieren 

COOF DA0000 jp c,0000 zu wenig Speicher, dann Reset 
C012 2100AC Id hl,AC00 

C015 3600 Id (hl),00 

C017 061B. Id . b,1B 

C019 23 inc hl ; 

CO1A 3609 Id (h),C9 'ret' von AC01 bis AC1B 

CO1C 10FB dinz 0019 

CO1E 213FCO0 Id hl,CO3F Zeiger auf’ BASIC 1.0’ 

C021 CD37C3 cal 0337 ausgeben 

C024 AF xor a 

C025 3200AC Id (AC00),a Flag für Blanks unterdrücken löschen 
C028 CDCBDD cal DDCB aktuelle Zeilenadresse auf Null 
C02B CD84CA cal CA84 Fehlernummer löschen 

Co2E CD97BD cal BD97 RND Init 

0031 CDD3CO cal COD3 AUTO-Modus löschen 

C034 CD3EC1 cal CI3E NEW-Befehl 

0037 11F000 Id de,00F0 240 

CO3A CDO6F7 cal F706 SYMBOL AFTER 240 

Co3D 1825 jr C064 zum READY-Modus 


LE zz z zz z z z z z Z z zz Z Z z Z z z z 2 z z z z z z z Z Z zZ Z Z z Z z z Z Z ZZ z Z z z zz z 2 2 2 = 3 


CO3F 20 42 41 53 49 43 20 31 


C047 2E 30 0A 0A 00 


"BASIC 1.0’ LF,LF 


LE zz zz 2 ZZ 2 2 ZZ 2 2 2 Z Z 2 2 zz Z 2 z Z Z z zz z z zz 2 Z Z zz 2 z Z Z zZ 2 2 zZ zz z 2 2 2 = 3 


CO4C 42 41 53 49 C3 00 


'BASI’, 'C’+80H, 00H 


Re BASIC-Befehl EDIT 


C052 CDEICE cal CEEI Zeilennummer nach de holen 

C055 CO ret nz 

C056 3100C0 Id sp,C000 Stack initialisieren 

C059 CDYAE7 cal E79A BASIC-Zeile de suchen (vorhanden?) 
C05C CD63E1 cal E163 BASIC-Zeile in Puffer listen 

COSF CD43CA cal CA43 Eingabezeile holen 

C062 3854 jr c,C0B8 

KERE  rrr& READY-Modus 
C064 CDO1IAC cal ACO1 ret 

C067 3100C0 Id sp,C000 

C0O6A CD62C1 cal C162 

Co6D CDD6DD cal DDD6 Zeilenadresse holen 

C070 DCB6EBC cal c,BCB6 SOUND HOLD 

C073 CD48BB cal _BB48 KM DISARM BREAK 
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C076 CD8603 cal C386 Bildschirm initialisieren 

C079 3A45AE Id a,(AE45) geschütztes Programm ? 

C07C B7 or a 

C07D C43EC1 cal nz,C13E ja, Programm und Variablen löschen 
C080 3AAAAD Id a,(ADAA) ERROR-Nummer 

C083 D602 sıb 02 "Syntax error’ ? 

C085 2009 jr nz,C090 nein 

0087 32AAAD Id (ADAA),a ERROR-Nummer auf Null 

C0O8A CDDFCA cal CADF Zeilennummer der ERROR-Zeile holen 
C08D EB ex de,hl 

CO8E 38C6 ir c,C056 zum EDIT-Befehl 

C090 21CCC0 Id hl,C0CC 'Ready’ 

0093 CD41C3 cal (341 ausgeben 

0096 CDCBDD cal DDCB aktuelle Zeilenadresse auf Null 

C099 3AICAC Id a,(AC1C) AUTO-Flag gesetzt ? 

C09C B7 or a 

C09D 2811 jr z,COBO nein 

Co9F CD02C1 cal C102 nächste Zeilennummer vorgeben 
COA2 30C0 jr nc,C064 zum READY-Modus 

COA4 TE Id a,(hi) 

COA5 B7 or a 

COA6 28F1 jr 2,0099 

COA8 CDD2E6 cal E6D2 Statement in Interpreterkode wandeln 
COAB CD7ACI1 cal C17A 

COAE 18E9 jr C099 

LEZZZZEZZZZZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ u u ZZ ZZ Z ZZ u — ZZ 3 
C0BO CDIBCA cal CA3B Eingabezeile holen 

C0B3 30FB ir nc,COBO 'ESC’ gedrückt, dann wiederholen 
C0B5 CD4EC3 cal C34E LF ausgeben 

C0B8 CDBCE6 cal E6BC Zeile in Interpreterkode wandeln 
COBB 3005 jr nc,C0C2 Direkt-Befehl ? 

COBD C47AC1 cal nz,C17A 

C0CO 18D4 jr C096 

C0C2 CDBBDE cal DEBB Zeile in Puffer ab &40 kopieren 

C0C5 CD53C4 cal 0453 Unterbrechung durch 'Break’ erlauben 
C0C8 2B decce hl 

C0C9 C374DD ip DD74 zur Interpreterschleife 
LEZZZZZZZZZZZZZZZ ZZ ZZ ZZ ZZ ZZ ZZ EZ ZZ z ZZ ZZ Z ZZ ZZ zZ zZ 2 Z ZZ 2 Z zz 3 
COCC 52 65 61 64 79 0A 00 'Ready’, LF, 00H 
Br AUTO-Modus löschen 
C0D3 AF x a 0 

C0D4 1805 jr CODB 
kr AUTO-Modus setzen 
COD6 221DAC Id (AC1D),hl Zeilennummer 

C0D9 3EFF Id a,FF 

CODB 321CAC Id (AC1C),a Flag für AUTO setzen 

CODE C9 ret 
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KERKERKEEE Er e BASIO-Befehl AUTO 


CODF 110A00 Id de,000A 10, Default 

COE2 2802 jr z,C0E6 

COE4 FE2C cp 2C “ 

COE6 C4EICE cal nz,CEE1 Zeilennummer nach de holen 
COE9 D5 push de 

COEA 110A00 Id de,000A 10, Default 

COED CD55DD cal DD55 folgt Komma ? 

COFO DCEICE cal c,CEEI ja, Zeilennummer nach de holen 
COF3 CD4ADD cal DD4A Zeilenende, sonst "Syntax error’ 
COF6 EB ex de,hl 

COF7 221FAC Id (AC1F),hl AUTO-Inkrement merken 
COFA Ei pp hl 

COFB CDD6CO cal COD6 Flag für AUTO-Modus setzen 
COFE C1 pop bc 

COFF C396C0 ip C096 

C102 2A1DAC Id hl,(AC1D) Zeilennummer 

C105 E5 push hl 

C106 CD79EE cal  EE79 Zeilennummer ausgeben 
C109 D1 pop de 

C10A CDA3E7 cal E7A3 Zeile suchen 

C10D 3E2A Id a,2A x 

C10F 3802 jr c,C113 Zeile vorhanden ? 

C111 3E20 Id a,20 ns 

0113 CD56C3 cal 0356 ausgeben 

C116 CDD3ICO cal COD3 AUTO-Modus löschen 
C119 CD3BCA cal CA3B Eingabezeile holen 

C11C DO ret nc ESC gedrückt ? 

C11D CD4EC3 cal CI4E LF ausgeben 

C120 E5 push hl 

0121 2A1FAC Id hl,(AC1F) Zeilennummer 

0124 19 add hl,de plus Inkrement 

0125 D4D6CO cal nc,COD6 AUTO-Modus setzen 

0128 E1 pp hl 

0129 37 scf 

C12A C9 ret 


KR er BASIC-Befehl NEW 
C12B CO ret nz 


C12C CD3EC1 cal CIIE Programm und Variablen löschen 

C12F C364C0 jp C064 zum READY-Modus 
re BASIC-Befehl CLEAR 
0132 E5 push hl 

0133 CD8CC1 cal C18C 

0136 CD5BC1 cal C15B 

0139 CD7AC1 cal CI7A 

C13C Ei pp hl 

C13D C9 ret 

KERRRkkrrrkkrerrae Programm und Variablen löschen 
C13E 2ATFAE Id hl,(AE7F) Beginn des freien RAMs 

0141 EB ex de,hl 

C142 2A7BAE Id hl,(AE7B) HIMEM 
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0145 CDDAFF cal _FFDA bc:=hl-de 

C148 6 Id h,d 

C149 6B Id he 

C14A 13 inc de 

C14B AF xor a Akku löschen 

C14C 77 Id (h)),a 

C14D EDBO Idir Beginn freies RAM bis HIMEM löschen 
C14F 3245AE Id (AE45),a Flag für geschütztes Programm löschen 
0152 CD76E6 cal E676 Programmende := Programmstart 
0155 CD8CC1 cal C18C Variablen löschen 

0158 CD6BCI cal C16B s.u. 

C15B CDADD2 cal D2AD Kassetten-I/O abbrechen 

C15E AF xor a 

Ci5F CD73BD cal BD73 RAD-Modus setzen 

C162 CDB3FB cal FBB3 Descriptorstack initialisieren 
C165 CDFDDI cal DIFD 

0168 C39DC1 ip C19D 

C16B CDE6DD cal DDE6 TROFF 

C16E CDD3CO cal COD3 AUTO-Modus löschen 

C171 CDF2FI cal  FIF2 TAB-Stops auf 13 setzen 

0174 CD76E6 cal E676 Programmende := Programmstart 
0177 CDB1D5 cal D5B1 Variablenzeiger rücksetzen 

C17A CDDICB cal CBD9 ON-ERROR löschen 

C17D CDABCB cal CBAB CONT sperren 

0180 CDEDC8 cal C8ED SOUND und Event-Reset 

0183 CD8EF5 cal FS58E BASIC-Stack initialisieren 

C186 CDD2D5 cal D5D2 Flag für FN löschen 

0189 C3IESDC ip DCES RESTORE 
rer Variablen löschen 
C18C C5 push bc 

C18D E5 push hl 

C18E CDCAFS cal F5CA Stringzeiger rücksetzen 

C191 CDAED5 cal DS5AE Variablenzeiger rücksetzen 

0194 CDFCD5 cal D5FC Variablen A-Z auf 'Real’ 

0197 CD89EI cal E989 

C19A EI pp hl 

cIBB C1 pop be 

C19C C9 ret 

LE zz zZ z z z zZ z Z z Z z Z zZ z Z z Z Z Z z Z ZZ Z Z ZZ Z Z z Z zZ z z Z Z Z z Z 2 Z zZ Z zZ 2 Z zZ zz 3 
C19D AF xor a 

C19E CDAFCI cal CIAF 

C1A1 AF xor a 

C1A2 E5 push hl 

C1A3 F5 push af 

C1A4 FEOB cp 08 <8? 

C1A6 DCB4BB cal c,BBB4 TXT STR SELECT 

C1A9 Fi pop af 

C1AA 2121AC Id hl,AC21 aktuelle Streamnummer 

C1AD 1804 jr C1B3 


337 


BASIC 1.0 
CIAF E5 push hl 
C1BO 2122AC Id hl,AC22 Eingabekanal 
C1B3 D5 push de 
C1B4 5F Id e,a 
C1B5 7E Id a,(hl) 
C1B6 73 Id (hl),e 
C1B7 DI pop de 
C1B8 Ei pp hl 
C1B9 C9 ret 
C1BA 3A21AC Id a,(AC21) aktuelle Streamnummer 
C1BD FEO8 cp 08 Drucker ? 
C1BF C9 ret 
C1C0 3A22AC Id a,(AC22) Eingabekanal 
C1C3 FEOI cp 09 Kassette ? 
C1C5 C9 ret 
C1C6 CDEICI cal  CIE3 
C1C9 18D7 jr C1A2 
C1CB CDESCI cal CIE3 
CICE 18DF jr CI1AF 
tr Streamnummer holen 
C1D0 CDE3CI cal CIE3 
C1D3 FEO8 cp 08 
C1D5 302E jr nc,C205 'Improper argument’ 
C1D7 CDA2CI1 cal CIA2 
C1DA C1 pop bc 
C1DB F5 push af 
C1DC CDFIFF cal FFF9 jp (bc) Funktion ausführen 
CiDF Fi pop af 
C1EO C3A2C1 ip c1A2 
LE 2 2 zz 2 Z 2 zZ Z = 2 zZ Z 2 zz z z 2 2 zZ z 2 Z ZZ z z zz Z ZZ z ZZ zZ 2 auf Streamnummer testen 
CIE3 TE Id a,(hl) 
C1E4 FE23 cp 23 + 
C1E6 3E00 Id a,00 0 als Default 
C1ES CO ret nz 
C1E9 CDF5CI ° cal  CIFS Streamnummer holen 
CIEC F5 push af 
CIED CD55DD cal DD55 folgt Komma ? 
C1FO D44ADD cal nc,DD4A nein, dann Ende des Statements ? 
CIF3 Fi pop af 
CiF4 C9 ret 
LE = 2 zz z 2 Z 2 z 2 z — 2 2 2 Z 2 2 2 2 2 2 2 2 2 z 2 z 2 2 zZ 2 2 2 2 2 ZZ Z 2 Z 23 Streamnummer holen 
CiF5 CD37DD cal DD37 Test auf nachfolgendes Zeichen 
CIF8 23 db 23 ‚+ 
CIF9 3E0A Id a,0A 10, Maximalwert 
CIFB C5 push bc 
CIFC D5 push de 
CIFD 47 Id b,a 
CIFE CD67CE cal CE67 8-Bit-Wert holen 
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C201 B8 cp b mit b vergleichen 

C202 DI pop de 

C203 C1 pop bc 

C204 D8 ret c kleiner b, ok 

C205 1E05 Id e,05 'Improper argument’ 

0207 C394CA jp CA94 Fehlermeldung ausgeben 
kr BASIC-Befehl PAPER 
C20A CDDOC1 cal CiDO Streamnummer holen 

C20D 0196BB Id bc,BB96 TXT SET PAPER 

C210 1806 ir 0218 
Kr rer a BASIC-Befehl PEN 
C212 CDDOC1 cal C1DO Streamnummer holen 

0215 0190BB Id bc,BB90 TXTSET PEN 

C218 CD48C2 cal C24B Argument < 16 holen 

C21B E5 push hl 

C21C CDFYFF cal  _FFF9 jp (bc) Funktion ausführen 

C2IF EI pp hl 

C220 C9 ret 
RR BASIC-Befehl BORDER 
0221 CD3ICC2 cal C23C Argument(e) < 32 holen 

0224 E5 push hl 

0225 CD38BC cal BC38 SCR SET BORDER 

0228 Ei pop hl 

0229 C9 ret 
er BASIC-Befehl INK 
C22A CD4BC2 cal C24B Argument < 16 holen 

C22D F5 push af 

C22E CD37DD cal DD37 Test auf nachfolgendes Zeichen 

0231 2C db 2C 2 

0232 CD3CC2 cal C23C Argument(e) < 32 holen 

0235 Fi pop af 

0236 ES push hl 

0237 CD32BC cal BC32 SCR SET INK 

C23A Ei pp hl 

C23B C9 ret 
er rrrar Argumentle) < 32 holen 
C23C CD44C02 cal (244 Argument < 32 holen 

C23F 41 Id b,c 

0240 CD55DD cal DD55 folgt Komma ? 

0243 DO ret nc nein 

0244 3E20 Id a,20 32 

0246 CDFBC1 cal CIFB Argument < 32 holen 

0249 4F Id c,a 

C24A C9 ret 
rer er ree Argument< T6holen 
C24B 3E10 Id a,10 16 

C24D 18AC jr CIFB Argument < 16 holen 
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tree BASIC-Befehl MODE 


C24F 3E03 Id a,03 3 

0251 CDFBC1 cal CIFB Argument < 3 holen 

0254 E5 push hl 

C255 CDOEBC cal BCOE SCR SET MODE 

C258 Ei pp hl 

0259 C9 ret 
tree BASIC-Befehl CLS 
C25A CDDOC1 cal C1DO Streamnummer holen 

C25D 3E0C Id a,0C FF 

C25F C36EC3 jp C36E ausgeben 

Luz zz zz zz z 2 zz zZ 2 z 2 z zz 2 2 2 Z z zz Z 2 z 2 ZZ Z 2 Z 2 2 2 Z 2 Z 2 Z 2 z zz zZ zz 3 VPOS 
0262 0167C2 Id bc,C267 

0265 1812 jr C279 

C267 3A21AC Id a,AC21 aktuelle Streamnummer 

C26A FEOB cp 08 >8? 

C26C 3097 jr nc,C205 'Improper argument’ 

C26E CD78BB cl BB78 TXT GET CURSOR 

0271 CD87BB cal BB87 TXT VALIDATE 

0274 7D Id a,l 

0275 C9 ret 

LE zz zz z z 2 z 2 Z Z z 2 2 z ZZ z z z z ZZ z zz z 2 ZZ Z z 2 ZZ Z z z = ZZ z 2 z 2 2 zZ zZ z2 POS 
0276 019002 Id bc,C290 

C279 CDF5C1 cal  CIF5 Wert < 10 holen 

C27C CDA2C1 cal CIiA2 Select Stream 

Ca7F F5 push af 

C280 CD37DD cal DD37 Test auf nachfolgendes Zeichen 

0283 29 db 29 Jh 

0284 E5 push hl 

0285 CDFYFF cal FFF9 jp (bc) Funktion ausführen 

C288 CDOAFF cal FFOA Akkuinhalt als Integerzahl übernehmen 

C28B E1 pp hl 

C28C Fi pop af 

C28D C3A2C1 ip C1A2 Select Stream 
KR rer Aktuelle PRINT-Position holen 
C290 3A21AC Id a,(AC21) aktuelle Streamnummer 

C293 FEO8 cp 08 

0295 CADFC3 ip 2,C3DF Drucker-Position holen 

C298 3A25AC Id a,(AC25) Kassetten-Position holen 

C29B DO ret nc 

C29C C39CC3 jp C39C Bildschirm-Position holen 

LE zz 2 z z z z z zZ Z ZZ z z Z 2 ZZ z 2 2 zZ 2 zz Z ZZ 2 zZ 2 2 ZZ zz 2 Z zz 2 2 2 2 2 zz 2 zz 2; 
C29F 3A21AC Id a,(AC21) aktuelle Streamnummer 

C2A2 FEO8 cp 08 Drucker ? 

C2A4 280D jr 2,02B3 ja 

C2A6 DO ret nc Kassette ? 

C2A7 D5 push de 

C2AB E5 push hl 

C2A9 CD69BB cal BB69 TXT GET WINDOW 
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C2AC 7A 
C2AD 94 
C2AE 3C 
C2AF Ei 
C2B0 DI 
C2B1 37 
C2B2 C9 


C2B3 3A24AC 
C2B6 FEFF 
C2B8 C9 


C2B9 E5 
C2BA CDBFC2 
C2BD Ei 
C2BE C9 


C2BF 67 
C2C0 CDYFC2 
0203 3F 
02C4 D8 
02C5 6F 
02C6 CD90C2 
C2C9 3D 
C2CA 37 
C2CB C8 
C2CC 84 
C2CD 3F 
C2CE DO 
C2CF 3D 
C2D0 BD 
C2D1 C9 
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Id a,d 
sıb h 

inc a 
pop hl 
pop de 
scf 

ret 

Id a,(AC24) WIDTH 
cp FF 
ret 

push hl 
cal C2BF 
pop hl 

ret 

Id h,a 
cal C29F 
ccf 

ret c 

Id l,a 
cal C290 
dc a 

scf 

ret zZ 
add ah 
ccf 

ret nc 
de a 

cp | 


ret 


rer BASIC-Befehl LOCATE 


C2D2 CDDOC1 
C2D5 CD27C3 
C2D8 E5 
C2D9 EB 
C2DA 24 
C2DB 2C 
C2DC CD75BB 
C2DF Ei 
C2EO C9 


cal C1DO Streamnummer holen 

cal (327 2 8-Bit-Werte ungleich Null holen 
push hl 

ex de,hl 

inc h 

inc | 

cal _BB75 TXT SET CUSROR 

pop hl 


ret 


Re ra BASIC-Befehl WINDOW 


C2E1 TE 
C2E2 FEE7 
C2E4 2817 
C2E6 CDDOCI 
C2E9 CD27C3 
C2EC D5 
C2ED CD37DD 
C2F0O 2C 
C2Ft CD27C3 
C2F4 E3 


d ah) 

cp E7 'SWAP’ 

jr z,C2FD 

cal C1DO Streamnummer holen 

cal (327 2 8-Bit-Werte ungleich Null holen 
push de 

cal DD37 Test auf nachfolgendes Zeichen 
db 2C y 

cal (327 2 8-Bit-Werte ungleich Null holen 
ex (sp),hl 
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C2F5 7A Id a,d 

C2F6 55 Id d,l 

CaF7 6F Id l,a 

C2F8 CD66BB cal BB66 TXT WIN ENABLE 
CaFB Ei pp hl 

C2FC C9 ret 
ner WINDOW SWAP 
C2FD CD3FDD cal DD3F Blanks überlesen 
C300 CD12C3 cal 0312 Argument < 8 holen 
0303 48 Id cb 

C304 CD55DD cal DD55 folgt Komma ? 

C307 0600 Id b,00 Defaultwert 0 

C309 DC12C3 cal c,C312 ja, Argument < 8 holen 
C30C E5 push hl 

C30D CDB7BB cl BBB7 TXT SWAP STREAMS 
c310 EI pp hl 

c311 09 ret 


er Argument < 8 holen 


C312 3E08 Id a,08 8 


0314 CDFBC1 cal CIFB Argument kleiner 8 holen 

0317 47 Id b,a 

c318 C9 ret 
nn BASIO-Befehl TAG 
C319 CDDOC1 cal C1DO Streamnummer holen 

C31C 3EFF Id a,FF 

C31E 1804 ir 0324 
nt BASIC-Befehl TAGOFF 
0320 CDDOC1 cal CiDO Streamnummer holen 

C323 AF xor a 

0324 C363BB ip BB63 TXT SET GRAPHIC 

KR re 2 B-Bit-Werte ungleich Null holen 
C327 CD2FC3 cal C32F ersten Wert holen 

C32A 53 Id d,e 

C32B CD37DD cal DD37 Test auf nachfolgendes Zeichen 

C32E 2C db 2C ER 

C3F D5 push de 

0330 CD6DCE cal CE6D 8-Bit-Wert ungleich Null holen 

0333 DI pop de 

0334 5F Id 8,4 

0335 1D dc e 

0336 C9 ret 

KR EEEEE ra Stringaausgeben 
0337 3E84 Id a,84 132 

0339 3224AC Id (AC24),a WIDTH auf 132 

C33C E5 push hl Startadresse des Strings 

C33D CDIDC1 cal C19D Ausgabekanal selektieren 

C340 E1 pp hl 

C341 F5 push af 

C342 E5 push hl 
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0343 TE 
0344 23 
0345 B7 
0346 C456C3 
0349 20F8 
034B Ei 
C34C Fi 
C34D C9 


Id a,(hl) 
inc hl 

or a 

cal nz,C356 
jr nz,0343 
pp hl 

pop af 


ret 
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Zeichen holen 

Zeiger erhöhen 

Nullbyte gleich Ende des Strings 
Zeichen ausgeben 

nicht null, dann nächstes Zeichen 


LE EZ EZ Zu Zn ZZ ZZ ZZ ZZ ZZ ZZZZZZZZZ ZZ ZZ LF ausgeben 


C34E F5 
C34F 3EOA 
0351 CD56C3 
0354 Fi 
0355 C9 


push af 
Id a,0A 
cal (356 
pop af 


ret 


LF 
ausgeben 


nk aa x Zeichen ausgeben 


0356 F5 
0357 CD5CC3 
C35A Fi 
035B 09 


0350 FEOA 
C35E 200E 
0360 3A21AC 
0363 FEO8 
C365 CAA8C3 
0368 D2EACI 
C36B 0392C3 


Zeichen ausgeben 


LF? 


aktuelle Streamnummer 
Drucker ? 

ja 

Kassette 

Bildschirm 


ra a * Zeichen ausgeben 


C36E F5 
C36F C5 
0370 4F 
0371 CD77C3 
0374 C1 
0375 Fi 
0376 C9 


push af 

cal C35C 
pop af 

ret 

cp 0A 

jr nz,C36E 
Id a,(AC21) 
cp 08 

jp 2,03A8 
jp nc,C3EA 
ip 0392 
push af 

push bc 

Id c,a 

cal (377 
pop bc 

pop af 


ret 


Zeichen nach c 
ausgeben 


kr rer & Ausgabestrom selektieren 


0377 3A21AC 
C37A FEO8 
C37C CABSCI 
C37F D2F8C3 
0382 79 
0383 039903 


Id a,(AC21) 
cp 08 


aktuelle Streamnummer 


Drucker ? 

Kassette ? 

Zeichen in Akku 

Zeichen auf Bildschirm ausgeben 


Beer Bildschirm initialisieren 


0386 AF 
0387 CD63BB 


038A CD54BB 
C38D CDICCI 
0390 3D 
C391 C8 
0392 3E0D 


jp 2,0385 
jp nc,C3F8 
Id ac 

ip C399 
xor a 

cal BB63 
cal BB54 
cal C39C 
dc a 

ret zZ 

Id a,0D 


TXT SET GRAPHIC 


TXT VDU ENABLE 
Cursor auf zulässige Position 


CR 
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0394 CD99C3 
0397 3E0A 
0399 C35ABB 
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ausgeben 
LF 
TXT OUTPUT 


re Oursorauf zulässige Position 


039C C5 
C39D E5 
C39E CD78BB 
C3A1 CD87BB 
C3A4 7C 
C3A5 Ei 
C3A6 Ci 
C3A7 C9 


cal (0399 
Id a,0A 
ip BB5A 
push bc 
push hl 
cl BB78 
cl BB87 
Id a,h 
pop hl 
pop be 


ret 


TXT GET CURSOR 
TXT VALIDATE 


re OR ALF aufDrucker ausgeben 


C3A8 C5 
C3A9 OEOD 
C3AB CDB5C3 
C3AE 0EOA 
C3B0 CDB5C3 
C3B3 C1 
C3B4 C9 


push 
Id 
call 
Id 
call 


pop 
ret 


be 
c,0D 
C3B5 
c,0A 
C3B5 
bc 


CR 
ausgeben 
LF 
ausgeben 


nr kr ae Zeichen auf Drucker ausgeben 


C3B5 E5 
C3B6 79 
C3B7 EEOD 
C3B9 2813 
C3BB 79 
C3BC FE2O 
C3BE 3814 
C3C0 2A23AC 
03C3 24 
C3C4 7D 
C3C5 2807 
03C7 BC 
C3C8 CCA8CI 


C3DA CDICC4 
C3DD 18F6 


push 
Id 
xor 
jr 
Id 
cp 
jr 
Id 
inc 
Id 
jr 
cp 
call 
Id 
inc 
jr 
Id 
pop 
Id 
call 
ret 
call 
jr 


hl 

a,C 

0D 
z,C3CE 
a,C 

20 
c,C3D4 
hl,(AC23) 
h 


al 
2,C3CE 
h 
2,C3A8 
a,(AC23) 


a 
2,03D4 
(AC23),a 
hl 

a,C 
BD2B 

c 

C43C 
C3D5 


CR 


U | 


Kontroll-Zeichen nicht zählen 
aktuelle Drucker-Position und WIDTH 


aktuelle Drucker-Position 


aktuelle Drucker-Position 


MC PRINT CHAR 
Ausgabe ok ? 
Unterbrechung durch ’ESC’ ? 


LE 2 2 2 2 z z 2 z z z z z z z Z z z z = z Z 2 z Z z z Z 2 Z Z 2 2 Z z z Z z 2 Z z Z z Z 2 2 2 z 2 z 2 2 zZ 2 


C3DF 3A23AC 
C3E2 C9 


Id 
ret 


a,(AC23) 


aktuelle Drucker-Position 
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Bere rer BASIC-Befehl WIDTH 
C3E3 CD6DCE cal CES6D 8-Bit-Wert ungleich Null holen 

C3E6 3224AC Id (AC24),a WIDTH setzen 

C3E9 C9 ret 


rer Neue Zeile auf Kassette 


C3EA 3E01 Id a,01 


C3EC 3225AC Id (AC25),a Kassettenposition auf eins 
C3EF 3EOD Id a,0D CR 

C3FI CDODC4 cal C40D auf Kassette ausgeben 
C3F4 3EOA Id a,0A LF 

C3F6 1815 jr C40D auf Kassette ausgeben 

LE u u zZ zz zz zZ zZ zZ z 2 zz z 2 z 2 z zZ zZ z Z 2 Z z z z z z Z z Z z Z z Z zZ zZ zZ zZ ZZ Z 2 
C3F8 E5 push hl 

C3F9 2125AC Id hl,AC25 Kassettenposition 

C3FC 79 Id a,C 

C3FD 0601 Id b,01 bei neuer Zeile Position auf eins 
C3FF FEOD cp 0D CR 

C401 2808 ir z,C40B 

C403 FE2O cp 20 IR 

0405 3805 jr c,C40C Kontrollzeichen nicht zählen 
C407 46 Id b,(hi) Zeichenzähler laden 

C408 04 inc b und erhöhen 

C409 2801 jr 2,040C 

C40B 70 Id (hl),b neuen Zählerwert merken 
C40C EI pop hl 

C40D CDI5BC cal BC9Y5 CAS OUT CHAR 

C410 D8 rt cc nicht ESC-Taste gedrückt ? 
C411 C36BCB ip CB6B 'Break’, READY-Modus 


LEEIZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZ ZZ EZ u u Z 


C414 C386BC ip BC86 CAS RETURN 


rer Teservierte Variable EOF 


C417 E5 push hl 

0418 CD89BC cal BC89 CAS TEST EOF 

C41B 28F4 ir 2,0411 ESC gedrückt ? 

C41D 3F ccf 

C41E 9F sbc aa 

C41F CDOSFF cal FFOS Vorzeichen als Integerzahl übernehmen 
0422 Ei pp hl 

0423 C9 ret 
er rae Ein Zeichen vom Eingabekanal holen 
0424 3A22AC Id a,(AC22) Eingabekanal 

0427 FEO9 cp 09 Kassette ? 

0429 CABOBC ip 2,BC80 ja, CAS IN CHAR 

C42C CDO9BB cal BB09 KM READ CHAR 
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CA2F 
0430 
0433 
0436 


D8 

CD81BB 
CDO6BB 
C384BB 


ret 
call 
call 
ip 
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c Taste gedrückt ? 
BB81 TXTCURON 
BB06 KM WAIT CHAR 
BB84 TXTCUROFF 


LEEZZZZZZZZZZZL ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZZZZZZZ ZZ ZZ 


C439 C309BB ip BB09 KM READ CHAR 
terre TestaufAbbruch mit ’ESC’ 
C43C CDO9BB cal BB09 KM READ CHAR 

C43F DO ret nc 

0440 FEFC cp FC 'Break’ ? 

C442 CO ret nz 

C443 C5 push bc 

C444 D5 push de 

C445 65 push hl 

C446 CD6FC4A cal C46F auf zweiten Tastendruck warten 

C449 DA6BCB ip c,CB6B 'ESC’, dann Abbruch 

C44C CD53C4 cal (0453 Unterbrechung durch 'Break’ erlauben 
C44F EI pop hl 

C450 DI pop de 

C451 C1 pop be 

C452 C9 ret 
re Unterbrechung durch 'Break’ erlauben 
0453 E5 push hl 

C454 115604 Id de,C45E Adresse der Break-Event-Routine 
C457 OEFD Id c,FD BASIC-ROM selektiert 

0459 CD45BB cl BB45 KM ARM BREAK 

C45C Ei pp hl 

C45D C9 ret 
KR Break-Event Routine 
C45E E5 push hl 

C45F CDO9BB cal BB09 KM READ CHAR 

C462 3004 jr nc,C468 keine Taste gedrückt ? 

C464 FEEF cp EF Break durch ’ESC’ ? 

C466 20F7 jr nz,C45F Tastendrücke vor ’ESC' ignorieren 
C468 CD6FC4 cal C46F warten auf zweites ’ESC’ 

C46B Ei pp hl 

C46C C347C8 ip 0847 Test auf ON BREAK GOSUB 
KK EEE Er Warten auf Tastendruck nach ’ESC’ 
C46F CDB6BC cal BCB6 SOUND HOLD 

C472 F5 push af 

C473 CD30C4 cal C430 auf einen Tastendruck warten 

0476 FEEF cp EF Break durch ’ESC’ ? 

0478 28F9 jr 2,0473 

C47A FEFC cp FC 'Break’ ? 

C47C 280B jr 2,0489 

C47E FE2O cp 20 2 
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C480 C40CBB call 
C483 Fi pop 
0484 DCBIBC call 
C487 B7 or 
0488 C9 ret 
C489 Fi pop 
C48A 37 scf 
C48B C9 ret 
LE zZ z z Z z zZ z z ZZ zz ZZ ı 
C48C CD1AC5 call 
C48F C5 push 
C490 D5 push 
0491 CD55DD call 
0494 3018 jr 
0496 CD1AC5 call 
0499 C5 push 
C49A D5 push 
C49B CD37DD call 
C49E 2C db 
C49F CD1AC5 call 
C4A2 C5 push 
C4A3 EI ex 
C4A4 CDD2BB call 
C4A7 Ei pop 
C4A8 DI pop 
C4A9 E3 ex 
C4AA CDCFBB call 
C4AD Ei pop 
C4AE DI pop 
C4AF EI ex 
C4B0 CDCYBB call 
C4B3 E1 pop 
C4B4 C9 ret 
C485 CD51DD call 
C4B8 3806 jr 
C4BA CD4BC2 call 
C4BD CDE4BB call 
C4C0 ES push 
C4C1 CDDBBB call 
C4C4 Ei pop 
C4C5 C9 ret 
LEEZZZZEZZZZ ZZ Zu u 
C4C6 O01F6BB Id 
C4C9 180D jr 
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nz,BBOC nein, Zeichen merken KM CHAR RETURN 
af 

c,BCB9 SOUND CONTINUE 

a 


af 


Krkkkkkkeek ker BASIO-Befehl ORIGIN 


C51A 2 Argumente holen 

bc 

de 

DD55 folgt Komma ? 
nc,C4AE nein 

C51A 2 Argumente holen 

bc 

de 

DD37 Test auf nachfolgendes Zeichen 
2C ” 

C51A 2 Argumente holen 

bc 

(sp),hl 

BBD2 GRA WIN HEIGHT 

hl 

de 

(sp),hl 

BBCF GRA WIN WIDTH 

hl 

de 

(sp),hl 

BBC9I GRA SET ORIGIN 

hl 

DD51 Ende des Statements ? 
c,C4C0 ja 

C24B Argument < 16 holen 
BBE4 GRA SET PAPER 

hl 

BBDB GRA CLEAR WINDOW 
hl 


wrrkkkeeerkeeeree rear BASIO-Befehl DRAW 
bc,BBF6 GRA LINE ABSOLUTE 
C4D8 
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KK Eee era BASIO-Befehl DRAWR 


CACB 01F9BB Id bc,BBF9 GRA LINE RELATIVE 

C4CE 1808 jr C4D8 
Kr BASIO-Befehl PLOT 
C4D0 01EABB Id bc,BBEA GRA PLOT ABSOLUTE 

C4D3 1803 jr C4D8 

KERKKE rrr  BASIC-Befehl PLOTR 
C4D5 01EDBB Id bc,BBED GRA PLOT RELATIVE 

C4D8 C5 push bc 

C4D9 CDIAC5 cal C51A 2 Argumente holen 

C4DC CD55DD cal DD55 folgt Komma ? 

C4DF 3006 jr nc,C4E7 nein 

C4E1 CD4BC2 cal C24B Argument < 16 holen 

C4E4 CDDEBB cl BBDE GRA SET PEN 

C4E7 1828 jr 0511 
KR TEST 
C4E9 01F0BB Id bc,BBF0 GRA TEST ABSOLUTE 

C4EC 1803 jr C4F1 
tt TESTR 
C4EE 01F3BB Id bc,BBF3 GRA TEST RELATIVE 

C4F1 05 push bc 

C4F2 CDIAC5 cal C51A 2 Argumente holen 

C4F5 CD37DD cal DD37 Test auf nachfolgendes Zeichen 

C4F8 29 db 29 ). 

C4F9 E3 ex (sp),hl 

C4FA 05 push bc 

C4FB E3 ex (sp),hl 

C4FC C1 pop be 

CAFD CDFYFF cal _FFF9 jp (bc), Funktion ausführen 

C500 CDOAFF cal FFOA Akkuinhalt als Integerzahl übernehmen 

C503 Ei pp hl 

C504 C9 ret 
Kr BASIC-Befehl MOVE 
C505 01C0BB Id bc,BBC0 GRA MOVE ABSOLUTE 

C508 1803 jr C50D 

KR ra a BASIC-Befehl MOVER 
C50A 01C3BB Id bc,BBC3 GRA MOVE RELATIVE 

C50D C5 push bc 

CS0E CDIAC5 cal C51A 2 Argumente holen 

C511 E3 ex (sp),hl 

C512 05 push bc 

0513 E3 ex (sp),hl 

C514 C1 pop be 

C515 CDFIFF cal FFF9 jp (bc), Funktion ausführen 

0518 E1 pop hl 

C519 C9 ret 
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KK FE Er rer ra 2 Integerargumente nach de, bc holen 


C51A CD86CE cal CE86 16-Bit-Wert -32768 - +32767 holen 
C51D D5 push de 

C51E CD37DD cal DD37 Test auf nachfolgendes Zeichen 
C521 2C db 2C ne 

0522 CD86CE cal CE86 16-Bit-Wert -32768 - +32767 holen 
055 42 Id b,d 

0526 4B Id ce 2. Argument nach bc 

C527 DI pop de 1. Argument 

0528 C9 ret 


Renee BASIC-Befehl FOR 


0529 CDB3D6 cal D6B3 Variable lesen 

0520 ES push hl 

C52D C5 push bc 

C52E D5 push de 

C52F CDC5CI cal C9C5 zugehöriges NEXT suchen 
C532 222CAC Id (AC2C),hl Adresse merken 

0535 D5 push de 

0536 E5 push hl 

0537 EB ex de,hl 

0538 CD32C6 cal 632 offene FOR-NEXT-Schleife suchen 
C53B CCACF5 cal z,FSAC gefunden, BASIC-Stackpointer setzen 
C53E E1 pp hl 

C53F CD51DD cal DD51 Ende des Statements ? 
0542 110000 Id de,0000 Default Null 

0545 D486D6 cal nc,D686 nein, Variable holen 

0548 44 Id b,h 

0549 4D Id Gl 

C54A Ei pp hl 

054B E3 ex (sp),hl 

C54C 7A Id a,d 

C54D B3 or e 

C54E C4BBFF cal nz,FFB8 Vergleich hi <> de 

0551 C2F6C5 ip nz,C5F6 'Unexpected NEXT’ 

0554 EB ex de,hl 

0555 CDD2DD cal DDD2 aktuelle Zeilenadresse nach hl 
C558 E3 ex (sp),hl 

0559 CDCEDD cal DDCE aktuelle Zeilenadresse setzen 
C55C Ei pop hl 

C55D Fi pop af 

C55E E3 ex (sp),hl 

C55F D5 push de 

C560 C5 push bc 

0561 E5 push hl 

0562 010516 Id bc,1605 22 Bytes, Typ 5 'Real’ 

C565 B9 cp c 

0566 280B jr 2,0573 
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0568 010210 Id bc,1002 16 Bytes, Typ 2 ’Integer’ 
C56B B9 cp c 

C56C 2805 jr 2,0573 

C56E 1E0D Id e,0D "Type mismatch’ 

0570 C394CA ip CA94 Fehlermeldung ausgeben 
0573 78 Id a,b 

0574 CDBOF5 cal FSBO Platz im BASIC-Stack reservieren 
0577 73 Id (hl),e 

0578 23 inc hl Variablenadresse auf BASIC-Stack 
0579 72 Id (hi),d 

C57A 23 inc hl 

C57B E3 ex (sp),hl 

C57C CD37DD cal DD37 Test auf nachfolgendes Zeichen 
C57F EF db EF =’ 

0580 CDFBCE cal CEFB Ausdruck holen 

0583 79 Id a,C 

0584 CDD7FE cal FED? Variablentyp vergleichen 

0587 E5 push hl 

0588 2127AC Id hl,AC27 Zwischenspeicher für FOR-Variable 
C58B CD62FF cal FF62 Variable nach hi kopieren 
C58E E1 pp hl 

C58F CD37DD cal DD37 Test auf nachfolgendes Zeichen 
0592 EC db EC 'TO' 

0593 CDFBCE cal CEFB Ausdruck holen 

C596 EI ex (sp),hl 

0597 79 Id a,C 

0598 CDD7FE cal FED? Variablentyp vergleichen 
C59B CD62FF cal FF62 Endwert auf BASIC-Stack 
C59E EB ex de,hl 

C59F E3 ex (sp),hl 

C5AO EB ex de,hl 

C5AT 210100 Id h1,0001 eins als Default STEP-Wert 
C5A4 CDODFF cal FFOD Integerzahl h| übernehmen 
C5A7 EB ex de,hl 

C5A8 7E Id a,(hi) 

C5A9 FEE6 cp E6 'STEP' 

C5AB 2006 jr nz,C5B3 

C5AD CDIFDD cal DD3F Blanks überlesen 

C5B0 CDFBCE cal CEFB Ausdruck holen 

C5B3 79 Id a,C 

C5B4 CDD7FE cal FED? Variablentyp vergleichen 
C5B7 E3 ex (sp),hl 

C5B8 CD62FF cal FF62 Variable nach (hl) kopieren 
C5BB CDA3FD cal FDA3 Vorzeichen holen 

C5BE EB ex de,hl 

C5BF 77 Id (h)),a Vorzeichen von STEP auf BASIC-Stack 
C5C0 23 inc hl 

C5C1 EB ex de,hl 

C5C2 Ei pp hl 

C5C3 CD4ADD cal DD4A Ende des Statements, sonst 'Syntax error’ 
C5C6 EB ex de,hl 
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0507 73 Id (hl),e 

C5C8 23 inc hl Adresse des FOR-Befehls auf BASIC-Stack 
0509 72 Id (hi),d 

C5CA 23 inc hl 

C5CB EB ex de,hl 

C5CC CDD2DD cal DDD2 aktuelle Zeilenadresse nach hl 

C5CF EB ex de,hl 

C5D0 73 Id (hl),e 

C5D1 23 inc hl Zeilenadresse von FOR auf BASIC-Stack 
C5D2 72 Id (hl),d 

C5D3 23 inc hl 

C5D4 DI pop de 

C5D5 73 Id (hi),e 

C5D6 23 inc hl Adresse des NEXT-Befehls auf BASIC-Stack 
05D7 72 Id (hi),d 

C5D8 23 inc hl 

C5D9 ED5B2CAC Id de,(AC2C) 

C5DD 73 Id (hl),e 

C5DE 23 inc hl Zeilenadresse NEXT-Befehl auf BASIC-Stack 
C5DF 72 Id (hl),d 

C5E0 23 inc hl 

C5EI 70 Id (hl),b &10 oder &16 für Integer/Real auf Stack 
C5E2 DI pop de 

C5E3 2127AC Id hl,AC27 Zeiger auf Zwischenspeicher 

C5E6 CD66FF cal FF66 FOR-Variable zurückholen 

C5E9 AF xor a 

C5EA 3226AC Id (AC26),a Flag für ersten Durchlauf 

C5ED Ei pop hl 

C5EE CDCEDD cal DDCE aktuelle Zeilenadresse setzen 

C5F1 2A2CAC Id hl,(AC2C) 

C5F4 180A jr C600 zum NEXT-Befehl 

C5F6 1E01 Id e,01 'Unexpected NEXT’ 

C5F8 C394CA ip CA94 Fehlermeldung ausgeben 


er BASIC-Befehl NEXT 


C5FB 3EFF Id a,FF 


C5FD 3226AC Id (AC26),a Flag für Inkrement addieren 
C600 EB ex de,hl 

0601 CD32C6 cal (632 offene FOR-Next-Schleife suchen 
C604 20FO jr nz,C5F6 'Unexpected NEXT’ 

C606 EB ex de,hl 

0607 CDACF5 cal FS5AC BASIC-Stackpointer setzen 
C60A EB ex de,hl 

C60B ES push hl 

C60C CD61C6 cal C661 Test auf Schleifenende 
C60F 280F jr 2,0620 

C611 Fi pop af 

0612 23 inc hl 

0613 5E Id e,(hl) 

0614 23 inc hl Programmzeiger nach de 
0615 56 Id d,(hl) 
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0616 
0617 
0618 
0619 
C61A 
C61B 
C61E 
C61F 


0620 
0623 
0624 
0625 
0626 
0627 
0628 
C62B 
062C 
C62F 
0631 


CDCEDD 
EB 
cg 


010500 


add 


inc 
Id 
pop 
call 
ex 
call 
jr 
ret 


hl 
a,(hl) 
hl 
h,(hl) 
l,a 
DDCE 
de,hl 


bc,0005 
hl,bc 
e,hl) 

hl 

d,(hi) 


F5AC 
de,hl 
DD55 
c,C600 


BASIC 1.0 


Zeilenadresse nach hi 


aktuelle Zeilenadresse setzen 


BASIC-Stackpointer 
plus 5 


Programmzeiger nach 'NEXT’ 
BASIC-Stackpointer setzen 


folgt Komma ? 
ja, nächste NEXT-Schleife 


352 


BASIC 1.0 


KR re Offene FOR-NEXT-Schleife suchen 


0632 2A8BBO Id hl,(B08B) BASIC-Stackpointer 
0635 E5 push hl 

0636 2B dec hl 

0637 46 Id b,(hi) 

C638 23. inc hl 

0639 7D Id a,l 

C63A 90 sub b 

C63B 6F Id la 

063C 9F sbc aa 

C63D 84 add ah 

C63E 67 Id h,a 

C63F E3 ex (sp),hl 

0640 78 Id a,b 

0641 FEO7 cp 07 'WHILE-WEND' ? 
0643 2819 ir z,C65E 

0645 FEIO cp 10 Integer '’FOR-NEXT' ? 
0647 2804 jr 2,064D 

0649 FEI6 cp 16 Real ’FOR-NEXT’ ? 
C64B 200D jr nz,C65A 

C64D E5 push hl 

C64E 2B dc hl 

C64F 2B dc hl 

0650 7E Id a,(hl) 

0651 2B decc hl 

0652 6E Id \(hi) 

0653 67 Id h,a 

0654 CDBBFF cal FFB8 Vergleich hi <> de 
0657 EI pop hl 

0658 2004 jr nz,C65E 

C65A EB ex de,hl 

‚C65B Ei pp hl 

065C 78 Id a,b 

065D CI ret 

C65E Ei pp hl 

C65F 18D4 jr (0635 

C661 5E Id e,(hl) 

C662 23 inc hl 

0663 56 Id d,(hl) 

C664 23 inc hl 

0665 FEIO cp 10 Integer ? 

C667 282D jr 2,0696 

0669 E5 push hl 

C66A 010500 Id bc,0005 Typ auf Real’ 
C66D 79 Id a,C 

C66E EB ex de,hl 

C66F CD4BFF cal FF4B Variable und Typ übernehmen 
0672 EI pop hl 

(673 3A26AC Id a,(AC26) Flag für ersten Durchlauf 
0676 B7 or a 

0677 2810 jr 2,0689 ja, Addition überspringen 
0679 E5 push hl 

C67A 09 add hl,be 
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067B 
C67E 
C67F 
0680 
0681 
0682 
0683 
0684 
0685 
0688 
0689 
C68A 
C68C 
C68F 
0690 
0693 
0694 
0695 


0696 
0697 
0698 
0699 
C69A 
C69B 
C69E 
C69F 
C6A1 
C6A2 
C6A3 
C6A4 
C6A5 
C6A6 
C6A7 
C6A8 
C6A9 
C6AC 
C6AE 


C6B1 
C6B2 
C6B3 
C6B4 
C6B5 
C6B6 
C6B7 
C6B8 
C6B9 
C6BA 
C6BB 
C6BC 
C6BD 
C6BE 
06c1 
0602 


CDCCFC 
E1 

E5 

2B 

56 

2B 

5E 

EB 
CD62FF 
E 

E5 

0E05 
CDO9FD 
E 
010A00 
09 

9% 

cg 


E5 

EB 

5E 

23 

56 
3A26AC 
B7 

2816 

E3 

E5 

23 

23 

TE 

23 

66 

6F 
CDACBD 
1E06 
D294CA 


EB 
E 
E3 
72 
2B 
73 
E 
TE 
23 
E5 
66 
6F 
EB 
CDC4BD 
Ei 
23 


call 
pop 
push 
dec 
Id 
dec 
Id 
ex 
call 
pop 
push 
Id 
call 
pop 
Id 
add 
sub 
ret 


push 
ex 
Id 
inc 
Id 
Id 
or 
jr 
ex 
push 
inc 
inc 
Id 
inc 
Id 
Id 
call 
Id 
Ip 
ex 
pop 
ex 
Id 
dec 
Id 
pop 
Id 
inc 
push 
Id 
Id 
ex 
call 
pop 
inc 
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FCCC STEP-Wert addieren 

hl 

hl 

hl 

d,(hi) 

hl 

e,(hi) 

de,hl 

FF62 Variable nach (hl) kopieren 
hl 

hl 

c,05 

FD09 arithmetischer Vergleich 
hl 

bc,000A 10 

hl,bc 

(hi) 


hl 

de,hl 

e,(hl) 

hl 

d,(hl) 

a,(AC26) erster Durchlauf ? 


a 

2,06B7 ja, Addition überspringen 
(sp),hl. 

hl 

hl 

hl 


a,(h) 
hl 


h,(hl) 

1,a 

BDAC Integer-Addition hi := hi + de 
e,06 'Overflow’ 

nc,CA94 Fehlermeldung ausgeben 


STEP-Wert nach hi holen 


de,hl 
h 
(sp),h 
(hi),d 
h 


(hi),e 
hl 


BDC4 Integer-Vergleich 
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0603 23 inc hl 

C6C4 23 inc hl 

C6C5 96 sub (hl) 

C6C6 C9 ret 
BR BASIC-Befehl IF 
C6C7 CDFBCE cal CEFB Ausdruck holen 

C6CA FEAO cp AO 'GOTO’ 

C6CC 2804 jr z,06D2 

C6CE CD37DD cal DD37 Test auf nachfolgendes Zeichen 

C6D1 EB db EB 'THEN’ 

C6D2 E5 push hl 

C6D3 CDAIFD cal FDA3 Vorzeichen holen 

C6D6 Ei pp hl 

C6D7 CCYFEB cal z,E89F Ende der Zeile oder ELSE-Zweig suchen 
C6DA C8 ret z 

C6DB CD51DD cal DD51 Ende des Statements ? 

C6DE D8 rt  c ja 

C6DF FEIE cp 1E Zeilennummer ? 

C6E1 2805 jr 2,C6E8 ja, zum GOTO-Befehl 

C6E3 FEID cp 1D Zeilenadresse ? 

C6E5 C2ABDD jp nz,DDAB nein,BASIC-Befehl ausführen 
Br BASIC-Befehl GOTO 
C6E8 CD67E7 cal  E767 Zeilenadresse holen 

C6EB EB ex de,hl Adresse als Programmzeiger übernehmen 
C6EC CI ret 
Br BASIC-Befehl GOSUB 
C6ED CD67E7 ‚cl  E767 Zeilenadresse holen 

C6F0 CDEFE8 cal EBEF DATA-Befehl, Rest des Statements überlesen 
C6F3 EB ex de,hl 

C6F4 OEOO Id c,00 Kennzeichen für normales 'GOSUB’ 
C6F6 E5 push hl Adresse des Unterprogramms merken 
C6F7 3E06 Id a,06 6 Bytes 

C6F9 CDBOF5 cal _F5BO Platz im BASIC-Stack reservieren 

C6FC 71 Id (hl),c Null 

C6FD 23 inc hl 

C6FE 73 Id (hi),e 

C6FF 23 inc hl Adresse der Anweisung nach 'GOSUB’ 
C700 72 Id (hi),d auf BASIC-Stack 

C701 23 inc hl 

C702 EB ex de,hl 

C703 CDD2DD cal DDD2 aktuelle Zeilenadresse nach hl 

C706 EB ex de,hl 

C707 73 Id (hi),e 

C708 23 inc hl Zeilenadresse auf BASIC-Stack 

c709 72 Id (hi),d 

C70A 23 inc hl 

C70B 3606 Id (hl),06 Kennzeichen für 'GOSUB’ 

C7OD Ei pp hl Programmzeiger auf Unterprogramm 
C7OE C9 ret 
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KERRERRE r r rrrrrrrr& BASIC-Befehl RETURN 


C7OF CO ret 
C710 CD2EC7 call 
C713 CDACF5 call 
C716 4E Id 
cr17 23 inc 
C718 5E Id 
C719 23 inc 
C71A 56 Id 
C71B 23 inc 
C7IC TE Id 
C71D 23 inc 
CTIE 66 Id 
C7I1F 6F Id 
C720 CDCEDD call 
C723 EB ex 
0724 79 Id 
C725 FEO1 cp 
C727 D8 ret 
C728 CAA4CB ip 
C72B C3B6C8 ip 
LE zz 2 ZZ zz zz ZZ ZZ zZ zo 2 
C72E 2A8BB0 Id 
C731 2B dec 
C732 TE Id 
C733 F5 push 
0734 7D Id 
C735 96 sub 
C736 6F Id 
C737 9F sbc 
C738 84 add 
0739 67 Id 
C73A 23 inc 
C73B Fi pop 
C73C FEO6 cp 
C73E CB ret 
C73F B7 or 
C740 20EF ir 
C742 1E03 Id 
0744 C394CA ip 
LE zz z z Z — ZZ zZ — ZZ 2 zz 2 
C747 E5 push 
C748 CD18CA call 
C74B E5 push 
C74C EB ex 
C74D 222EAC Id 
C750 CDB8C7 call 
0753 CCACF5 call 
C756 3E07 Id 
C758 CDBOF5 call 
C75B EB ex 
C75C CDD2DD call 
C75F EB ex 


nz 


C72E GOSUB auf BASIC-Stack suchen 
FSAC BASIC-Stackpointer zurücksetzen 
ch) Kennbyte 

hl 

e,(hi) 

hl Adresse der Anweisung nach 'GOSUB’ 
d,{hl) nach de holen 

hl 

a,(hl) 

hl Zeilenadresse nach hl 

h,(hi) 

1,a 

DDCE aktuelle Zeilennummer setzen 

de,hl aktueller Programmzeiger nach hi 

a,C Kennbyte 

01 kleiner eins ? 

[6 ja, normales GOSUB 

z,C8A4 eins, dann GOSUB nach AFTER/EVERY 
C8B6 

KEREKKKKE KK TH T a 
hl,(BO8B) BASIC-Stackpointer 

hl 

a,(hl) Kennzeichen vom BASIC-Stack holen 
af 

a,l 

(hi) 

l,a 

a,a 

a,h BASIC-Stackpointer zurücksetzen 
h,a 

hl 

af 

06 'GOSUB’ 

z 

a 

nz,C731 

e,03 'Unexpected RETURN’ 

CA94 Fehlermeldung ausgeben 


KekkkkkKKKkkeeK ee BASIC-Befehl WHILE 
hl 


CA18 zugehöriges WEND suchen 

hl Adresse merken 

de,hl 

(AC2E),hl Zeilenadresse für WHILE-WEND 
C7B8 

z,F5AC BASIC-Stackpointer setzen 

a,07 7 Bytes 

F5B0 Platz im BASIC-Stack reservieren 
de,hl 

DDD2 aktuelle Zeilenadresse nach hl 
de,hl 
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C760 
C761 
0762 
C763 
C764 
C765 
C766 
C767 
C768 
C769 
C76A 
C76B 
C76C 
C76D 
C76E 
C76F 
C770 
c772 
0773 
0774 


LE ZZ zz zz z z z Z zZ 2 Z ZZ 2 


C776 
c777 
0778 
C77B 
C77D 


C780 
C781 
0784 
C785 
C788 
C78B 
C78E 
C78F 
C7% 
c791 
C7% 
07% 
0794 
C797 
C798 
0799 
C79A 
C79B 
C79C 
C79D 
C79E 
C79F 
C7AO 
C7M 
C7A4 
C7AS 
C7A8 


73 
23 
72 
23 
D1 
73 
23 
72 
23 
EB 
E3 
EB 
73 
23 
72 
23 
3607 
EB 
Di 
182A 


C294CA 


ES 
110700 
19 
CDACFS 
CDD2DD 
222EAC 
Ei 

5E 

23 

56 

23 

EB 
CDCEDD 
EB 

5E 

23 

56 

23 

TE 

23 

66 

6F 

D5 
CDFBCE 
E5 
CDA3FD 
Ei 


Id 
inc 
Id 
inc 
pop 
Id 
inc 
Id 
inc 
ex 
ex 
ex 
Id 
inc 
Id 
inc 
Id 
ex 
pop 
ir 


ret 
ex 
call 
Id 
Ip 


push 
Id 
add 
call 
call 
Id 
pop 
Id 
inc 
Id 
inc 
ex 
call 
ex 
Id 
inc 
Id 
inc 
Id 
inc 
Id 

Id 
push 
call 
push 
call 
pop 


BASIC 1.0 


(hl),e 

hl Zeilenadresse auf BASIC-Stack 

(hi),d 

hl 

de 

(hl),e 

hl Adresse nach 'WEND’ auf BASIC-Stack 
(hi),d 

hl 


de,hl 

(sp),hl 

de,hl 

(hl),e 

hl Adresse der 'WHILE’-Bedingung 
(hi),d auf BASIC-Stack 

hl 

(h1),07 Kennzeichen für 'WHILE’ 
de,hl 

de 

C7A0 "WHILE’-Bedingung testen 


KR rer BASIC-Befehl WEND 
nz 

de,hl 

C7B8 

e,1E 'Unexpected WEND’ 

nz,CA94 Fehlermeldung ausgeben 


hl 

de,0007 

hl,de 

FSAC hl als BASIC-Stackpointer 
DDD2 aktuelle Zeilenadresse nach hl 
(AC2E),hl Zeilenadresse für WHILE-WEND 
hl 

e,(hl) 

hl 

d,(hl) 

hl 


de,hl 

DDCE aktuelle Zeilenadresse setzen 
de,hl 

e,(hl) 

hl 

d,(hl) 


CEFB Ausdruck holen 


FDA3 Vorzeichen holen 
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C7A9 DI pop de 

C7AA CO ret nz Bedingung erfüllt ? 

C7AB 2A2EAC Id hl,(AC2E) Zeilenadresse für WHILE-WEND 
C7AE CDCEDD cal DDCE als aktuelle Zeilenadresse setzen 
C7B1 3E07 Id a,07 

C7B3 CDAOF5 cal FSAO Platz im BASIC-Stack freigeben 
C7B6 EB ex de,hl 

C7B7 C9 ret 

LE 2 zz z z z z 2 Z 2 Z z Z Z 2 z Z 2 zz 2 2 zz 2 z 2 2 2 Z 2 Z 2 Z 2 2 2 2 ZZ ZZ ZZ 2 2 ZZ 2 2 2 2 zz 2 
C7B8 2A8BBO Id hl,(BO8B) BASIC-Stackpointer 

C7BB 2B dc hl 

C7BC E5 push hl 

C7BD 7D Id a,l 

C7BE 96 sub (hl) 

C7BF 6F Id 1,a 

C7Co 9F sbc aa 

C7C1 84 add ah 

C7C2 67 Id h,a 

C7C3 23 inc hl 

C7C4 E3 ex (sp),hl 

C7C5 7E Id a,(hl) 

C7C6 FE1O cp 10 Integer 'FOR-NEXT’ 

C7C8 2816 jr 2,C7E0 

C7CA FE16 cp 16 Real ’FOR-NEXT’ 

C7CC 2812 jr z,C7EO 

C7CE FEO7 cp 07 'WHILE-WEND’ 

C7DO 200C jr nz,C7DE 

C7D2 2B dee hl 

C7D3 2B dee hl 

C7D4 2B decc hl 

C7D5 7E Id a,(hl) 

C7D6 2B dece hl 

C7D7 6E Id (hi) 

C7D8 67 Id h,a 

C7D9 CDBBFF cal _FFB8 Vergleich hl <> de 

C7DC 2002 jr nz,C7EO 

C7DE Ei pp hl 

C7DF C9 ret 

C7EO EI pp hl 

C7E1 18D8 jr C7BB 
KR ra BASIC-Befehl ON 
C7E3 FEYC cp 9C 'ERROR’ 

C7E5 CAESCB ip z,CBE5 

C7E8ß CD67CE cal CE67 8-Bit-Wert holen 

C7EB 4F Id c,a als Zähler nach c 

C7EC 46 Id b,(hl) Token holen 

C7ED 78 Id a,b 

C7EE FEAO cp A0 'GOTO’ 

C7FO 2805 jr z,C7F7 

C7F2 CD37DD cal DD37 Test auf nachfolgendes Zeichen 
C7F5 9F db 9F 'GOSUB’ 

C7F6 2B decc hl 
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c Zähler erniedrigen 

a,b Token nach a 

z,DDAB BASIC-Befehl ausführen 
DD3F Blanks überlesen 

CEE1 Zeilennummer nach de holen 
2C “ 

z,C7F7 nächste Zeilennummer 


KERR ee # Event-Verarbeitung (AFTER/EVERY) 


C7F7 0D dec 
C7F&8 78 Id 
C7F9 CAABDD ip 
C7FC CD3FDD call 
C7FF CDEICE call 
0802 FE2C cp 
C804 28F1. jr 
C806 C9 ret 
(807 AF xor 
0808 3230AC Id 
C80B CDFBBC call 
C80E 301D jr 
c810 47 Id 
0811 3A30AC Id 
0814 E67F and 
0816 3230AC Id 
0819 05 push 
C81A E5 push 
C81B CDFEBC call 
C8IE Ei pop 
C8iF C1 pop 
0820 3A30AC Id 
0823 17 rla 
0824 F5 push 
0825 78 Id 
0826 D401BD call 
0829 Fi pop 
CB2A 17 rla 
C82B 30DE jr 
C82D 3A30AC Id 
C830 E604 and 
0832 045304 call 
0835 2A34AE Id 
0838 3A30AC Id 
C83B E603 and 
C83D C8 ret 
C83E IF rra 
C83F DA6BCB ip 
0842 23 inc 
0843 Fi pop 
0844 C393DD ip 
KR ER 
0847 2236AC Id 
C84A 3E04 Id 
C84C 3050 jr 
C84E 2AS4AC Id 
0851 7C Id 
C852 B5 or 
‚ 0853 C4D6DD call 
0856 3E41 Id 
0858 3044 jr 
C85A 1131AC Id 


a 


(AC30),a 

BCFB KLNEXTSYNC 

nc,C82D steht kein Ereignis an ? 

b,a Priorität merken 

a,(AC30) 

7F Bit 7 löschen 

(AC30),a 

bc 

hl Adresse des Event-Blocks 
BCFE KLDOSYNC 

hl 

bc 

a,(AC30) 

af 

a,b 

nc,BD01 KLDONE SYNC 

af 

nc,C80B nächstes Event 

a,(AC30) 

04 

nz,0453 Unterbrechung durch ’ESC’ erlauben 
hI,(AE34) Adresse des aktuellen Statements 
a,(AC30) 

03 

z 

c,CB6B 'Break’ 

hl 

af 

DD93 zur Interpreterschleife 

LE ZZ z z z z z z z z z ZZ 2 z z Z 2 z z Z z z 2 2 2 2 2 2 = ZZ 2 zz 2 
(AC36),hl 

a,04 

nc,C89E 

hl,(AC34) ON-BREAK-Adresse 

a,h 

| 

nz,DDD6 Zeilennummer nach hl 

a,41 

nc,C89E Direktmodus ? 

de,AC31 
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C85D 0E02 Id c,02 
C85F 1825 jr 0886 
LE zz z z z z Z z z 2 Z z zz 2 2 z 2 zZ z 2 z 2 2 2 2 z ZZ 2 Z zZ z Z 2 zz z 2 z 2 zZ 2 zz 2 ZZ 2 zZ 2 
C861 D5 push de 
0862 CD37DD cal DD37 Test auf nachfolgendes Zeichen 
C865 9F db 9F 'GOSUB’ 
C866 CD67E7 cal E767 Zeilenadresse holen 
0869 42 Id b,d 
C86A 4B Id ce 
C86B CD61DD cal DD61 Blank, TAB und LF überlesen 
C86E DI pop de 
C86F E5 push hl 
- C870 210A00 Id h1,000A 10 
0873 19 add hi,de 
0874 71 Id (hl),c 
(875 23 inc hl 
876 70 d Mb 
0877 Ei pp hl 
0878 C9 ret 
LE zz zz zZ z Z z z z z z z Z z z 2 Z 2 z Z z 2 z z Z z z z zz zz zz z 2 2 ZZ zZ zZ zz 2 Event-Routine 
0879 23 inc hl 
C87A 23 inc hl 
C87B 23 inc hl 
C87C EB ex de,hl 
C87D CDD6DD cal DDD6 Zeilennummer holen/Direktmodus ? 
C880 3E40 Id a,40 
(882 301A jr nc,C89E ja 
(884 0EO1 Id c,01 Kennbyte für AFTER/EVERY GOSUB 
(886 D5 push de 
(887 CDF6C6 cal C6F6 GOSUB-Befehl 
C88A 2A34AE Id hl, (AE34) Adresse des aktuellen Statements 
C88D EB ex de,hl 
C88E Ei pp hl 
C88F 70 Id (hl),b 
C890 23 inc hl 
0891 73 Id (hl),e 
0892 23 inc hl 
(893 72 Id (hl),d 
0894 23 inc hl 
0895 5E Id e,{hl) 
(896 23 inc hl 
(897 56 Id d,(h)) 
C898 EB ex de,hl 
(899 2234AE Id (AE34),hl Adresse des aktuellen Statements 
C89C 3EC2 Id a,C2 
C89E 2130AC Id hl,AC30 
C8A1 B6 or (hi) 
C8A2 77 Id (hi),a 
C8A3 C9 ret 
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C8A4 TE Id a,(hl) 

C8A5 23 inc hl 

C8A6 5E Id e,(h)) 

C8A7 23 inc hl 

C8AB 56 Id d,(hl) 

C8A9 D5 push de 

C8AA OIF7FF Id be,FFF7 

C8AD 09 add hl,be 

C8AE CDO1BD cal BDO1 KLDONE SYNC 

C8B1 EI pp hl 

C8B2 Fi pop af 

C8B3 C374DD ip DD74 zur Interpreterschleife 

C8B6 7E Id a,(hl) 

C8B7 2AS6AC Id hl,(AC36) 

C8BA O1FCFF Id bc,FFFC 

C8BD 09 add hl,be 

C8BE CDO1BD cal BDO1 KLDONE SYNC 

C8C1 CD53C4 cal (453 Unterbrechung durch 'Break’ erlauben 
C8C4 2AB2AC Id hl, (AC32) 

08C7 Fi pop af 

C8C8 C374DD jp DD74 zur Interpreterschleife 
re BASIC-Befehl ON BREAK 
C8CB FECE cp CE 'STOP’ 

C8CD 110000 Id de,0000 Defaultwert 0 bei STOP 

C8D0 2808 jr 2,08DA 

C8D2 CD37DD cal DD37 Test auf nachfolgendes Zeichen 
C8D5 9F db 9F 'GOSUB’ 

C8D6 CD67E7 cal  E767 Zeilenadresse holen 

C8D9 2B dee hl 

C8DA ED5334AC Id (AC34),de ON-BREAK Adresse 

C8DE C33FDD ip DD3F Blanks überlesen 
re BASIC-Befehl DI 
C8EI E5 push hl 

C8E2 CDO4BD cal BDO4 KLEVENT DISABLE 

C8E5 E1 pp hl 

C8E6 C9 ret 
Bere BASIC-BefehlEl 
C8E7 E5 push hl 

C8E8 CDO07BD cal BD07 KL EVENT ENABLE 

C8EB Ei pp hl 

CBEC C9 ret 
ner SOUND und Event-Reset 
C8ED CDA7BC cal BCA7 SOUND RESET 

C8F0 215CAC Id hl, AC5C Basis-Adresse der Event-Blocks 
C8F3 0604 Id b,04 4 Timer 

C8F5 E5 push hl 

C8F6 CDECBC cal BCEC KLDELTICKER 

c8F9 EI pop hl 

C8FA 111200 Id de,0012 18 

C8FD 19 add hi,de addieren 
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C8FE 10F5 dinz C8F5 nächster Timer 

C900 CD48BB cal BB48 KM DISARM BREAK 

C903 CDF5BC cal BCF5 KLSYNC RESET 

C906 210000 Id h1,0000 

C909 2234AC Id (AC34),hl ON-BREAK Adresse löschen 
C90C CD53C4 cal C453 Unterbrechung durch 'Break’ erlauben 
C9OF 2138AC Id h1,AC38 

C912 110503 Id de,0305 

C915 010008 Id bc,0800 

C918 CD24C9 cal 0924 

C91B 2162AC Id hl,AC62 Adresse des Event-Blocks 
C91E 110804 Id de,040B 

C921 010102 Id bc,0201 

94 C5 push bc 

095 D5 push de 

C926 OEFD Id c,FD BASIC-ROM Selekt 

C928 1179C8 Id de,C879 Adresse der Event-Routine 
C92B CDEFBC cal BCEF KLINIT EVENT 

CQ2E DI pop de 

C92F D5 push de 

C930 1600 Id d,00 

0932 19 add hl,de 

0933 DI pop de 

0934 C1 pop be 

0935 79 Id a,C 

C936 B7 or a 

0937 2803 jr 2,0930 

C939 78 Id a,b 

C93A 87 add aa 

C93B 47 Id b,a 

C93C 15 dee d 

C93D 20E5 ir nz,0924 

C93F C9 ret 
re BASIC-Befehl ON SQ 
0940 CD37DD cal DD37 Test auf nachfolgendes Zeichen 
C943 28 db 28 iR 

(945 CD67CE cal CE67 8-Bit-Wert holen 

0947 F5 push hl 

C948 CD5DCI cal . C95D Adresse der Sound-Queue berechnen 
C94B B7 or a größer 4 ? 

C94C 201E jr nz,C96C 'Improper argument’ 

CYE CD37DD cal DD37 Test auf nachfolgendes Zeichen 
0951 29 db 29 ) 

C952 CD6108 cal (861 'GOSUB'’ und Adresse holen 
C95 Fi pop af 

C956 E5 push hl 

C957 EB ex de,hl 

0958 CDBOBC cal BCBO SOUND ARM EVENT 

CB Ei pp hl 

C95C C9 ret 
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Br rer rar aaa aa Adresse der Sound-Queue berechnen 


C95D IF rra Bit 0 gesetzt ? 

C9Y5E 1138AC Id de,AC38 

C961 D8 ret c 

C962 1F rra Bit 1 gesetzt ? 

0963 1144AC Id de,AC44 

C966 DB ret C 

c967 IF rra Bit 2 gesetzt ? 

0968 1150AC Id de,AC50 

C96B DE ret c 

C96C 1E05 Id e,05 'Improper argument’ 

CIE C394CA jp CA94 Fehlermeldung ausgeben 
tn BASIC-Befehl AFTER 
0971 CD7CCE cal CE7C 16-Bit-Wert 0 - 32767 holen 

C974 010000 Id bc,0000 Recharge Count auf Null 

0977 1805 jr CI7E 
rt BASIC-Befehl EVERY 
0979 CD7CCE cal CE7C 16-Bit-Wert 0 - 32767 holen 

097C 42 Id b,d als Count und 

C97D 4B Id ce Recharge Count 

C97E D5 push de 

C97F 05 push bc 

C980 CD55DD cl DD55 folgt Komma ? 

0983 110000 Id de,0000 Defaultwert Null 

0986 DC86CE cal c,CE86 ja, Integerwert mit Vorzeichen holen 
C989 EB ex de,hl 

C98A CDB1C9 cal C9B1 Aus Timer# Adresse des Event-Blocks holen 
C98D E5 push hl 

C98E 010600 Id bc,0006 6 Bytes für Tickerblock addieren 
C991 09 add hl,be 

0992 EB ex de,hl 

0993 CD6108 cal (861 'GOSUB'’ und Adresse holen 

C996 DI pop de 

c997 C1 pop be 

0998 E3 ex (sp),hl 

C999 EB ex de,hl 

C99A CDEIBC cal BCEY KLADD TICKER 

C99D Ei pop hl 

C99E C9 ret 
RR BASIC-Funktion REMAIN 
C99F CD8DFE cal FE8D CINT 

C9A2 CDB1C9 cl C9YB1 Adresse des Event-Blocks holen 
C9A5 CDECBC cal BCEC KLDELTICKER 

C9YA8B 3803 ir c,C9AD gefunden ? 

C9AA 110000 Id de,0000 nein, Null 

C9AD EB ex de,hl : 

CYAE C3ODFF ip FFOD Integerzahl in hi Übernehmen 


rk aer Adresse des Event-Blocks berechnen 
C9B1 7C Id a,h 

C9B2 B7 or a Hi-Byte ungleich Null ? 

C9B3 20B7 jr nz,C96C ja, 'Improper argument’ 
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C9B5 7D Id a,l 

C9B6 FEO4 cp 04 größer gleich 4 ? 
C9B8 30B2 jr nc,C96C ja, 'Improper argument’ 
C9YBA 87 add aa 

C9BB 87 add aa 

C9BC 87 add aa *18 

C9BD 85 add al 

C9BE 87 add aa 

C9BF 6F Id 1,a 

C9CO 015CAC Id bc,AC5C Basisadresse Event-Tabelle 
C9C3 09 add hi,bc plus Offset 

C9C4 C9 ret 


er Zugehöriges NEXT suchen 
C9C5 EB ex  de,hl 


C9C6 CDD2DD cal DDD2 aktuelle Zeilenadresse nach hl 
C9C9 EB ex de,hl 

C9CA 2B dee hl 

C9CB 0601 Id b,01 Zähler für Verschachtelung 
C9CD 0EIA Id c,1A Fehlernummer für 'NEXT missing’ 
C9CF CD23E9 cal E923 

C9D2 E5 push hi 

C9D3 CD3FDD cal DD3F Blanks überlesen 

C9D6 FEBO cp BO 'NEXT’ 

C9D8 2808 jr z,C9E2 

C9DA Ei pp hl 

C9DB FEYE cp 9E 'FOR’ 

C9DD 20EE jr nz,C9CD 

CIDF 04 inc b Verschachtelung erhöhen 
C9EO 18EB jr C9CD weiter suchen 

C9E2 Fi pop af 

C9E3 EB ex de,hl 

C9E4 E5 push hl 

C9E5 CDD2DD cal DDD2 aktuelle Zeilenadresse nach hl 
C9EB E3 ex (sp),hl 

C9E9 CDCEDD cal DDCE aktuelle Zeilenadresse setzen 
C9EC EB ex de,hl 

C9ED 05 dc b Verschachtelung erniedrigen 
C9EE 2824 jr z,CA14 zugehöriges 'NEXT’ gefunden ? 
C9FO CD3FDD cal DD3F Blanks überlesen 

C9F3 280E jr 2,CA03 Zeilenende ? 

C9F5 C5 push bc 

C9F6 D5 push de 

C9F7 CD86D6 cal D686 Variable suchen 

C9FA DI pop de 

C9FB C1 pop be 

C9FC CD55DD cal DD55 folgt Komma ? 

CIFF 3002 jr nc,CA03 nein 

CAO1 10F2 dinz C9YF5 sonst nächste Variable nach 'NEXT’ 
CA03 2B dc hl 

CA04 78 Id a,b zugehöriges 'NEXT’ gefunden ? 
CA0O5 B7 or a 

CA06 280C jr z,CA14 ja 

CA08 EB ex de,hl 
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CA09 CDD2DD call 
CA0OC E3 ex 
CAOD CDCEDD call 
CA10 EI pop 
CA11 EB ex 
CA12 18B9 jr 
CA14 DI pop 
CA15 C33FDD ip 
LE ZZ zz z zz ZZ Z zz zZ ZZ 2 
CA18 2B dec 
CA19 EB ex 
CAIA CDD2DD call 
CA1D EB ex 
CA1E 0600 Id 
CA20 04 inc 
CA21 0E1D Id 
CA23 CD23EY call 
CA26 E5 push 
CA27 CD3FDD call 
CARA EI pop 
CA2B FED6 cp 
CA2D 28F1 jr 
CA2F FED5 cp 
CA31 20EE jr 
CA33 10EC dinz 
CA35 CDIFDD call 
CA38 CIIFDD ip 
LE zz zz ZZ 2 ZZ zz ZZ zZ zo 2 
CA3B 21A4AC Id 
CASE 3600 Id 
CA40 C33ABD ip 

LE 2 — zz ZZ 2 ZZ ZZ ZZ zZ zo 2 
CA43 21A4AC Id 
CA46 CD3ABD call 
CA49 C34EC3 ip 

LE zZ zz ZZ zZ Z — z zZ ZZ z 2 
CA4C C5 push 
CA4D D5 push 
CA4E 21A4AC Id 
CA51 ES push 
CA52 0601 Id 
CA54 0EOO Id 
CA56 CD80BC call 
CA59 CA6BCB ip 
CASC 3022 jr 
CASE 77 Id 
CA5SF FEOD cp 
CA61 2817 jr 
CA63 O0EOO Id 
CA65 FEOA cp 
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DDD2 aktuelle Zeilenadresse nach hi 
(sp),hl 

DDCE aktuelle Zeilenadresse setzen 
hl 

de,hl 

C9CD weitersuchen 

de 

DD3F Blanks überlesen 


KekKKKKKKKEKKKH HERE ZUgehöriges WEND suchen 
hl 


de,hl 

DDD2 aktuelle Zeilenadresse nach hl 
de,hl 

b,00 Zähler für Verschachtelung 

b 

c,1D Fehlernummer für 'WEND missing’ 
E923 

hl 

DD3F Blanks überlesen 

hl 

D6 "WHILE’ 

z,CA20 Verschachtelung erhöhen 

D5 'WEND’ 

nz,CA21 

CA21 Verschachtelung erniedrigen 
DD3F Blanks überlesen 

DD3F Blanks überlesen 

KR ker Eingabezeile holen 
hl,ACA4 Zeiger auf Eingabepuffer 

(hl),00 Pufferinhalt löschen 

BD3A Eingabezeile holen 
rer Zeile editieren 
hl,ACA4 Zeiger auf Eingabepuffer 

BD3A Zeile editieren 

C34E LF ausgeben 


KrkkkKkKKkkkk kr r Eingabezeile von Kassette holen 
bc 

de 

hl,ACA4 Zeiger auf Eingabepuffer 
hl 

b,01 

c,00 

BC80 CAS IN CHAR 

2,CB6B 

nc,CA80 

(h)),a 

0D CR 

2,CA7A 

c,00 

0A LF 
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CA67 2006 jr 
CA69 78 Id 
CA6A 3D dec 
CA6B 28E7 ir 
CA6D OEFF Id 
CA6F 78 Id 
CA7TO B7 or 
CAT1 1E17 Id 
CA73 CAY4ACA ip 
CA76 23 inc 
CA77 04 inc 
CA78 18DC jr 
CATA 79 Id 
CATB B7 or 
CA7C 20D8 jr 
CATE 77 Id 
CATF 37 scf 
CA80 Ei pop 
CA81 DI pop 
CA82 C1 pop 
CA83 C9 ret 


LE ZZ 2 z zz z z z z z z zz zz 


CA84 AF xor 


LE ZZ 2 z zz z z z z z z z z zz; 


CA85 32AAAD Id 
CA88 CDD2DD call 
CA8B 22A6AD Id 


CABE C9 ret 

LE 2 zz z z z 2 2 ZZ ZZ z zz z 2 
CA8F CD6DCE call 
CA92 CO ret 
CAQ3 5F Id 


DEZ zz 2 z z zz z z zz 2 z ZZ 2 


CA94 CDO4AC call 


CA97 7B Id 
CA98 CD85CA call 
CA9B 2AS4AE Id 
CAYE 22A8BAD Id 
CAA1 CDBOCB call 
. CAA4 3100C0 Id 
CAA7 2AS2AE Id 
CAAA CDACF5 call 
CAAD CDB3FB call 
CABO CDFDDI call 
CAB3 CDDFCA call 
CAB6 2AAFAD Id 
CAB9 EB ex 
CABA 21B1AD Id 
CABD 300C jr 
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nz,CA6F 
a,b 


a 
2,CA54 
c,FF 
a,b 


a 
e,17 
2,CA94 


"Line too long’ 
Fehlermeldung ausgeben 


hl 
b 
CA56 


a,C 

a 
nz,CA56 
h),a 


hl 


de 
bc 


KRRKKKKKKEKK EEE Fehlernummer löschen 
a 


rk Fehlernummer setzen 


(ADAA),a Fehlernummer 
DDD2 aktuelle Zeilenadresse nach hi 
(ADAB6),hl ERROR-Line 


er BASIC-Befehl ERROR 
CE6D 8-Bit-Wert ungleich Null holen 

nz 
e,a Fehlernummer nach e 

KA KKEKHKre Fehlermeldung ausgeben 
AC04 ret 


a,e 

CA85 Fehlernummer und -zeile merken 

hl, (AE34) Adresse des aktuellen Statements 
(ADAB),hl Programmzeiger nach ERROR 

CBB0 Zeilenadresse und Programmzeiger merken 
sp,C000 Stackpointer auf CO00 

hI,(AE32) Speicher für BASIC-Stackpointer 
FSAC BASIC-Stackpointer neu setzen 

FBB3 Descriptorstack initialisieren 

DIFD AE29 und AE2B löschen 

CADF Zeilennummer der ERROR-Zeile holen 
hl,(ADAF) Adresse der ON-ERROR-Routine 
de,hl 

hl,ADB1 Flag für in Fehlerbehandlung 

nc,CACB 


366 


BASIC 1.0 


CABF 7A Id a,d 

CACO B3 or e 

CAC1 2808 jr z,CACB 

CAC3 A6 and (hi) 

CAC4 2005 jr nz,CACB 

CAC6 35° decc (hl) 

CAC7 EB ex de,hl 

CAC8 C393DD ip DD93 zur Interpreterschleife 

CACB 3600 Id (hl),00 

CACD 3AAAAD Id a,(ADAA) ERROR-Nummer 

CADO CD45CC cal CC45 Zeiger auf Fehlermeldung setzen 
CAD3 2AAGAD Id hl,(ADA6) Adresse der ERROR-Zeile 
CAD6 CDCEDD cal DDCE aktuelle Zeilenadresse setzen 
CAD9 CD36CB cal CB36 

CADC C364C0 ip C064 zum READY-Modus 

Dee en ee Ze u m m ZZ u ZZ ZZ ZZ Z 2 Z zZ Z 2 zZ Z 2 z ZZ Z 2 zZ Z Z Z zz z z 2 ZZ 2 ZZ ZZ 2 
CADF 2AA6GAD Id hl,(ADA6) Adresse der ERROR-Zeile 
CAE2 CDDIDD cal DDD9 Zeilennummer nach hi holen 
CAE5 D8 ret c 

CAE6 210000 Id h1,0000 

CAE9 C9 ret 

LE u zu ZZ ZZ zz zz ZZ ZZ Z 2 2 zz ZZ Z 2 Z Z 2 2 Z Z Z Z ZZ z Z Z z Z Z ZZ Z Z z Z z z z 2 zz zz 2 
CAEA D5 push de 

CAEB E5 push hl 

CAEC 2113CD Id hl,CD13 Zeiger auf 

CAEF 1EOB Id e,0B "Division by zero’ 

CAF1 1807 ir CAFA 

CAF3 D5 push de 

CAF4 E5 push hl 

CAF5 21B9CC Id hl,CCB9 Zeiger auf 

CAF8 1E06 Id e,06 'Overflow’ 

CAFA F5 push af 

CAFB E5 push hl 

CAFCG 2AAFAD Id hl,(ADAF) Adresse der ON-ERROR-Routine 
CAFF 7C Id a,h 

CB00 B5 or | 

CB01 Ei pp hl 

CB02 C294CA ip nz,CA94 Fehlermeldung ausgeben 
CB05 AF xor a 

CB06 CDA2CI cal CI1A2 

CB09 F5 push af 

CBOA CD41C3 cal 0341 String ausgeben 

CBOD CD4ECI cal CS34E LF ausgeben 

CB10 Fi pop af 

CB11 CDA2C1 cal C1A2 

CB14 Fi pop af 

CB15 E! pp hl 

CB16 Di pop de 

CB17 C9 ret 
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CB18 CD86C3 cal C386 Bildschirm initialisieren 
CB1B 2123CB Id hl,CB23 "Undefined line’ ausgeben 
CB1E CD48CB cal CB48 Zeilennummer ausgeben 
CB21 181D jr CB40 'in Zeilennummer’ ausgeben 


LEE ZZ ZZ zz z z z z z Z 2 Z Z 2 Z z Z Z Z z z zz 2 2 2 z z z Z Z Z Z z Z z z z Z z 2 2 2 zz z Z 2 z z 3 


CB23 55 6E 64 65 66 69 6E 65 


CB2B 64 20 6C 69 6E 65 20 00 "Undefined line ’ 

LE 2 2 zZ Z 2 2 2 ZZ 2 — z 2 2 2 ZZ 2 z 2 2 Z z z z z 2 zZ Z z zz ZZ z zz zZ Z Z 2 Z ZZ 2 2 ZZ 2 ZZ 2 
0833 114FCB Id de,CB4F Zeiger auf Break’ 

CB36 CDIYDCI cal C19D 

CB39 CD86C3 cal C386 Bildschirm initialisieren 

CB3C EB ex de,hl 

CB3D CD41C3 cal (341 ausgeben 

CB40 CDD6DD cl DDD6 Zeilennummer nach hi holen 

CB43 DO ret nc Direktmodus ? 

CB44 EB ex de,hl 

GB45 2155CB Id hl,CB55 Zeiger auf’ in’ 

CB48 CD41C3 cal (0341 ausgeben 

CB4B EB ex de,hl 

CB4C C379EE ip EE79 Zeilennummer ausgeben 

LE 2 z zZ z 2 2 2 2 Z 2 Z z 2 2 2 Z ZZ z 2 2 ZZ z z z z z ZZ z z 2 ZZ z Z z 2 ZZ z 2 ZZ — 2 ZZ zZ zz 2 
CB4F 42 72 65 61 6B 00 'Break’ 

CB55 20 69 6E 20 00 'in' 


nn BASIC-Befehl STOP 


CB5A CO ret nz 


CB5B E5 push hl 

CB5C CD33CB cal CB33 "Break in Zeilennummer’ 

CB5F E1 pp hl 

CB60 CD9YICB cl CBY3 

CB63 182B ir CB90 zum READY-Modus 
tn BASIC-Befehl END 
CB65 CO ret nz 

CB66 CD9YICB cal CB93 

CB69 181C jr CB87 

CB6B CD3ICB cal CB33 

CB6E 2A34AE Id hi,(AE34) Adresse des aktuellen Statements 
CB71 CDBOCB cal CBBO 

CB74 181A jr CB90 

CB76 CDD6DD cal DDD6 Direkt-Modus ? 

CB79 3012 jr nc,CB8D ja 

CB7B CDABCB cal CBAB 

CB7E 3AB1AD Id a,(ADB1) noch in Fehlerbehandlung ? 

CB81 B7 or a 

CB82 1613 Id e,13 "RESUME missing’ 

CB84 C294CA ip nz,CA94 ja, Fehlermeldung ausgeben 
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CB87 CD98D2 cal D298 

CB8A CDAID2 cal D2A1 

CB8D CDCBDD cal _DDCB aktuelle Zeilenadresse auf Null 
CB90 C364C0 ip C064 zum READY-Modus 
Peru nn nn nenn m Ze m ZZ u ZZ ZZ z ZZ 2 ZZ Z 2 2 2 ZZ 2 z 2 z zz 2 z z 2 2 0 
CB93 EB ex de,hl 

CB94 CDD6DD cal DDD6 Zeilennummer nach hl holen 
CB97 EB ex de,hl 

CB98 DO ret nc Direktmodus ? 

CB99 7E Id a,(hl) 

CBYA FEO1 cp 01 

CB9C 280B jr 2,CBA9 

CBYE 23 inc hl 

CBYF TE Id a,(hl) 

CBAO 23 inc hl 

CBA1 B6 or (hl) 

CBA2 2807 jr z,CBAB 

CBA4 23 inc hl 

CBA5 CDCEDD cal DDCE aktuelle Zeilenadresse setzen 
CBAB 23 inc hl 

CBA9 1805 jr CBB0 

CBAB 210000 Id h1,0000 

CBAE 180C jr CBBC 

CBBO EB ex de,hl 

CBB1 CDD6DD cl DDD6 Direktmodus ? 

CBB4 DO ret nc ja 

CBB5 CDD2DD cal DDD2 Zeilenadresse nach hl 

CBB8 22ADAD Id (ADAD),hl Zeilenadresse nach Unterbrechung 
CBBB EB ex de,hl 

CBBC 22ABAD Id (ADAB),hl Programmzeiger nach Unterbrechung 
CBBF C9 ret 


re BASIC-Befehl CONT 


CBCO CO ret nz 


CBC1 2AABAD Id hl,(ADAB) Programmzeiger nach Unterbrechung 
CBC4 7C Id a,h 

CBC5 B5 or | 

CBC6 1E11 Id e,11 "Cannot CONTinue’ 

CBC8 CAY4CA ip 2,CA94 Fehlermeldung ausgeben 

CBCB E5 push hl 

CBCC 2AADAD Id hl, (ADAD) Zeilenadresse nach Unterbrechung 
CBCF CDCEDD cal DDCE aktuelle Zeilenadresse setzen 
CBD2 CDBIBC cal BCB9 SOUND CONTINUE 

CBD5 E1 pp hl 

CBD6 C374DD ip DD74 zur Interpreterschleife 


LE zz u ZZ ZZ Ze ZZ zZ z 2 2 2 2 zz z z z Z Z z Z Z Z Z Z z Z z Z Z 2 2 Z 2 Z ZZ z Z EZ ZZ zz zz zo 


CBD9 AF xor a 


CBDA 32B1AD Id (ADB1),a Flag für in Fehlerbehandlung löschen 
CBDD 110000 Id de,0000 
CBEO ED53AFAD Id (ADAF),de Adresse der ON-ERROR-Routine 
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CBE4 C9 


ret 
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KK Er ON ERROR 


CBE5 CD3FDD 
CBE8 CD37DD 
CBEB AO 
CBEC CDEICE 
CBEF ES 
CBFO CDYAE7 
CBF3 22AFAD 
CBF6 E1 
CBF7 C9 


call 
call 
db 
call 
push 
call 
Id 
pop 
ret 


DD3F 
DD37 

A0 

CEE1 

hl 

E79A 
(ADAF),hl 
hl 


Blanks überlesen 

Test auf nachfolgendes Zeichen 
'GOTO’ i 
Zeilennummer nach de holen 


BASIC-Zeile de suchen 
Adresse der ON-ERROR-Routine 


KR rear BASIC-Befehl ON ERROR GOTO 0 


CBF8 CDDDCB 
CBFB 3AB1AD 
CBFE B7 
CBFF C8 
CC00 C3A4CA 


call 
Id 
or 
ret 
Ip 


CBDD 
a,(ADB}) 
a 


z 
CAA4 


aktuelle Zeilenadresse auf Null 
in Fehlerbehandlung ? 


nein 


Kr rar BASIC-Befehl RESUME 


CC03 2814 
CC05 FEBO 
CC07 2817 
CC09 CD67E7 
CCOC CD4ADD 
CCOF D5 
CC10 CD2BCC 
CC13 Ei 
CC14 23 
CC15 Fi 
CC16 C393DD 


CC19 CD2BCC 
CCIC Fi 
CC1D C374DD 


CC20 CD3FDD 
CC23 CO 
CC24 CD2BCC 
CC27 23 
CC28 C3EFE8 


CC2B 3AB1AD 
CC2E B7 
CC2F 1E14 
CC31 CA9YACA 


CC34 AF 

CC35 32AAAD 
CC38 32B1AD 
CC3B 2AA6AD 
CC3E CDCEDD 
CC41 2AABAD 
0C44 C9 


jr 
cp 
jr 
call 
call 
push 
call 
pop 
inc 
pop 
IP 
call 
pop 
Ip 
call 
ret 
call 
inc 
IP 


2,0C19 
BO 
2,CC20 
E767 
DD4A 
de 
CC2B 
hl 

hl 

af 
DD93 


CC2B 
af 
DD74 


DD3F 
nz 
CC2B 
hl 
E8EF 


a,(ADB1) 
a 

e,14 
2,CA94 


a 
(ADAA),a 
(ADB1),a 
hI,(ADA6) 
DDCE 
hi,(ADAB) 


'NEXT’ 


Zeilenadresse holen 
Ende des Statements, sonst "Syntax error’ 


ERROR-Flags löschen 


zur Interpreterschleife 
ERROR-Flags löschen 
zur Interpreterschleife 
Blanks überlesen 
ERROR-Flags löschen 
Rest der Zeile überlesen 
in Fehlerbehandlung ? 
'Unexpected RESUME’ 


nein, Fehlermeldung ausgeben 


ERROR-Nummer löschen 

Flag für in Fehlerbehandlung löschen 
Adresse der ERROR-Zeile 

als aktuelle Zeilenadresse. 
Programmzeiger nach ERROR 


370 


BASIC 1.0 


KR EEE re Zeiger auf Fehlermeldung setzen 


CC45 115BCC Id de,CC5B Basisadresse der Fehlermeldungen 
CC48 FEIF cp 1F 31, max. Fehlernummer +1 
CC4A DO ret nc >=, dann 0 "Unknown error’ 
CC4B B7 or a 

CC4C C8 rt zZ 0, dann fertig 

CC4D 47 Id b,a Fehlernummer nach b 

CCAE 1A Id a,(de) 

CCAF 13 inc de Zeichen lesen 

CC50 B7 or a bis 0, Ende einer Meldung 
CC51 20FB jr nz,CC4E 

CC53 05 decc b nächste Meldung 

CC54 20F8 jr nz,CC4E noch nicht richtige Meldung ? 
CC56 1A Id a,(de) 

CC57 B7 or a 

CC58 28EB jr 2,0045 

CC5A C9 ret 


kr Fehlermeldungen 


CC5B 55 6E 6B 6E 6F 77 6E 20 65 


CC64 72 72 6F 72 00 0 Unknown error 
CC69 55 6E 65 78 70 65 63 74 65 

CC72 64 20 4E 45 58 54 00 1. Unexpected NEXT 
CC79 53 79 6E 74 61 78 20 65 72 

CC82 72 6F 72 00° 2 Syntax error 

CC86 55 6E 65 78 70 65 63 74 65 

CC8F 64 20 52 45 54 55 52 4E 00 3  Unexpected RETURN 
CC98 44 41 54 41 20 65 78 68 61 

CCA1 75 73 74 65 64 00 4 DATA exhausted 
CCA7 49 6D 70 72 6F 70 65 72 20 

CCBO 61 72 67 75 6D 65 6E 74 00 5  Improper argument 
CCB9 4F 76 65 72 66 60 6F 77 00 6  Overflow 

CCC2 4D 65 6D 6F 72 79 20 66 75 

CCCB 6C 6C a 7 Memory full 

CCCE 4C 69 6E 65 20 64 6F 65 73 

CCD7 20 6E 6F 74 20 65 78 69 73 

CCEO 74 00 8 Line does not exist 
CCE2 53 75 62 73 63 72 69 70 74 

CCEB 20 6F 75 74 20 6F 66 20 72 

CCF4 61 6E 67 65 00 9  Subscript out ofrange 
CCF9 41 72 72 61 79 20 61 6C 72 

CDo2 65 61 64 79 20 64 69 6D 65 

CDOB 6E 73 69 6F 6E 65 64 00 10 Array already dimensioned 
CD13 44 69 76 69 73 69 6F 6E 20 

CDIC 62 79 20 7A 65 72 6F 00 11. Division by zero 
CD24 49 6E 76 61 60 69 64 20 64 

CD2D 69 72 65 63 74 20 63 6F 6D 

CD35 6D 61 GE 64 00 12 Invalid direct command 


CD3B 54 79 70 65 20 6D 69 73 6D 


CD44 61 74 63 68 00 13 Type mismatch 
CD49 53 74 72 69 6E 67 20 73 70 
CD52 61 63 65 20 66 75 6C 6C 00 14 String space full 
CD5B 53 74 72 69 6E 67 20 74 6F 
CD64 6F 20 6C 6F 6E 67 00 15 String too long 


CD6B 53 74 72 69 6E 67 20 65 78 
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CD74 70 72 65 73 73 69 6F 6E 20 
CD7D 74 6F 6F 20 63 6F 6D 70 6C 


CD86 65 78 00 16 String expression too complex 
CD89 43 61 6E 6E 6F 74 20 43 4F 
CD92 4E 54 69 6E 75 65 00 17 Cannot CONTinue 


CD99 55 6E 6B 6E 6F 77 6E 20 75 
CDA2 73 65 72 20 66 75 6E 63 74 


CDAB 69 6F 6E 00 18 Unknown user function 
CDAF 52 45 53 55 4D 45 20 6D 69 

CDB8 73 73 69 6E 67 00 19 RESUME missing 
CDBE 55 6E 65 78 70 65 63 74 65 

CDC7 64 20 52 45 53 55 4D 45 00 20 Unexpected RESUME 
CDDO 44 69 72 65 63 74 20 63 6F 

CDD9 6D 6D 61 6E 64 20 66 6F 75 

CDE2 6E 64 00 21 Direct command found 
CDE5 4F 70 65 72 61 6E 64 20 6D 

CDEE 69 73 73 69 6E 67 00 22 Operand missing 
CDF5 4C 69 6E 65 20 74 6F 6F 20 

CDFE 6C 6F 6E 67 00 23 Linetoo long 

CEO3 45 4F 46 20 6D 65 74 00 24 EOF met 

CEOB 46 69 60 65 20 74 79 70 65 

CE14 20 65 72 72 6F 72 00 25 Filetype error 

CE1B 4E 45 58 54 20 6D 69 73 73 


CE24 69 6E 67 00 26 NEXT missing 


CE28 46 69 60 65 20 61 6C 72 65 

CE31 61 64 79 20 6F 70 65 6E 00 27 File already open 

CE3A 55 6E 6B 6E 6F 77 6E 20 63 

CE43 6F 6D 6D 61 6E 64 00 28 Unknown command 

CE4A 57 45 4E 44 20 6D 69 73 73 

CES3 69 6E 67 00 29 WEND missing 

CES7 55 6E 65 78 70 65 63 74 65 

CE60 64 20 57 45 4E 44 00 30 Unexpected WEND 
Kar B-Bit-Wert holen 
CE67 CD86CE cal CE86 Integerwert mit Vorzeichen holen 

CE6A F5 push af 

CE6B 1808 jr CE75 
rer B-Bit-Wert ungleich Null holen 
CE6D CD86CE cal CE86 Integerwert mit Vorzeichen holen 

CE7TO F5 push af 

CETI 7A Id a,d 

CE72 B3 or e Null ? 

CE73 2836 jr z,CEAB dann 'Improper argument’ 

CE75 7A Id a,d 

CE76 B7 or a Hi-Byte ungleich Null ? 

CE77 2032 jr nz,CEAB dann 'Improper argument’ 

CE79 Fi pop af 

CE7TA 7B Id a,e 

CE7B C9 ret 
KERKREccKEE RE EEE er 16-Bit-Wert O bis 32767 holen 
CE7C CD86CE cal CE86 Integerwert mit Vorzeichen holen 

CETF F5 push af 

CE8O 7A Id a,d 
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CESI 17 rla Bit 15 gesetzt ? 

CE82 3827 jr c,CEAB dann ’Improper argument’ 

CE84 Fi pop af 

CE8SS C9 ret 

Kr Integerwert mit Vorzeichen holen 
CE86 CDFBCE cal CEFB Ausdruck holen 

CE8I F5 push af 

CE8SA EB ex de,hl 

CE8SB CDSDFE cal FESD CINT 

CE8E EB ex de,hl 

CESF Fi pop af 

CE9O C9 ret 
 16-Bit-Wert holen, Adreßausdruck 
CE91 CDFBCE cal CEFB Ausdruck holen 

CE9Y4 F5 push af 

CEYS 05 push bc 

CEY6 ES push hl 

CE97 CDC2FE cal  FEC2 UNT 

CEYA EB ex de,hl 

CE9B Ei pp hl 

CEIC C1 pop bc 

CEYD Fi pop af 

CEIE C9 ret 

Be Stringausdruck und Parameter holen 
CE9F CDFBCE cal CEFB Ausdruck holen 

CEA2 C3DAFB ip FBDA Stringparameter holen 
re Stringausdruck holen 
CEA5 CDFBCE cal CEFB Ausdruck holen 

CEAB C33CFF ip FF3C Typ 'String’, sonst "Type mismatch’ 

CEAB 1E05 Id 6,05 'Improper argument’ 

CEAD C394CA ip CA94 Fehlermeldung ausgeben 
ka Zeilennummernbereich holen 
CEBO 010100 Id bc,0001 1 

CEB3 11FFFF Id de,FFFF und 65535 als Default 

CEB6 CD55DD cl DD55 auf Komma prüfen 

CEB9 D451DD cal nc,DD51 Ende des Statements ? 

CEBC D8 ret c ja 

CEBD FE23 cp 23 '#' (Kanalnummer) ? 

CEBF C8 ret z 

CECO FEF5 cp F5 ei 

CEC2 280A jr z,CECE 

CEC4 CDEICE cal CEEI Zeilennummer nach de holen 

CEC7 42 Id b,d 

CEC8 4B Id ce nach bc kopieren 

CECI C8 ret z 

CECA CD55DD cl DD55 folgt Komma ? 

CECD D8 ret c ja 

CECE CD37DD cal DD37 Test auf nachfolgendes Zeichen 

CEDI F5 db F5 = 
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CED2 11FFFF 
CED5 C8 
CED6 CD55DD 
CEDI D8 
CEDA CDEICE 
CEDD C455DD 
CEEO C9 


Id 
ret 
call 
ret 
call 
call 
ret 
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de,FFFF 65535 als Default-Endwert 

z 

DD55 auf Komma prüfen 

c 

CEEI Zeilennummer nach de holen 
nz,DD55 auf Komma prüfen 


re Zeilennummmer nach de holen 


CEE1 7E 
CEE2 23 
CEE3 5E 
CEE4 23 
CEES 56 
CEE6 FEIE 
CEE8 280E 
CEEA FEID 
CEEC C27BD0 
CEEF ES 
CEFO EB 
CEFI 23 
CEF2 23 
CEF3 23 
CEF4 SE 
CEFS 23 
CEF6 56 
CEF7 E1 
CEF8 C33FDD 


CEFB C5 
CEFC 2B 
CEFD 0600 
CEFF CDO7CF 
CFO2 C1 
CFO3 2B 
CF04 C33FDD 


CF07 C5 
CFO8 CDCBOF 
CFOB ES 
CFOC E1 
CFOD C1 
CFOE TE 
CFOF FEEE 
CF11 D8 
CF12 FEFE 
CF14 DO 
CF15 FEF4 
CF17 3840 
CF19 CCA5SFF 
CFIC 2012 
CFIE C5 


Id a,(hl) Konstantentyp 

inc hl 

Id e,(hl) 

inc hl Wert nach de 

Id d,(hl) 

cp 1E Zeilennummer ? 

jr 2,CEF8 ja, fertig 

cp 1D Zeilenadresse ? 

jp nz,D07B nein, "Syntax error’ 

push hl 

ex de,hl hi zeigt auf Zeilenbeginn 

inc hl 

inc hl 

inc hl 

Id e,(hl) 

inc hl Zeilennummer nach de 

Id d,{hl) 

pp hl 

ip DD3F Blanks überlesen 
re Ausdruck holen 

push bc 

dee hl 

Id b,00 Hierarchiekode 

cal CFO7 Term holen 

pop bc 

dee hl 

ip DD3F Blanks überlesen 
ee ee ee ee ee Ze ZZ ZZ zZ ZZ ZZ Z zZ Z 2 zZ Z z Z z 2 Z Z ZZ z Z z ZZ zZ 2 Term holen 

push bc 

cal CFCB Term holen 

push hl 

pp hl 

pop bc 

Id a,(hl) 

cp EE >! 

ret c kleiner ? 

cp FE 'NOT' 

ret nc größer gleich ? 

cp F4 +’ 

jr c,CF59 kleiner, dann Vergleichsoperator 

cal z,FF45 '+', dann Test auf String 

jr nz,CF30 kein String 

push bc 

push hl 


CFIF E5 
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CF20 2AC2BO Id hl,(B0C2) Stringdescriptor 

CF23 E3 ex (sp),hl auf Stack 

CF24 CDCBCF cal CFCB n41chsten Term holen 

CF27 CDSCFF cal _FF3C Typ ’String’, sonst "Type mismatch’ 
CF2A E3 ex (sp),hl 

CF2B CD63F8 cal F863 Stringaddition 

CF2E 18DC jr CFOC n4ichsten Term bearbeiten 
ker arithmetische Operatoren 
CF30 7E Id a,(hl) 

CF31 D6F4 sub F4 minus F4 

CF33 87 add aa 

CF34 87 add aa mal 4 

CF35 (0681 add a,81 

CF37 SF Id e,a plus CF81, Tabellenadresse 
CF38 CECF ade aCF 

CF3A 93 sb e 

CF3B 57 Id d,a 

CF3C EB ex de,hl 

CF3D 78 Id a,b 

CF3E BE cp (hl) 

CF3F EB ex de,hl 

CF40 DO ret nc 

CF41 05 push bc 

CF42 CDS3FF cal FFS3 Ergebnis auf BASIC-Stack ablegen 
CF45 D5 push de 

CF46 C5 push bc 

CF47 1A Id a,(de) Hierarchiekode 

CF48 47 Id b,a 

CF49 CDO7CF cal CFO7 Term holen 

CFA4C C1 pop bc 

CF4D E3 ex (sp),hl 

CF4E 23 inc hl 

CF4F EB ex de,hl 

CF50 79 Id a,C 

CF51 CDAOF5 cal FSAO Platz im BASIC-Stack freigeben 
CF54 CDFBFF cal FFFB jp (de), Operation ausführen 
CF57 18B3 jr CFOC n41chsten Term bearbeiten 


RR re + Vergleichsoperatoren 
CF59 78 Id a,b 


CF5A FEOA cp 0A 

CF5C DO ret nc 

CF5D C5 push bc 

CF5E 7E Id a,(hl) Token 

CF5F D6ED sub ED minus Offset 
CF61 47 Id b,a 

CF62 CD45FF cal FF45 Test auf String 
CF65 11A9CF Id de,CFA9 Adresse für arithmetische Vergleiche 
CF68 20D8 jr nz,CF42 kein String 
CF6A E5 push hl 

CF6B 2AC2BO Id hl,(B0C2) Stringdescriptor 
CF6E E3 ex (sp),hl auf Stack 
CF6F C5 push bc 

CF7O 060A Id b,0A Hierarchiekode 
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CF72 CDO7CF cal CFO7 Term holen 

CF75 01 pop be 

CF76 E3 ex (sp),hl 

CF77 C5 push bc 

CF78 CD97F8 cal F897 Stringvergleich 

CF7B C1 pop bc 

CF7C CDAFCF cal _CFAF Ergebnis des Vergleichs holen 
CF7F 188B jr CFOC nächsten Term bearbeiten 
Breker BASIC-Operatoren Hierarchiekodes + Adressen 
CF81 0C db 0C F4,'+' 

CF82 C3CCFC ip FCCC 

CF85 0C db 0C F5,'-’ 

CF86 C3EIFC ip FCE1 

CF89 12 db 12 F6, ’x' 

CFBA CIF5FC ip FCF5 

CF8D 12 db 12 FH 

CF8E C312FD ip FD12 

CF91 16 db 16 FB, 7 

CF92 C3FAD4 ip  D4r4 

CF95 10 db 10 F9, 'Backslash’ 

CF96 C337FD ip FD37 

CF99 06 db 06 FA, 'AND’ 

CFYA C358FD ip FD58 

CF9D OE db  0E FB, 'MOD’ 

CFIE C349FD ip FD49 

CFA1 04 db 04 FC, 'OR’ 

CFA2 C363FD ip FD63 

CFA5S 02 dd 0 FD, ’XOR’ 

CFA6 C36DFD ip FD6D 
Br arithmetischer Vergleich 
CFA9 0A Id a,(bc) 

CFAA C5 _ push bc 

CFAB CDO9FD cal FDO9 arithmetischer Vergleich 
CFAE C1 pop be 

CFAF C601 add 4,01 

CFB1 8F ad aa 

CFB2 AO and b 

CFB3 C6FF add arFF 

CFB5 9F sbc aa 

CFB6 C3O5FF ip FFOS Vorzeichen übernehmen 
te" negatives Vorzeichen 
CFB9 2B decc hl 

CFBA 0614 Id b,14 Hierarchie-Kode 

CFBC CDO7CF cal CFO7 Term holen 

CFBF C389FD ip FD89 Vorzeichen wechseln 


kr BASIC-Operator NOT 


CFC2 2B 
CFC3 0608 
CFC5 CDO7TCF 
CFC8 C377FD 


dec 
Id 
call 
Ip 


hl 

b,08 Hierarchie-Kode 
CFO7 Term holen 
FD77 NOT-Operator 
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RB rer Ausdruck holen 


CFCB CD3FDD cal DD3F Blanks überlesen 
Ber Ausdruck holen 
CFCE 281D jr z,CFED 'Operand missing’ 

CFDO FEOE cp 0E 

CFD2 3839 jr c,DOOD Variable holen 

CFD4 FE2O cp 20 

CFD6 3854 jr c,D02C numerischen Wert holen 
CFD8 FE22 cp 2 2 

CFDA CACBF7 jp z,F7CB zur Stringverarbeitung 

CFDD FEFF cp FF Funktion ? 

CFDF CA80DO ip z,D080 zur Funktionsberechnung 
CFE2 E5 push hl 

CFE3 21F2CF Id hI,CFF2 Basisadresse der Tabelle 
CFE6 CDI3FF cal FF93 Tabelle durchsuchen 

CFE9 E3 ex (sp),hl 

CFEA C33FDD jp DD3F Blanks überlesen 

CFED 1E16 Id e,16 'Operand missing’ 

CFEF 0394CA ip CA94 Fehlermeldung ausgeben 
KEER Sonderfunktionen 
CFF2 08 db 08 Anzahl der Tabelleneintr41ge 
CFF3 78D0 dw D078 nicht gefunden, ’Syntax error’ 
CFF5 F5 db F5 u 

CFF6 BICF dw _CFB9 

CFF8 F4 dw F4 + 

CFF9 CECF dw CFCE 

CFFB 28 db 28 ( 

CFFC 70D0 dw D070 

CFFE FE db FE 'NOT’ 

CFFF C2CF dw CFC2 

DO01 E3 db E3 'ERL’ 

D002 EEDO dw  DOEE 

D004 E4 db E4 'FN’ 

D005 30D1 dw D130 

D007 AC db AC 'MID$’ 

D008 4BF9 dw F94B 

DOOA 40 db 40 '@' 

DOOB FADO dw DOFA 
rer Variable holen 
DOOD CD9Y0D6 cal D690 Variablenadresse holen 
D010 300B jr nc,DO1D noch nicht angelegt ? 

D012 FEO3 pp 08 Variablentyp 

D014 280F jr 2,D025 String ? 

D016 E5 push hl 

D017 EB ex de,hl 

D018 CD4BFF cal FF4B 

DO1B Ei pp hl 

DOIC C9 ret 
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DO1D FEO3 cp 
DO1F C2F3FE ip 
D022 112BDO Id 
D025 EB ex 
D026 22C2B0 Id 
D029 EB ex 
DO2A C9 ret 


EZ z z z zz z z zz z z z z zz 2 
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03 String ? 
nz,FEF3 Variable löschen 
de,D02B Wert auf Null setzen 
de,hl 
(BOC2),hl 
de,hl 


LEEZZZZZZZZZZZZZZZZZZZZZZZZZZZZZEZ ZZ ZZ 


DO2B 00 db 00 Null 
Bee numerischen Wert holen 
D02C D60E sub 0E Offset abziehen 

DO2E FEOA cp 0A kleiner 10? 

D030 381D jr c,DO4F ja, Ziffer holen 

D032 23 inc hl 

D033 FEOB cp 0B Ein-Byte-Wert ? 

D035 2817 jr z,DO4E 

D037 FEOF cp OF Zwei-Byte-Wert (dez, hex, bin) ? 
D039 380E jr c,D049 

DO3B FE11 cp 11 

DOID 381A jr c,D059 Fließkommawert ? 

DO3F 203A jr nz,D07B "Syntax error’ 

D041 3E05 Id a,05 'Real’ 

D043 CD4BFF cal FF4B 

D046 2B dc hl 

D047 1824 jr DO6D Blanks überlesen 
ee ZWei-Byte-Wert holen 
D049 5E Id e,(hi) 

DO4A 23 _ inc hl 

DO4B 56 Id d,(hi) 

DO4C 1804 jr D052 Integerzahl in de übernehmen 
Kr Ein-Byte-Wert holen 
DO4E 7E Id a,(hl) 

DO4F 5F Id e,a 

D050 1600 Id d,00 Hi-Byte auf Null setzen 

D052 EB ex de,hl 

D053 CDODFF cal FFOD Intgerzahl in hi übernehmen 
D056 EB ex de,hl 

D057 1814 jr DO6D Blanks überlesen 
BR Fließkommawert holen 
D059 SE Id e,(hl) 

DOSA 23 inc hl 

DO5SB 56 Id d,(hl) 

DO5C E5 push hl 

DO5D FEOF cp OF 

DOSF 2007 jr nz,D068 

D061 13 inc de 

D062 EB ex de,hl 

D063 23 inc hl 

DO64 23 inc hl 

D065 5E Id e,(hl) 
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DO66 23 inc hl 

D067 56 Id d,(h) 

D068 EB ex de,hl 

D069 CDE6OFE cal FE6O Variablentyp auf ’Real’ 

DO6C Ei pp hl 

DO6D C33FDD ip DD3F Blanks überlesen 
KK kr ee || Termin Klammern holen 
D070 CDFBCE cal CEFB Ausdruck holen 

D073 CD37DD cal DD37 Test auf nachfolgendes Zeichen 
D076 29 db 29 ) 

0077 C9 ret 
KETTE a 
D078 CDODAC cal ACOD ret 

D07B 1E02 Id e,02 "Syntax error’ 

D07D C394CA jp CA94 Fehlermeldung ausgeben 
ter Funktionsberechnung 
D080 23 inc hl Programmzeiger erhöhen 

D081 4E Id c,(hl) Token holen 

D082 CD3FDD cal DD3F Blanks überlesen 

D085 79 Id a,C Token testen 

D086 FE40 cp 40 

D088 3805 jr c,DO8F 40 - 48, reservierte Variable 
DO8A FE49 cp 49 

D08C DABBDO ip c,DOBB 

DO8F CD37DD cal DD37 Test auf nachfolgendes Zeichen 
D092 28 db 28 ( 

D093 79 Id ac 

D094 87 add aa 

D095 C61E add a,jE 

D097 4F Id c,a 

D098 FES9 cp 59 

DO9A 300D jr nc,DOA9 "Syntax error’ 

D09C FEID cp 1D 

DOYE 380E jr c,DOAE Funktion berechnen 

DOAO CD70DO cal D070 Funktionsargument in Klammern holen 
DOA3 E5 push hl 

DOA4 CDAEDO cal DOAE Funktion berechnen 

D0A7 Ei pop hl 

DOA8 C9 ret 

DOA9 CDOAAC cal ACOA ret 

DOAC 18CD jr D07B "Syntax error’ 

DOAE E5 push hl 

DOAF 0600 Id b,00 

DOB1 2190D1 Id h1,D190 Adressen der Funktionen 

DOB4 09 add hl,bc 

DOB5 7E Id a,(hl) 

DOB6 23 inc hl 

DOB7 66 Id h,(hl) 

DOB8 6F Id l,a 

DOB9 E3 ex (sp),hl 
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DOBA C9 ret 

DOBB E5 push hl 

DOBC 4F Id c,a 

DOBD 0600 Id b,00 

DOBF 214ADO Id h1,DO4A 

DOC2 09 add hl,bc 

D0C3 09 add hl,bc 

DOC4 7E Id a,(hl) 

DOC5 23 inc hl 

DOC6 66 Id h,(hl) 

DOC7 6F Id l,a 

DOC8 EI ex (sp),hl 

DOC9 C9 ret 

Kr e Adressen der reservierten Variablen 
DOCA 17C4 dw C417 40, EOF 

DOCC DCDO dw DODC 41,ERR 

DOCE F4D0 dw DOF4 42, HIMEM 

DODO 24FA dw FA24 43, INKEY$ 

DOD2 DBD4 dw D4DB 44, Pl 

DOD4 84D5 dw D584 45, RND 

DOD6 ESDO dw DOES 46, TIME 

DOD8 07D1 dw D107 47,XPOS 

DODA 0ED1 dw DI0E 48, YPOS 
tt ERR 
DODC E5 push hl 

DODD 3AAAAD Id a,(ADAA) ERROR-Nummer 

DOEO CDOAFF cal FFOA Akkuinhalt als Integerzahl übernehmen 

DOE3 E1 pp hl 

DOE4 C9 ret 
Kr TIME 
DOES E5 push hl 

DOE6 CDODBD cal BDOD KLTIME PLEASE 

DOE9 CD7CFE cal FE7C 4-Byte-Wert nach Fließkomma wandeln 

DOEC E1 pp hl 

DOED C9 ret 
Kr ERL 
DOEE E5 push hl 

DOEF CDDFCA cal CADF ERROR-Zeilennummer holen 

DOF2 180E jr D102 
KR rer HIMEM 
DOF4 E5 push hl 

DOF5 2A7BAE Id hl, (AE7B) HIMEM 

DOF8 1808 jr D102 
Krk 0’, Variablenpointer 
DOFA CD9OD6 cal D690 Variablenadresse holen 

DOFD D2ABCE ip nc,CEAB nicht vorhanden, "Improper argument’ 

D100 E5 push hl 

D101 EB ex de,hl 
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D102 CD6OFE cal FE60 Wert übernehmen 

D105 Ei pp hl 

D106 C9 ret 

KETTE Ta € XPOS 
D107 E5 push hl 

D108 CDC6BB cal BBC6 GRA ASK CURSOR 

D10OB EB ex de,hl 

D10C 1804 - jr D112 

KETTE FE FF FF a a + YPOS 
DI0OE E5 push hl 

DIOF CDC6BB cal BBC6 GRA ASK CURSOR 

D112 CDODFF cal FFOD Integerzahl in hi übernehmen 

D115 Ei pp hl 

D116 C9 ret 
Be BASIC-Befehl DEF 
D117 CD37DD cal DD37 Test auf nachfolgendes Zeichen 

D11A E4 db E4 'FN’ 

D11B EB ex de,hl 

D11C CDD6DD cl DDD6 Zeilennummer nach hi holen 

DIIF EB ex de,hl 

D120 1E0C Id ,0C "Invalid direct command’ 

D122 D294CA ip nc,CA94 Direktmodus, Fehlermeldung ausgeben 
D125 CDA2D6 cal D6A2 Funktion suchen 

D128 EB ex de,hl 

D129 73 Id (hi),e 

D12A 23 inc hl 

D12B 72 Id (hi),d 

D12C EB ex de,hl 

D12D C3EFE8 ip ESEF Rest des Statements überlesen 
rer BASIC-Funktion FN 
D130 CDA2D6 cal D6A2 Funktion suchen 

D133 C5 push bc 

D134 E5 push hl 

D135 EB ex de,hl 

D136 5E Id e,(hl) 

D137 23 inc hl 

D138 56 Id d,(hl) 

D139 EB ex de,hl 

D13A 7C Id a,h 

D13B B5 or | 

D13C 1E12 Id e,12 "Unknown user function’ 

DI3E CA9Y4CA jp 2,CA94 Fehlermeldung ausgeben 

D141 CD07DA cl DA07 

D144 7E Id a,(hl) 

D145 FE28 cp 28 ( 

D147 202C jr nz,D175 

D149 CD3FDD cal DD3F Blanks überlesen 

D14C E3 ex (sp), hl 

D14D CD37DD cal DD37 Test auf nachfolgendes Zeichen 
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D150 28 db 28 ab 

D151 E3 ex (sp),hl 

D152 CD4BDA cal DA4B 

D155 E3 ex (sp),hl 

D156 D5 push de 

D157 CDFBCE cal CEFB Ausdruck holen 

D15A E3 ex (sp),hl 

D15B 78 Id a,b 

D15C CD66D6 cal D666 

DI5F Ei pop hl 

D160 CD55DD cl DD55 folgt Komma ? 

D163 3007 jr nc,D16C nein 

D165 E3 ex (sp),hl 

D166 CD37DD cl DD37 Test auf nachfolgendes Zeichen 
D169 2C db 2C 5 

D16A 18E6 ir D152 

Di6C CD37DD cal DD37 Test auf nachfolgendes Zeichen 
DI6F 29 db 29 ) 

D170 E3 ex (sp),hl 

D171 CD37DD cl DD37 Test auf nachfolgendes Zeichen 
D174 29 db 29 ) 

D175 CD27DA cal DA27 

D178 CD37DD cl DD37 Test auf nachfolgendes Zeichen 
D17B EF db EF '=' 

D17C CDFBCE cal CEFB Ausdruck holen 

DI7F C27BDO ip nz,D07B "Syntax error’ 

D182 CD30DA cal DA30 

D185 CD45FF cal _FF45 Test auf String 

D188 CCA49FB cal z,FB49 ja 

DI8B Ei pop hl 

Di8C Fi pop af 

D18D C3D7FE jp FED7 
re BASIC-Funktionen mit mehreren Argumenten 
D190 BAF8 dw _F8BA 71, BIN$ 

D192 EAF8 dw F8EA 72, DEC$ 

D194 CA4F8 dw  F8C4 73, HEX$ 

D196 A1FA dw  FAAI 74, INSTR 

D198 3CF9 dw F93C 75, LEFT$ 

D19A EEDI dw DIEE 76, MAX 

D19C EADI dw DIEA 77,MIN 

DI9E 76C2 dw 0276 78, POS 

DIAO 43F9 dw F943 79, RIGHT$ 

DI1A2 19D2 dw D219 7A, ROUND 

DIA4 36FA dw FA36 7B, STRING$ 

D1A6 E9C4 dw C4E9 7C, TEST 

D1A8 EEC4 dw C4EE 7D, TESTR 

D1AA ABCE dw _CEAB TE, 'Improper argument’ 

DIAC 62C2 dw 0262 7F,VPOS 
er rar a Adressen der BASIC-Funktionen 
DIAE 85FD dw FD85 00, ABS 

D1BO 10FA dw FA10 01, ASC 

D1B2 3ED5 dw DS3E 02, ATN 
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D1B4 16FA dw FAI6 03, CHR$ 

D1B6 8DFE dw FE8D 04, CINT 

D1B8 34D5 dw D534 05, C0S 

D1BA ECFE dw FEEC 06, CREAL 

D1BC 20D5 dw D520 07, EXP 

DIBE ESFD dw FDE8 08, FIX 

DiCO 2DFC dw FC2D 09, FRE 

DIC2 09D4 dw D409 0A, INKEY 

D1C4 6DF1 dw  F16D 0B, INP 

DIC6 EDFD dw FDED 0C, INT 

DIC8 23D4 dw D423 0D, JOY 

DICA 0AFA dw FAOA 0E,LEN 

DICC 2AD5 dw D52A OF, LOG 

DICE 25D5 dw D525 10, L0G10 

D1DO 34F8 dw  F834 11, LOWER$ 

D1D2 58F1 dw F158 12, PEEK 

D1D4 9FC9 dw C99F 13, REMAIN 

D1D6 O2FF dw  FFO2 14, SGN 

D1D8 2FD5 dw D52F 15, SIN 

DIDA 57FA dw FA57 16, SPACE$ 

D1DC 29D3 dw D329 17,5Q 

DIDE EFD4 dw DA4EF 18, SOR 

DIEO 1EF9 dw F9YIE 19, STR$ 

DIE2 39D5 dw D539 1A, TAN 

DIE4 C2FE dw FEC2 1B, UNT 

DIE6 42F8 dw F842 1C, UPPER$ 

DIES 77FA dw FA77 1D, VAL 
er BASIC-Funktion MIN 
DIEA O6FF Id b,FF Flag für MIN 

DIEC 1802 jr DIFO 
nn BASIC-Funktion MAX 
DIEE 0601 Id b,01 Flag für MAX 

DIFO CDFBCE cal CEFB Ausdruck holen 

DIF3 CD55DD cal DD55 folgt Komma ? 

DIF6 301C jr nc,D214 nein, fertig 

DIF8 CDS3FF cal FFS3 Variable auf BASIC-Stack ablegen 
DiFB CDFBCE cal CEFB Ausdruck holen 

DIFE E5 push hl 

DIFF 79 Id a,C 

D200 CDAOF5 cal F5AO Platz im BASIC-Stack freigeben 
D203 C5 push bc 

D204 E5 push hl 

D205 CDO9FD cal FDOY arithmetischer Vergleich 
D208 Ei pp hl 

D209 C1 pop bc 

D20A B7 or a 

D20B 2804 jr z,D211 

D20D B8 cp b 

D20E CA4EFF cal nz,FF4E Ergebnis des Vergleichs holen 
D211 Ei pop hl i 

D212 18DF jr DIF3 nächstes Argument 
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D214 CD37DD cl DD37 Test auf nachfolgendes Zeichen 
D217 29 db 29 y 

D218 C9 ret 
Kerr BASIC-Funktion ROUND 
D219 CDFBCE cal CEFB Ausdruck holen 

D21C CD53FF cal FFS53 und auf BASIC-Stack ablegen 
D21F CD55DD cal DD55 folgt Komma ? 

D222 110000 Id de,0000 Defaultwert 0 

D225 DC86CE cal c,CE86 ja, Integerwert mit Vorzeichen holen 
D228 CD37DD cal DD37 Test auf nachfolgendes Zeichen 
D22B 29 db 29 Y 

D22C E5 push hl 

D22D D5 push de 

D22E 212700 Id hl,0027 39 

D231 19 add hl,de addieren 

D232 114F00 Id de,004F 79 

D235 CDBäFF cal _FFB8 Vergleich hi <> de 

D238 D2ABCE ip nc,CEAB größer, 'Improper argument’ 
D23B DI pop de 

D23C 79 ’ Id a,C 

D23D CDAOF5 cal F5A0 Platz im BASIC-Stack freigeben 
D240 43 Id b,e Rundungstelllenzahl nach b 
D241 CDAFFD cal _FDAF Zahl runden 

D244 E1 pop hl 

D245 C9 ret 


rt BASIC-Befehl CAT 


D246 CO ret nz 


D247 E5 push hl 

D248 CDADD2 cal D2AD Kassetten-l/O abbrechen 

D24B CD37F6 cal F637 Ausgabepuffer anlegen 

D24E CDYBBC cal BC9B CAS CATALOG 

D251 CD71F6 cal  F671 Ausgabepuffer freigeben 

D254 Ei pp hl 

D255 C9 ret 
KR BASIC-Befehl OPENOUT 
D256 CD73D2 cal D273 Filename holen 

D259 CD37F6 cal F637 Ausgabepuffer anlegen 

D25C C38CBC ip BC8C CASOUTOPEN 
Kerr BASIO-Befehl OPENIN 
D25F CD6AD2 cal D26A Namen holen, File öffnen 

D262 FEI6 cp 16 ASCII-File ? 

D264 C8 ret z 

D265 1E19 Id e,19 "File type error’ 

D267 C394CA ip CA94 Fehlermeldung ausgeben 
KRREKKERKEEE  rrrrrre& Namenholen, Eingabefile öffnen 
D26A CD73D2 cal D273 Filename holen 

D26D CD32F6 cal F632 Eingabepuffer anlegen 

D270 C377BC ip BC77 CAS IN OPEN 
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LEIZZZZZZZZZZZEZZZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZ ZZ ZZ ZZ a zo 


CE9F Stringausdruck und -Parameter holen 
(sp),hl 

de,hl 

D285 Test auf Systemmeldungen 

z,CB6B Abbruch durch ’ESC’ 

hl 

c 

e,1B File already open’ 

CA94 Fehlermeldung ausgeben 


LEZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZ ZZ u zo 


de 


c,00 Flag für Meldungen ausgeben 
a,b Länge des Filenamens 

a 

2,D294 kein Filename ? 

a,(hl) erstes Zeichen 

21 u 

nz,D294 nein 

hl Zeiger auf zweites Zeichen setzen 
b Länge erniedrigen 

c Flag für Meldungen unterdrücken 
a,C 

BC6B CAS NOISY 


re BASIC-Befehl CLOSEIN 
hl 


BC7A CAS IN CLOSE 
F66D Eingabepuffer freigeben 
hl 


Ber & BASIC-Befehl CLOSEOUT 
hl 


BCB8F CAS OUT CLOSE 
z,CB6B "Break in Zeilennummer’ 
F671 Ausgabepuffer freigeben 
hl 


Br Kassetten-l/O abbrechen 


D273 CDIFCE call 
D276 EI ex 
D277 EB ex 
D278 CD85D2 call 
D27B CA6BCB ip 
D27E Ei pop 
D27’F D8 ret 
D280 1E1B Id 
D282 C394CA ip 
Luz z 2 z zz z z z Z zZ zZ ZZ 2 
D285 D5 push 
D286 O0EO00 Id 
D288 78 Id 
D289 B7 or 
D28A 2808 jr 
D28C 7E Id 
D28D FE21 cp 
D28F 2003 ir 
D291 23 inc 
D292 05 dec 
D293 0D dec 
D294 79 Id 
D295 C36BBC ip 
ZZ zz z zZ z z z z z z zZ ZZ: 
D298 E5 push 
D299 CD7ABC call 
D29C CD6DF6 call 
D29F E1 pop 
D2AO C9 ret 
EZ zz z z z z z z zZ z z z Z zz 2 
D2A1 E5 push 
D2A2 CD8FBC call 
D2A5 CA6BCB ip 
D2A8 CD7IF6 call 
D2AB Ei pop 
D2AC C9 ret 
D2AD C5 push 
D2AE D5 push 
D2AF E5 push 
D2B0 CD7DBC call 
D2B3 CD6EDF6 call 
D2B6 CD92BC call 
D2B9 CD7IF6 call 
D2BC Ei pop 
D2BD DI pop 
D2BE C1 pop 
D2BF C9 ret 


bc 

de 

hl 

BC7D CAS IN ABANDON 
F66D Eingabepuffer freigeben 
BC92 CAS OUT ABANDON 
F671 Ausgabepuffer freigeben 
hl 

de 

bc 
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tree BASIC-Befehl SOUND 


D2C0O CD67CE cal CE67 8-Bit-Wert holen 

D2C3 32B2AD Id (ADB2),a Kanal-Status 

D2C6 CD37DD cal DD37 Test auf nachfolgendes Zeichen 
D2C9 2C db 2C ei 

D2CA CDFFD3 cal D3FF Argument 0 bis 4095 holen 

D2CD ED53B5AD Id (ADB5),de Ton-Periode 

D2D1 CD55DD cl DD55 folgt Komma ? 

D2D4 111400 Id de,0014 Default-Wert 20 

D2D7 DC86CE cal c,CE86 ja, Integerwert mit Vorzeichen holen 
D2DA ED53BYAD Id (ADB9),de Dauer 

D2DE 010C10 Id bc,100C max. 15, Default 12 

D2E1 CDODD3 cal D3OD falls vorhanden Argument holen 
D2E4 32B8AD Id (ADBB),a Lautstärke 

D2E7 0E00 Id c,00 max. 15, Default 0 

D2E9 CDODD3 cal D30D falls vorhanden Argument holen 
D2EC 32B3AD Id (ADB3),a Lautstärken-Hüllkurve 

D2EF CDODD3 cal D30D falls vorhanden Argument holen 
D2F2 32B4AD Id (ADB4),a Ton-Hüllkurve 

D2F5 0620 Id b,20 max. 31, Default 0 

D2F7 CDODD3 cal D3O0D falls vorhanden Argument holen 
D2FA 32B7AD Id (ADB7),a Geräusch-Periode 

D2FD CD4ADD cal DD4A Ende des Statements, sonst "Syntax error’ 
D300 E5 push hl 

D301 21B2AD Id hl,ADB2 Adresse des Sound-Parameterblocks 
D304 CDAABC cal BCA SOUND QUEUE 

D307 Ei pp hl 

D308 D8 ret c 

D309 Fi pop af 

D30A C371DD ip DD71 zur Interpreterschleife 
rear falls vorhanden 8-Bit-Wert holen 
D30D CD55DD cal DD55 folgt Komma ? 

D310 79 Id a,C Default-Wert laden 

D311 DO ret nc kein Komma, fertig 

D312 7E Id a,(hi) 

D313 FE2C cp 2C Sr 

D315 79 Id a,C 

D316 C8 ret z 

D317 CD67CE cal CE67 8-Bit-Wert holen 

D31A B8 cp b größer gleich b ? 

D31B D8 ret c nein 

D31C 182B jr D349 'Improper argument’ 
ne BASIC-Befehl RELEASE 
D31E 0608 Id b,08 8 

D320 CD17D3 cal D317 8-Bit-Wert < 8 holen 

D323 E5 push hl 

D324 CDB3BC cal BCB3 SOUND RELEASE 

D327 Ei pp hl 

D328 C9 ret 
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KR er BASIC-Funktion SQ 


D329 
D32C 
D32D 
D32E 
D32F 
D331 
0332 
D334 
D335 
D337 
D338 
D33A 
D33B 
D33E 


DEZ zz z z 2 z z z z z z z z zz 2 


D341 
D344 
D345 
D346 
D347 
D348 
D349 
D34B 


LE ZZ 2 z z z z z z z z zz z zz 2 


D34E 
D351 
D353 
D355 
D356 
D359 
D35C 
D35D 
D35E 
D361 
D362 
D365 
D366 


D367 
D368 
D36A 
D36C 
D36F 
D371 
D374 
D376 
0377 
D37A 
D37B 


CD8DFE 
7D 

B7 

IF 

3806 

IF 

3803 

IF 

3012 

B4 

200F 

7D 
CDADBC 
C30AFF 


CD86CE 
7B 

87 

9F 

BA 

08 

1E05 
C394CA 


CD6DCE 
FE1O 
30F4 

F5 
1167D3 
CDD8D3 
Fi 

E5 
21BBAD 
71 
CDBCBC 
Ei 

cg 


TE 

FEEF 
2012 
CD3FDD 
0610 
CD17D3 
F680 

4F 
CD37DD 
2C 
C391CE 


call 
Id 
or 
rra 
jr 
ra 


call 
Id 
add 
sbc 
cp 
ret 
Id 
Ip 


call 
cp 


FE8D CINT 

a,l 

a 

c,D337 

c,D337 

nc,D349 'Improper argument’ 

h 

nz,D349 'Improper argument’ 

a,l 

BCAD SOUND CHECK 

FFOA Akkuinhalt als Integerzahl übernehmen 
Werke Argument -128 bis +127 holen 
CE86 Integerwert mit Vorzeichen holen 
a,e 

a,a 

a,a 

d 

z 

e,05 'Improper argument’ 

CA94 Fehlermeldung ausgeben 
Kerr BASIC-Befehl ENV 
CE6D 8-Bit-Wert ungleich Null holen 
10 größer gleich 16 ? 

nc,D349 'Improper argument’ 

af 

de,D367 

D3D8 

af 

hl 

hl,ADBB 

(h),c 

BCBC SOUND AMPL ENVELOPE 

hl 

a,(hl) 

EF =’ 

nz,D37E 

DD3F Blanks überlesen 

b,10 16 

D317 8-Bit-Wert < 16 holen 

80 Bit 7 setzen 

ca 

DD37 Test auf nachfolgendes Zeichen 
2C vr 

CE91 16-Bit-Wert holen 
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D37E 0680 Id b,80 128 

D380 CD17D3 cal D317 8-Bit-Wert < 128 holen 

D383 1840 jr D3C5 
Bere BASIC-Befehl ENT 
D385 CD41D3 cal D341 Argument -128 bis +127 holen 
D388 7A Id a,d 

D389 B7 or a 

D38A 7B Id a,e 

D38B 2802 jr 2,D38F Null ? 

D38D 2F pl a 

D38E 3C inc a 

D38F 5F Id e,a 

D390 B7 or a Null ? 

D391 28B6 jr 2,D349 'Improper argument’ 

D393 FE1O cp 10 größer gleich 16 ? 

D395 30B2 jr nc,D349 'Improper argument’ 

D397 D5 push de 

D398 11AED3 Id de,D3AE 

D39B CDD8D3 cal D3D8 

D39E DI pop de 

D39F E5 push hl 

D3A0O 21BBAD Id hl,ADBB 

D3A3 7A Id a,d 

D3A4 E680 and 80 

D3A6 Bi or c 

D3A7 77 Id (h)),a 

D3AB 7B Id a,e 

D3A9 CDBFBC cal BCBF SOUND TONE ENVELOPE 
D3AC Ei pp hl 

D3AD C9 ret 

Dee ee Ze ZZ ZZ zz zz ZZ u ZZ Ze 2 zZ ZZ 2 ZZ 2 zz Z z ZZ 2 2 z Z Z Z zZ ZZ ZZ z ZZ ZZ zz 2 
D3AE 7E Id a,(hl) 

D3AF FEEF cp EF '=' 

D3B1 200D jr nz,D3C0 

D3B3 CDIFDD cal DD3F Blanks überlesen 

D3B6 CDFFD3I cal D3FF Wert von 0 bis 4095 holen 
D3B9 7A Id a,d 

D3BA C6FO add a,F0 

D3BC 4AF Id ca 

D3BD 43 Id b,e 

D3BE 180E ir D3CE 

D3CO O06FO Id b,FO 240 

D3C2 CD17D3 cal D317 8-Bit-Wert < 240 holen 

D3C5 4F Id c,a 

D3C6 CD37DD cal DD37 Test auf nachfolgendes Zeichen 
D3C9 2C db 2C " 

D3CA CD41D3 cal - D341 Argument -128 bis +127 holen 
D3CD 43 Id b,e 

D3CE CD37DD cal DD37 Test auf nachfolgendes Zeichen 
D3D1 2C db 2C a 

D3D2 CD67CE cal CE67 8-Bit-Wert holen 

D3D5 57 Id d,a 
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D3D6 58 Id e,b 

D3D7 C9 ret 

D3D8 010005 Id bc,0500 

D3DB CD55DD cl DD55 auf Komma prüfen 

D3DE 301C jr nc,D3FC 

D3EO D5 push de 

D3EI C5 push bc 

D3E2 CDFBFF cal _FFFB jp (de) 

D3E5 79 Id a,C 

D3E6 C1 pop be 

D3E7 C5 push bc 

D3E8 E5 push hl 

D3E9 21BCAD Id hl,ADBC 

D3EC 0600 Id b,00 

D3EE 09 add hl,bc 

D3EF 09 add hl,bc 

D3FO 09 add hl,bc 

D3F1 77 Id (h)),a 

D3F2 23 inc hl 

D3F3 73 Id (hl),e 

D3F4 23 inc hl 

D3F5 72 Id (hl),d 

D3F6 Ei pop hl 

D3F7 C1 pop bc 

D3F8 0C inc € 

D3F9 DI pop de 

D3FA 10DF dinz D3DB 

D3FC C34ADD ip DD4A Ende des Statements, sonst "Syntax error’ 
rer Argument 0 bis 4095 holen 
D3FF CD86CE cal CE86 Integerwert mit Vorzeichen holen 
D402 7A Id a,d Hi-Byte 

D403 E6FO and FO Bit 12-15 gesetzt ? 

D405 C249D3 ip nz,D349 ja, 'Improper argument’ 
D408 C9 ret 
Br BASIC-Funktion INKEY 
D409 CD8DFE cal FE8D CINT 

D40C 115000 Id de,0050 80 

D40F CDBBFF cal FFB8 Vergleich hl <> de 

D412 3022 jr nc,D436 'Improper argument’ 

D414 7D Id a,l 

D415 CDIEBB cal BBIE KM TEST KEY 

D418 21FFFF Id hI,FFFF -1, wenn nicht gedrückt 
D41B 2803 jr 2,D420 

D41D 69 Id Ic 

D41E 2600 Id h,00 

D420 C30DFF ip FFOD Integerzahl in hi übernehmen 
Kerr BASIC-Funktion JOY 
D423 CD24BB cal BB24 KM GET JOYSTICK 

D426 EB ex de,hl 

D427 CD8DFE cal FE8D CINT 

D42A 7C Id a,h 
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D42B B5 or | 

D42C 2802 jr 2,D430 

D42E 53 Id d,e 

D42F 2B dc hl 

D430 7C Id a,h 

D431 B5 or | 

D432 7A Id a,d 

D433 CAOAFF ip z,FFOA Akkuinhalt als Integerzahl übernehmen 
D436 C349D3 ip D349 'Improper argument’ 
Krk BASIC-Befehl KEY 
D439 FE8D cp 8D 'DEF’ 

D43B 2819 jr 2,D456 

D43D 3E20 Id a,20 

D43F CD17D3 cal D317 Argument holen, 8-Bit-Wert 

D442 F5 push af Tastennummer merken 

D443 CD37DD cal DD37 Test auf nachfolgendes Zeichen 
D446 2C db 2C ” 

D447 CDIFCE cal CE9F Stringausdruck und -Parameter holen 
D44A 48 Id c,b Stringlänge nach c 

D44B Fi pop af 

D44C 47 Id b,a Tastennummer nach b 

D44D E5 push hl 

D44E EB ex de,hl Stringadresse nach hl 

D44F CDOFBB cal BBOF KM SET EXPAND 

D452 E1 pp hl 

D453 30E1 jr nc,D436 'Improper argument’ 

D455 C9 ret 
RR ke KEY DEF 
D456 CD3FDD cal DD3F Banks überlesen 

D459 CD67CE cal CE67 8-Bit-Wert holen, Tastennnummer 
D45C 4F Id c,a 

D45D FESO cp 50 80 

D45F 30D5 jr nc,D436 größer gleich, 'Improper argument’ 
D461 CD37DD cal DD37 Test auf nachfolgendes Zeichen 
D464 2C db 2C “ 

D465 0602 Id b,02 2 

D467 CD17D3 cal D317 Argument < 2 holen 

D46A IF rra 

D46B 9F sbce aa 

D46C 47 Id b,a 

D46D C5 push bc 

D46E E5 push hl 

D46F 79 Id a,C 

D470 CD39BB cal BB39 KM SET REPEAT 

D473 E1 pp hl 

D474 C1 pop be 

D475 1127BB Id de,BB27 KM SET TRANSLATE 

.D478 CD84D4 cal D484 auf weiteres Argument testen 
D47B 112DBB Id de,BB2D KM SET SHIFT 

D47E CD84D4 cal D484 auf weiteres Argument testen 
D481 1133BB Id de,BB33 KM SET CONTROL 

D484 CD55DD cal DD55 folgt Komma ? 

D487 DO ret nc nein, fertig 


390 


D488 D5 
D489 CD67CE 
D480 47 
D48D E3 
D48E 79 
D48F CDFEFF 
D492 Ei 
D493 C9 


push 
call 
Id 
ex 
Id 
call 
pop 
ret 


BASIC 1.0 


de 

CE67 8-Bit-Wert holen 
b,a 

(sp),hl 

a,C 

FFF8 ip (h) 

hl 


Kerr BASIC-Befehl SPEED 


D494 FEA4 
D496 013FBB 
D499 2810 
D49B FEA2 
D49D 013EBC 
D4A0O 2809 
D4A2 FEDI 
D4A4 281D 
D4A6 1E02 
D4AB C394CA 


D4AB C5 
D4AC CD3FDD 
D4AF CD6DCE 
D4B2 4F 
D4B3 CD37DD 
D4B6 2C 
D4B7 CD6DCE 
DA4BA 5F 
D4BB 51 
D4BC C1 
D4BD EB 
DA4BE CDFIFF 


cp A4 'KEY’ 

Id bc,BB3F KMSET DELAY 

jr 2,D4AB 

cp A2 INK’ 

Id bc,BC3E SCR SET FLASHING 

jr z,D4AB 

cp D9 'WRITE’ 

jr 2,D4C3 

Id e,02 "Syntax error’ 

jp CA94 Fehlermeldung ausgeben 
tt SPEED KEY A INK 

push bc 

cal DD3F Blanks überlesen 

cal CES6D 8-Bit-Wert ungleich Null holen 

Id c,a 

cal DD37 Test auf nachfolgendes Zeichen 

db 2C ” 

cal CE6D 8-Bit-Wert ungleich Null holen 

Id e,a 

Id d,c 

pop be 

ex de,hl 

cal _FFF9 jp (be) 

ex de,hl 


D4C1 EB 
D4C2 C9 


ret 


Kerr SPEED WRITE 


D4C3 CD3FDD 
D4C6 0602 
D4C8 CD17D3 
D4CB E5 
D4CC 21A700 
DACF 3D 
D4D0 3E32 
D4D2 2802 
D4D4 29 
D4D5 OF 
D4D6 CD68BC 
D4D9 Ei 
D4DA C9 


call 
Id 
call 
push 
Id 
dec 
Id 
jr 
add 
rca 
call 


pop 
ret 


DD3F Blanks überlesen 
b,02 

D317 Argument < 2 holen 
hl 

hl,00A7 167 

a 

a,92 

2,D4D6 Null ? 

hl,hl nein, Zeitkonstante verdoppeln 
BC68 CAS SET SPEED 

hl 
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tn Pl 


D4DB E5 push hl 

D4DC CDIYFF cal FF19 Typ auf 'Real’ setzen 

D4DF CDIDFF cal FFID Variablentyp nach c, hi auf Variable 

D4E2 CD76BD cl BD76 holen 

D4E5 E1 pp hl 

D4E6 C9 ret 
nn BASIC-Befehl DEG 
D4E7 3EFF Id a,FF FF=DEG 

D4E9 1801 jr D4EC 
nr BASIC-Befehl RAD 
D4EB AF xor a 0=RAD 

D4EC C373BD ip BD73 DEG/RAD-Modus setzen 
nn BASIC-Funktion SOR 
D4EF 0179BD Id bc,BD79 SQR-Funktion 

D4F2 1816 jr D50A 
ne BASIC-Operator T' 
D4F4 E5 push hl 

D4F5 05 push bc 

D4F6 CDECFE cal _FEEC CREAL 

D4F9 EB ex de,hl 

D4FA 21CBAD Id hl,‚ADCB Zwischenspeicher für Fließkommazahl 

D4FD CD3DBD cal BD3D Variable von (de) nach (hi) kopieren 

D500 C1 pop bc 

D501 E3 ex (sp),hl 

D502 79 Id a,C 

D503 CD4BFF cal FF4B 

D506 D1 pop de 

D507 017CBD Id bc,BD7C Potenzierung 

D50A CD19D5 cal D519 Funktion ausführen 

D50D D8 ret c fehlerfrei ? 

D50E CAEACA ip z,CAEA "Division by zero’ 

D511 FAF3CA ip m,CAF3 'Overflow' 

D514 1E05 Id ,05 'Improper argument’ 

D516 C394CA ip CA94 Fehlermeldung ausgeben 

PEST ELLE EEE EU nee nen nen 
D519 05 push bc 

D51A D5 push de 

D51B CDECFE cal FEEC CREAL 

D5IE DI pop de 

D5IF C9 ret Funktion ausführen 
re BASIC-Funktion EXP 
D520 0185BD Id bc,BD85 EXP-Funktion 

D523 18E5 jr D50A 
Bere BASIC-Funktion LOG10 
D525 0182BD Id bc,BD82 LOG10-Funktion 

D528 18E0 jr D50A 
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BR rer er eree BASIC-Funktion LOG 


D52A 017FBD Id bc,BD7F LOG-Funktion 

D52D 18DB jr D50A 
rer BASIC-Funktion SIN 
D52F 0188BD Id bc,BD88 SIN-Funktion 

D532 18D6 jr D50A 
rer BASIC-Funktion COS 
D534 018BBD Id bc,BD8B COS-Funktion 

D537 18D1 jr D50A 
Bere BASIC-Funktion TAN 
D539 018EBD Id bc,BD8E TAN-Funktion 

D53C 18CC jr D50A 
Ber BASIC-Funktion ATN 
D53E 0191BD Id bc,BD91 ATN-Funktion 

D541 1807 jr D50A 


nr 
0543 52 61 6E 64 6F 6D 20 6E "Random number seed ?' 

D54B 75 6D 62 65 72 20 73 65 

0553 65 64 20 3F 20 00 


Be BASIC-Befehl RANDOMIZE 


D559 2806 jr 2,D561 

D55B CDFBCE cal  CEFB Ausdruck holen 

D55E E5 push hl 

D55F 181B jr D57C 

D561 E5 push hl 

D562 2143D5 Id h1,D543 "Random number seed ?' 
0565 CD41C3 cal (341 ausgeben 

D568 CD3BCA cal CA3B Eingabezeile holen 

D56B D26BCB jp nc,CB6B ESC-Taste gedrückt ? 

D56E CD4EC3 cal C34E LF ausgeben 

D571 CDA3EC cal ECA3 Eingabe lesen 

D574 30EC jr nc,D562 ungültig, wiederholen 

D576 CD61DD cal DD61 Blank, TAB und LF überlesen 
D579 B7 or a 

D57A 20E6 jr nz,D562 

D57C CDECFE cal FEEC CREAL 

D57F CD9ABD cal BD9YA Set Random Seed 

D582 Ei pp hl 

D583 C9 ret 
KETTE € RND 
D584 7E Id a,(hl) 

D585 FE28 cp 28 Ah 

D587 201C jr nz,D5A5 

D589 CD3FDD cal DD3F Blanks überlesen 

D58C CDFBCE cal CEFB Ausdruck holen 

D58F CD37DD cal DD37 Test auf nachfolgendes Zeichen 
D592 29 db 29 ) 
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D593 E5 push hl 

D594 CDECFE cal FEEC CREAL 

D597 CD70BD cal BD70 SGN 

D59A 2005 jr nz,D5A1 ungleich Null ? 

D59C CDAOBD cal BDA0 letzten RND-Wert holen 
D59F E1 pp hl 

D5AO C9 ret 

D5A1 FCYABD cal m,BD9YA Set Random Seed 

D5A4 Ei pp hl 

D5A5 E5 push hl 

D5A6 CDI6FF cal FF16 Typ auf Fließkomma setzen 
D5A9 CDYDBD cal BDID RND 

D5AC Ei pp hl 

D5AD C9 ret 
terre Varlablenzeiger rücksetzen 
D5AE CDBED5 cal D5BE Tabelle löschen 

D5B1 2A83AE Id hl,(AE83) Programmende 

D5B4 2285AE Id (AE85),hl Variablenstart 

D5B7 2287AE Id (AE87),hl Arraystart 

D5BA 2289AE Id (AE89),hl Arrayende 

D5BD C9 ret 
ea Tabellen löschen 
D5BE 21D0AD Id hl,ADDO 

D5C1 3E36 Id a,36 54 = 227, Variablen + Funktionen 
D5C3 CDCBD5 cal D5CB ADDO bis AE05 löschen 
D5C6 2106AE Id hl,AE06 

D5C9 3E06 Id a,06 AE06 bis AEOB löschen 
D5CB 3600 Id (hl),00 Arrays 

D5CD 23 inc hl 

D5CE 3D dc a 

D5CF 20FA jr nz,D5CB 

D5D1 C9 ret 


ter Flag für FN löschen 
D5D2 210000 Id h,0000 


D5D5 2204AE Id (AE04),hl 

D5D8 C9 ret 
ra Tabellenadresse berechnen 
D5D9 3E5B Id a,5B 'Z’+1,FN 

D5DB 2A85AE Id hl,(AE85) Variablenstart 

D5DE 2B dee hl minus 1 

D5DF 44 Id b,h nach bc 

D5EO 4D Id c 

D5E1 87 add aa mal 2 

D5E2 C64E add a,u4E 

D5E4 6F Id l,a plus AD4E 

D5E5 CEAD adce a,AD gibt ADDO - AE02 für ’A’ -'"Z’ 
D5E7 95 sub I 

D5E8 67 Id h,a 

D5E9 C9 ret 
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er rer Tabellenadresse für Arrays berechnen 


Arraystart 
minus 1 


nach bc 


plus AE06 


tree Alle Variablen auf Typ REAL 


AZ’ 
'Real’ 


Anzahl nach a 
kleiner 1, "Syntax error’ 
Basis der Tabelle = ADCB+’A’ 


Buchstabe gleich Zeiger in Tabelle 
Typ abspeichern 


alle Buchstaben 


Re BASIC-Befehl DEFSTR 


String’ 


Be BASIC-Befehl DEFINT 


Integer’ 


Br BASIC-Befehl DEFREAL 


D5EA 2AB7AE Id hl,(AE87) 
D5ED 2B dc hl 
D5EE 44 Id b,h 
D5EF 4D Id cl 
D5FO E603 and 03 
D5F2 3D dc a 
D5F3 87 add aa 
D5F4 C606 add 4,06 
D5F6 6F Id l,a 
D5F7 CEAE ade a,AE 
D5F9 95 sub | 

D5FA 67 Id h,a 
D5FB C9 ret 

DSFC 015A41 Id bc,415A 
D5SFF 1E05 Id 8,05 
D601 79 Id a,C 
D602 90 sub b 
D603 383D jr c,D642 
0605 E5 push hl 
D606 3C inc a 

D607 21CBAD Id hl,ADCB 
D60A 0600 Id b,00 
D60C 09 add hl,be 
D60D 73 Id (hi),e 
D60E 2B dee hl 
D6OF ID dc a 

D610 20FB jr nz,D60D 
D612 E1 pop hl 
D613 C9 ret 

D614 1E03 Id 6,03 
D616 1806 jr D6IE 
D618 1E02 Id 6,02 
D61A 1802 jr D6IE 
D61C 1E05 Id 6,05 
D6IE TE Id a,(hl) 
D6IF CD7IFF cal FF71 
D622 301E jr nc,D642 
D624 4F Id c,a 
D625 47 Id b,a 
D626 CD3FDD cal DDS3F 
D629 FE2D cp 2D 
D62B 200C jr nz,D639 
D62D CD3FDD cal DD3F 
D630 CD7IFF cal FF71 
D633 300D jr nc,D642 
D635 4F Id c,a 


'Real’ 

Buchstabe holen 
Test auf Buchstabe 
"Syntax error’ 

nach bc (von - bis) 


Blanks überlesen 


Blanks überlesen 
Test auf Buchstabe 
"Syntax error’ 

bis 
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D636 CD3FDD cal DD3F Blanks überlesen 

D639 CDO1D6 cal D601 Variablentyp setzen 

D63C CD55DD cal DD55 folgt Komma ? 

D63F 38DD jr c,D61E ja, nächste Variable verarbeiten 

D641 C9 ret 

D642 1E02 Id e,02 "Syntax error’ 

D644 1806 ir D64C 

D646 1E09 Id e,09 'Subscript out of range’ 

D648 1802 jr D64C 

D64A 1E0A Id e,0A "Array already dimensioned’ 

D64C C394CA jp CA94 Fehlermeldung ausgeben 
KETTE 
D64F FEFB cp F8 

D651 CAAOFI ip z,F1A0 Befehlserweiterung 
Be BASIO-Befehl LET 
D654 CD86D6 cal D686 Variable holen 

0657 D5 push de 

D658 CD37DD cal DD37 Test auf nachfolgendes Zeichen 

D65B EF db EF '=' 

D65C CDFBCE cal CEFB Ausdruck holen 

De5F 78 Id a,b 

D660 EI ex (sp),hl 

D661 CD66D6 cal D666 Wert an Variable zuweisen 

D664 E1 pp hl 

D665 C9 ret 
BB Wert an Variable zuweisen 
D666 47 Id b,a Variablentyp 

D667 CD23FF cal FF23 und Ergebnistyp 

D66A B8 cp b vergleichen 

D66B 78 Id a,b 

D66C CAD7FE cal nz,FED7 Typanpassung, sonst "Type mismatch’ 

D66F CDASFF cal FF45 Test auf String 

D672 C262FF jp nz,FF62 nein, Variable nach (hl) kopieren 

0675 E5 push hl 

D676 CD59YFB cal FB59 Stringverwaltung 

D679 Di pop de 

D67A C366FF ip FF66 Zeiger auf String übernehmen 
ar BASIC-Befehl DIM 
D67D CDB5D7 cal D7B5 Dimensionierung 

D680 CD55DD cal DD55 folgt Komma ? 

D683 38F8 jr c,D67D ja, nächste Variable 

D685 C9 ret 
Bere Varlablesuchen 
D686 CDO6DI cal D906 Variablennamen lesen 

D689 CDDBD7 cal D7DB Test auf dimensionierte Variable 

D68C 3842 jr c,D6D0 Variablentyp holen 

D68E 1828 jr D6B8 
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KERKEEE E E E  Er rrr raae Varlablenadresse holen 


D690 CDO6DI cal D906 Variablennamen lesen 

D693 CDDBD7 cal D7DB Test auf dimensionierte Variable 
D696 3838 jr c,D6DO Variablentyp holen 

D698 E5 push hl 

D699 79 Id a,C erster Buchstabe 

D69A CDDBD5 cal D5DB Tabellenposition berechnen 

D69D CDDED6 cal D6DE 

D6A0, 182D ir D6CF 
KR re Funktionssuchen 
D6A2 CD06D9 cal D906 Variablennamen lesen 

D6A5 3821 jr c,D6C8 

D6A7 E5 push hl 

D6AB CDD9D5 cal D5D9 Tabellenposition für FN berechnen 
D6AB CDDED6 cal D6DE 

D6AE D43DD7 cal nc,D73D Funktion anlegen 

D6B1 181C ir D6CF 

LE zz zz z z z ZZ zz zz 2 zz zZ zz z zZ zz zz 2 ZZ ZZ 2 ZZ ZZ 2 zz 2 2 2 2 u u EZ ee u ZZ 2 
D6B3 CD06D9 cal D906 Variablennamen lesen 

D6B6 3810 jr c,D6C8 

D6B8 E5 push hl 

D6B9 79 Id a,C erster Buchstabe 

D6BA CDDBD5 cal D5DB Tabellenposition berechnen 
D6BD CDDED6 cl D6DE 

D6CO 3AC1BO Id a,(B0C1) Variablentyp 

D6C3 D449D7 cal nc,D749 

D6C6 1807 jr DECF 

D6C8 ES push hl 

D6C9 2A85AE Id hi,(AE85) Variablenstart 

D6CC 2B dee hl 

D6CD 19 add hi,de 

D6CE EB ex de,hl 

D6CF Ei pp hl 

D6DO 3AC1BO Id a,(B0C1) Variablentyp 

D6D3 47 Id b,a 

D6D4 4F Id c,a 

D6D5 C9 ret 

EZ z zz z z z z z z z z z z z Z Z z z z z z z z 2 Z ZZ zz z 2 2 ZZ zz z 2 ZZ 2 — 2 2 2 2 zz 2 zz zz 
D6D6 CDO6DI cal D906 Variablennamen lesen 

D6D9 CDCIES cal E8CI Test auf indizierte Variable 

D6DC 18F2 jr D6DO Variablentyp holen 

LE zZ zz z z Z 2 z zz ZZ Z z Z 2 zz Z 2 z ZZ zZ 2 Z = Z 2 z zz 2 2 2 Z 2 ZZ 2 2 2 2 2 u 2 Ze 2 zz 2 zz 
D6DE D5 push de 

D6DF EB ex de,hl 

D6EO 2A2BAE Id hi,(AE2B) 

D6E3 7C Id a,h 

D6E4 B5 or | 

D6E5 280E jr 2,D6F5 

D6E7 D5 push de 

D6EB 23 inc hl 
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D6E9 
D6EA 
D6EB 
D6EE 
D6F1 

D6F2 
D6F4 
D6F5 
D6F6 
D6F7 
D6FA 
D6FC 
D6FD 
D6FE 


D6FF 
D700 
D701 


D704 
D705 
D706 
D707 


23 

05 
010000 
CD08D7 
1 
3810 
D1 

EB 

ES 
CD08D7 
3803 
E 

Di 

09 


Fl 
E 
C36DD7 


Fi 
Fi 
37 
cg 


inc 
push 
Id 
call 
pop 
jr 
pop 
ex 
push 
call 
jr 
pop 
pop 
ret 


pop 
pop 
Ip 

pop 
pop 


sc 
ret 
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h 

bc 

bc,0000 

D708 Array suchen 
bc 

c,D704 gefunden ? 


de,hl 

h 

D708 Array suchen 
c,D6FF gefunden ? 
h 

de 


LEE ZZ ZZ ZZ ZZ ZZ ZZZZZZZZ ZZ ZZ u u u zo Array suchen 


D708 
D709 
D70A 
D70B 
D70C 
D70D 
D70E 
D70F 
D710 
D711 
D712 
D713 
D716 
D717 
D718 
D’71A 
D71B 
D7IC 
D71D 
D’IF 
D720 
D723 
D724 
D725 
D727 
D729 
D72A 
D72B 
D72C 
D72D 


TE 
23 
66 
6F 
B4 
08 
09 
E5 
23 
23 
EB 
2A27AE 
1A 
BE 


Id 
inc 
Id 
Id 
or 
ret 
add 
push 
inc 
inc 
ex 
Id 
Id 
cp 
jr 
inc 
inc 
rla 
jr 
ex 
Id 
dec 
xor 
and 
jr 
ex 
inc 
pop 
scf 
ret 


a,(h) 
h 
h,(hl) 
1,a 


de,hl 


nc,D716 

de,hl 

a,(B0C1) Variablentyp 
a 

(hi) 

07 

nz,D72E 

de,hl 

de 

h 
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D72E Ei pp hl 

D72F 18D7 ir D708 Array suchen 
KEKKEKE E € 
D731 F5 push af 

D732 54 Id d,h 

D733 5D Id e,l 

D734 23 inc hl 

D735 23 inc hl 

D736 7E Id a,(hl) 

D737 23 inc hl 

D738 17 rla 

D739 30FB jr nc,D736 

D73B Fi pop af 

D73C C9 ret 

EEE Tun nn en EZ ZZ ZZ ZZ ZZ zo 
D73D 3E02 Id a,02 

D73F CD49D7 cal D749 

D742 1B dec de 

D743 1A Id a,(de) 

D744 F640 or 40 Bit 6 setzen, ’FN’ 
D746 12 Id (de),a 

D747 13 inc de 

D748 C9 ret 
KEEKEE  % 
D749 D5 push de 

D74A E5 push hl 

D74B C5 push bc 

D74C F5 push af 

D74D CD77D7 cal D777 

D750 F$ push af 

D751 2A87AE Id hl,(AE87) Arraystart 

D754 EB ex de,hl 

D755 CDFBF5 cal FS5F8 Platz im Variablenbereich reservieren 
D758 CD3AF5 cal F53A Zeiger für Arraybereich erhöhen 
D75B Fi pop af 

D75C CD8AD7 cal D78A 

D75F Fi pop af 

D760 2B decc hl 

D761 3600 Id (hl),00 

D763 3D dc a 

D764 20FA jr nz,D760 

D766 C1 pop bc 

D767 E3 ex (sp),h 

D768 CDA5D7 cal D7AS 

D76B DI pop de 

D76C Ei pp hl 

D76D 23 inc hl 

D’76E 7B Id a,e 

D76F 91 sub c 

D770 77 Id (hi),a 

D771 23 inc hl 

D772 7A \d a,d 
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D773 
D774 
D775 
D776 


98 
7 
37 
c9 


sbc 
Id 
scf 
ret 
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a,b 
(h),a 


EZ ZZ ZZ ZZ ZZ ZZ ZZZZZZZZZZZZZZZZZZZZZZZ ZZ u zz 


D777 
D779 
D77A 
D77D 
D77F 
D780 
D781 
D782 
D783 
D784 
D786 
D787 
D789 


0603 
4F 
2A27AE 
0600 
0C 
04 
TE 
23 
17 
30F9 
78 
0600 
09 


add 
Id 
Id 
Id 
inc 
inc 


a,03 

c,a 
h,(AE27) 
b,00 

c 

b 

a,(hl) 

hl 


nc,D77F 
a,b 
b,00 


EZ ZZ Zn ZZ a EZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ 


D78A 
D78B 
D78C 
D78D 
D78E 
D790 
D791 
D73% 
D793 
D794 
D797 
D79A 
D79D 
D79E 
D79F 
D7AO 
D7A1 
D7A2 
D7A3 
D7A4 


LEZZZZZZZZZZZZ ZZ Z 


D7A5 
D7A6 
D7A7 
D7A8 
D7A9 
D7AA 
D7AB 
D7AC 
D7AD 
D7AE 
D7AF 
D7BO 


62 

6B 

09 

4F 

0600 

E5 

D5 

13 

13 
2A2TAE 
CDF2FF 
3AC1BO 
3D 

12 

13 

2 

4B 

DI 

E 

c9 


TE 
12 
7B 
9 
77 
23 
TE 
F5 
7A 
98 
77 
Fi 


pop 
pop 
ret 


Id 
Id 
Id 
sub 
Id 
inc 
Id 
push 
Id 
sbc 
Id 
pop 


h,d 

l,e 

hl,bc 

c,a 

b,00 

hl 

de 

de 

de 

hl,(AE27) 

FFF2 Idir 
a,(B0C1) Variablentyp 
a 

(de),a 

de 

b,d 

ce 

de 

hl 


zz z z z z z zz z 2 zz z z 2 z z z z z zz ZZ z zZ Z z ZZ zz ZZ 2 
a,(h)) 

(de),a 

ae 

c 

h),a 
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D7B1 13 
D7B2 12 
D7B3 13 
D7B4 C9 


inc 
Id 

inc 
ret 
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de 
(de),a 
de 


near Dimensionierung 


D7B5 CDO6D9 
D7B8 TE 
D7B9 FE28 
D7BB 2805 
D7BD EESB 
D7BF C242D6 
D7C2 CD5AD8 
D7C5 E5 
D7C6 C5 
D7C7 3AC1BO 
D7CA CDEADS 
D7CD CD08D7 
D7DO DA4AD6 
D703 C1 
D7D4 3EFF 
D7D6 CD8AD8 
D7D9 E1 
D7DA C9 


call 
Id 
cp 

jr 
xor 
IP 
call 
push 
push 
Id 
call 
call 
Ip 
pop 
Id 
call 
pop 
ret 


D906 Variablenname holen 

a,(hl) 

28 ( 

2,D7C2 

5B P 

nz,D642 "Syntax error’ 

D85A 

hl 

bc 

a,(B0C1) Variablentyp 

D5EA Tabellenposition für Array berechnen 
D708 Array suchen 

c,D64A gefunden, "Array already dimensioned’ 
bc 

a,FF 

D88A 

hl 


ra Testaufdimensionierte Variable 


D7DB F5 
D7DC TE 
D7DD FE28 
D7DF 2810 
D7E1 EESB 
D7E3 280C 
D7ES Fi 
D7E6 DO 
D7E7 ES 
D7E8 2ABSAE 
D7EB 2B 
D7EC 19 
D7ED EB 
D7EE Ei 
D7EF 37 
D7FO C9 


push 
Id 
cp 
jr 
xor 
jr 
pop 
ret 
push 
Id 
dec 
add 
ex 
pop 
scf 
ret 


af 
a,(hl) 


hl,(AE85) Variablenstart 
hl 


hl,de 
de,hl 
hl 


Brenner dimensionierte Variable 


D7Fi CD5AD8 
D7F4 Fi 
D7F5 E5 
D7F6 3007 
D7F8 2ABTAE 
D7FB 2B 
D7FC 19 
D7FD 1815 


call 
pop 
push 


D85A 

af 

hl 

nc,D7FF 

hl,(AE87) Arraystart 
hl 

hl,de 

D814 
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D’FF 65 push bc 

D800 D5 push de 

D801 3AC1BO Id a,(B0C1) Variablentyp 

D804 CDEAD5 cal D5EA Tabellenposition für Array berechnen 
D807 CDO8D7 cal D708 Array suchen 

D80A 300F jr nc,D81B nicht gefunden ? 
D80C 13 inc de 

D80D 13 inc de 

D80E Ei pp hl 

D80F CD6DD7 cal D76D 

D812 C1 pop bc 

D813 EB ex de,hl 

D814 78 Id a,b 

D815 96 sub (h) 

D816 C246D6 ip nz,D646 'Subscript out of range’ 
D819 180A jr D825 

D81B E1 pp hl 

D8IC C1 pop be 

D81D AF xor a 

D81E CD8ADB cal D88A 

D821 CD6DD7 cal D76D 

D824 EB ex de,hl 

D825 110000 Id de,0000 

D828 46 Id b,(hl) Anzahl der Dimensionen 
D829 23 inc hl 

D82A E5 push hl 

D82B D5 push de 

D82C 5E Id e,(hl) 

D82D 23 inc hl Arraygrenze nach de 
D82E 56 Id d,(hl) 

D82F 3E02 Id a,02 

D831 CDAOF5 cal FS5A0 Platz im BASIC-Stack freigeben 
D834 TE Id a,(hl) 

D835 23 inc hl Index nach hi holen 
D836 66 Id h,(hi) 

D837 6F Id l,a 

D838 CDBBFF cal FFB8 Vergleich hi <> de 
D83B D246D6 ip nc,D646 'Subscript out of range’ 
D83E E3 ex (sp),hl 

D83F CDBEBD cal BDBE Integer-Multiplikation ohne Vorzeichen 
D842 Di pop de 

D843 19 add hl,de 

D844 EB ex de,hl 

D845 E1 pp hl 

D846 23 inc hl 

D847 23 inc hl 

D848 05 dc b nächster Index 

D849 20DF jr nz,D82A 

D84B E5 push hl 

D84C 2AC1BO Id hl,(B0C1) Variablentyp 

D84F 2600 Id h,00 

D851 CDBEBD cal BDBE Integer-Multiplikation ohne Vorzeichen 
D854 DI pop de 

D855 19 add hl,de 
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D856 EB ex de,hl 

D857 E1 pp hl 

D858 37 scf 

D859 C9 ret 
Kr ra INdiceslesen 
D85A D5 push de 

D85B CDIFDD cal DD3F Blanks überlesen 
D85E 3ACIBO Id a,(B0C1) Variablentyp 

D861 F5 push af 

D862 0600 Id b,00 

D864 CD7CCE cal CE7C 16-Bit-Wert 0 - 32767 holen, Index 
D867 E5 push hl 

D868 3E02 Id a,02 

D86A CDBOF5 cal F5BO Platz im BASIC-Stack reservieren 
D86D 73 Id (hl),e 

D86E 23 inc hl Index auf BASIC-Stack 
De6F 72 Id (hi),d 

D870 E1 pop hl 

D871 04 inc b 

D872 CDS5DD cal DD55 folgt Komma ? 

0875 38ED jr c,D864 ja, nächster Index 
0877 7E Id a,(hl) 

D878 FE29 cp 29 ) 

D87A 2805 jr 2,D881 

D87C FE5D cp 5D ]' 

D87E C242D6 jp nz,D642 "Syntax error’ 

D881 CDIFDD cal DD3F Blanks überlesen 

D884 Fi pop af 

D885 32C1B0 Id (BOC1),a Variablentyp 

D888 DI pop de 

D889 C9 ret 

un ZZznn nun ZZ EEE ZZ u u zo 
D88A E5 push hl 

D88B 3226AE Id (AE26),a 

D88E C5 push bc 

D88F 78 Id a,b 

D890 87 add aa 

D891 0603 add a,03 

D893 CD77D7 cal  D777 

D896 F5 push af 

D897 2AB9AE Id hl,(AE89) Arrayende 

D89A EB ex de,hl 

D89B CDFEF5 cal FSF8 Platz im Variablenbereich reservieren 
D8gE Fi pop af 

D89F CD8AD7 cal D78A 

D8A2 60 Id h,b 

D8A3 69 Id l,e 

D8A4 C1 pop bc 

D8A5 D5 push de 

D8A6 23 inc hl 

DBA7 23 inc hl 

D8AB 3ACIBO Id a,(B0C1) Variablentyp 

D8AB 5F Id e,a 
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D8AC 
D8AE 
D8AF 
D8B0 
D8B1 
D8B2 
D8B5 
D8B6 
D8B9 
D8BB 


1600 
70 

E5 

23 

D5 
3A2BAE 
B7 
110B00 
280B 
E5 


D8BC 3E02 


D8BE 
D8C1 
D8C2 
D8C3 
D8C4 
D8C5 
D8C6 
D8C7 
D8C8 
D8C9 
D8CA 


CDAOFS 
5E 
23 
56 
13 
Ei 
73 
23 
72 
23 
E3 


D8CB CDBEBD 


D8CE 
D8D1 
D8D2 
D8D3 
D8D5 
D8D6 
D8D7 
D8D8 
D8D9 
D8DC 
D8DF 
D8EO 
D8E? 
D8E3 
D8E4 
D8E5 
D8E6 
D8E8 
D8EI 
D8EA 
D8EB 
D8ED 
D8EE 
D8EF 
D8FO 
D8F1 

D8F2 
D8F3 
D8F4 
D8F5 
D8F6 
D8F7 


DA46D6 
EB 
E1 
10DC 
42 
4B 
54 
5D 
CDFBF5 
2289AE 
05 
2B 
3600 
0B 
78 

Bi 
20F8 
C1 

E1 

5E 
1600 
EB 
29 

23 

09 
EB 
2B 
2B 
73 

23 

72 

23 


Id 

Id 
push 
inc 
push 
Id 
or 
Id 

jr 
push 


call 
Id 
inc 
Id 
inc 
pop 


inc 


add 
inc 
add 
ex 
dec 
dec 
Id 
inc 
Id 
inc 
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de 

a,(AE26) 

a 

de,000B 11, Defaultwert für Index 
z,D8C6 

hl 

a,02 

FSAO Platz im BASIC-Stack freigeben 
e,(hl) 

hl 

d,(hl) 

de 

hl 

(h)),e 

hl 

(hl),d 

hl 

(sp),hl 

BDBE Integer-Multiplikation ohne Vorzeichen 
c,D646 'Subscript out of range’ 
de,hl 

hl 

D8B1 nächster Index 

b,d 

ce 

d,h 

e,l 

FSFB Speicherplatz reservieren 
(AE89),hl Arrayende 

bc 

hl 

(h)),00 

bc 

a,b 

c 

nz,D8E0 

bc 

hl 

e,(hl) 

d,00 

de,hl 

hl,hl 

hl 

hl,bc 

de,hl 
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D8F8 
D8F9 
D8FA 
D8FD 
D900 
D903 
D904 
D905 


LEE Zu 2 z z z z z zz zz z zz; 


D906 
D909 
D90OA 
D90B 
D90C 
D90D 
D9IOE 
DIOF 
D911 
D912 
D913 
D914 
D916 
0919 
D91A 


LEIZEZZZZZZZZZZ ZZ Z 


D91B 
D9IC 
D91D 
DIIE 
DIIF 
D922 
0923 
D926 
0927 
D928 
D929 


D92B 
D92C 
D92F 
0932 
0933 
0934 
0937 
D938 


D939 
DI3A 
D93B 
D93C 
D93D 
DIIE 
D93F 


E3 
EB 
3AC1BO 
CDEADS 
CDA5D7 
Di 
Ei 
c9 


CD7FDI 
23 

5E 

23 

56 

7A 

B3 
280A 

23 

TE 

17 

3OFB 
CD3FDD 
37 

c9 


2B 

2B 

EB 

C1 
2A27AE 
E5 
212BD9 
E5 

05 

EB 
180E 


ES 
2A2TAE 
CDACFS 
E 

E3 
2227AE 
Ei 

c9 


E& 
TE 
23 
23 
23 
4E 
CBA9 


ex 
ex 
Id 
call 
call 
pop 
pop 
ret 


call 
inc 
Id 
inc 
Id 
Id 
or 
jr 
inc 
Id 
rla 
jr 
call 
scf 
ret 


dec 
dec 
ex 
pop 
Id 
push 
Id 
push 
push 
ex 

jr 


push 
Id 
call 
pop 
ex 
Id 
pop 
ret 


push 
Id 
inc 
inc 
inc 
Id 
res 
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(sp),hl 

de,hl 

a,(B0C1) Variablentyp 

D5EA Tabellenposition für Array berechnen 
D7A5 

de 

hl 


KR KK E KK rr Variablenname holen 


DI7F Variablentyp feststellen 

hl 

e,(hl) 

hl 

d,{hl) 

a,d 

e Variable schon angelegt ? 

z,D91B nein 

hl 

a,(hl) Buchstaben des Namens überlesen 
Bit 7 testen 

nc,D911 letzter Buchstabe ? 

DD3F Blanks überlesen 


[zz z zz ZZ zz zz = Z 2 z z zz Z 2 Z z ZZ zz Z z zz ZZ zz 2 zz 3 
hl 

hl Zeiger auf Variablentyp setzen 

de,hl 

bc 

hl,(AE27) 

hl 


h1,D92B 
hl 

bc 
de,hl 
D939 


hl 

hl,(AE27) 

F5AC BASIC-Stackpointer setzen 
hl 

(sp),hl 

(AE27),hl 

hl 


hl 
a,(h) 
hl 

hl 

hl 
c,(hl) 
5;C 
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D941 FEOB cp 
D943 3819 jr 
D945 79 Id 
D946 ESIF and 
D948 C60B add 
D94A 5F Id 
D94B CEAE adc 
D94D 93 sub 
DY4E 57 Id 
DY4F 1A Id 
D950 32C1B0 Id 
D953 E3 ex 
D954 360D Id 
D956 FEOS cp 
D958 2803 ir 
D95A C609 add 
D95C 77 Id 
D95D EI ex 
D95E EB ex 
D95F 3E28 Id 
D961 CDBOF5 call 
D964 2227AE Id 
D967 0629 Id 
D969 05 dec 
D96A CA42D6 ip 
DI6ED 1A Id 
DI6E 13 ine 
DI6F E6DF and 
D971 77 Id 
D972 23 inc 
0973 17 rla 
D974 30F3 jr 
D976 CDACF5 call 
D979 EB ex 
D97A 2B dec 
D97B DI pop 
D97C C33FDD ip 
Luz 2 zu zz ZZ 2 z zZ 2 zz ZZ 3 
DI7F TE Id 
D980 FEOB cp 
D982 3802 jr 
D984 C6F7 add 
D986 FEO4 cp 
D988 2809 jr 
DI8A 3004 jr 
D98C FEO2 cp 
DIBE 3005 jr 
D990 C342D6 ip 
D993 3E05 Id 
D995 32C1B0 Id 
D998 C9 ret 


0B 
c,D95E 
ac 

1F 
a,0B 
6,4 
a,AE 

e 

d,a 
a,(de) 
(BOC1),a 
(sp),hl 
(hl), OD 
05 
2,D95D 
a,09 
(hl),a 
(sp),hl 
de,hl 
a,28 
F5B0 
(AE27),hl 
b,29 

b 
2,D642 
a,(de) 
de 

DF 
(hl),a 

hl 


nc,D969 
F5AC 
de,hl 

hl 

de 
DD3F 


BASIC 1.0 


plus AE0B 


Variablentyp 


05 +09=>0D 


40 
Platz im BASIC-Stack reservieren 


41 

schon 40 Zeichen ? 

ja, "Syntax error’ 

nächstes Zeichen aus Namen holen 


Klein- in Großschreibung wandeln 
abspeichern im BASIC-Stack 


letztes Zeichen ? 


nein 
BASIC-Stackpointer setzen 


Blanks überlesen 


KR re Variablentyp feststellen 


a,(hl) 

0B 
c,D986 
a,F7 

04 
2,D993 
nc,D990 
02 
nc,D995 
D642 


a,05 
(BOC1),a 


kleiner OB ? 

-9, 0D => 05 

'", Real-Variable ? 
Typ auf 'real’ setzen 
"Syntax error’ 

'%', Integer-Variable ? 
oder ’$’, String ? 
"Syntax error" 


'Real’ 
Variablentyp merken 
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KeKKRE rec Arraylabelle updaten 


D999 CDC6D5 cal D5C6 Tabelle für Arrays löschen 
D99C 2AB9AE Id hi,(AE89) Arrayende 

D99F EB ex de,hl 

DYAO 2AB7AE Id hl,(AE87) Arraystart 

DYA3 CDBIFF cal FFB8 Vergleich hl <> de 

DYA6 CB ret z 

D9A7 D5 push de 

D9AB CD31D7 cal D731 

DYAB TE Id a,(hi) 

DYAC 23 inc hl 

DYAD E607 and 07 

DYAF 3C ne a 

D9BO E5 push hl 

D9B1 CDEADS cal D5EA Tabellenposition für Array berechnen 
D9B4 CDA5D7 cal D7AS 

D9B7 EI pp hl 

D9B8 5E Id e,(hl) 

D9BI 23 inc hl 

D9BA 56 Id d,(hi) 

DYBB 23 inc hl 

DIBC 19 add hl,de 

D9BD DI pop de 

DIBE 18E3 ir DYA3 

EEE EEE EEE EEE EEEEE EEE EEE EEE EZ, BASIC-Befehl ERASE 
D9C0 CD89EI cal E989 

D9C3 CDCCDI cal DICC Array löschen 

D9C6 CD55DD cal DD55 folgt Komma ? 

D9CI 38F8 ir c,D9C3 ja, nächstes Array 

DICB CI ret 

EEE EEE EI TE I EEE EEE LESE ZZ ZZE. Array löschen 
D9CC CD06D9 cal D906 Variablenname holen 

DICF ES push hi 

D9DO 3AC1BO Id a,(B0C1) Variablentyp 

D9D3 CDEADS cal DS5EA Tabellenposition für Array berechnen 
D9D6 CD08D7 cal D708 Array suchen 

D9D9 E5 push hl 

D9DA EB ex de,hl 

D9DB 1E05 Id 6,05 ’Improper argument’ 

D9DD D294CA ip nc,CA94 nicht angelegt, Fehlermeldung ausgeben 
DIEO 5E Id e,(hl) 

DIEI 23 inc hl Adresse des Arrays nach de 
DIE2 56 Id d,(hl) 

DIEI 23 inc hl 

DIEA 19 add hi,de 

DIES EB ex de,hl 

DIYE6 2ABYAE Id hI,(AE89) Arrayende 

D9YEI CDCFFF cal _FFCF hl:=hl- de 

DIEC E3 ex (sp),hl 

DYED C1 pop be 

DIEE EB ex de,hl 

DIEF 78 Id a,b 
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D9FO Bi or c 

DIF1 CAF2FF cal nz,FFF2 Idir 

D9F4 EB ex de,hl 

DYF5 2289AE Id (AE89),hl Arrayende 

DY9F8 CD99D9 cal D999 Arraytabelle updaten 
DYFB Ei pp hl 

DIFC C9 ret 


LEI ZZ Zn EZ EZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ 


DIYFD 210000 Id h1,0000 


DA00 222BAE Id (AE2B),hl 

DA03 2229AE Id (AE29),hl 

DAO6 C9 ret 

Eu un nn n n EZ ZZ u Z2 
DA07 ES push hl 

DA08 2A2BAE Id hl,(AE2B) 

DAOB E5 push hl 

DAOC 2A29AE Id hl,(AE29) 

DAOF EB ex de,hl 

DA10 3E06 Id a,06 

DA12 CDBOF5 cal F5BO Platz im BASIC-Stack reservieren 
DA15 2229AE Id (AE29),hl 

DA18 73 Id (hl),e 

DA19 23 inc hl 

DA1A 72 Id (h),d 

DA1B 23 inc hl 

DA1C AF xor a 

DA1D 77 Id (hi),a 

DAIE 23 inc hl 

DAIF 77 Id (h),a 

DA20 23 inc hl 

DA21 Di pop de 

DA22 73 Id (hl),e 

DA23 23 inc hl 

DA24 72 Id (hi),d 

DA25 E1 pp hl 

DA26 C9 ret 

LE z zZ zz zz 2 z zz 2 2 Z 2 z 2 2 2 2 2 2 2 z 2 z 2 z ZZ ZZ zZ Z Z z Z 2 Z z Z 2 z 2 z 2 ZZ zZ 2 zz 0 
DA27 E5 push hl 

DA28 2A29AE Id hl,(AE29) 

DA2B 222BAE Id (AE2B),hl 

DAZE EI pp hl 

DA2F C9 ret 

LEI ZZ ZZ ZZ ZZ a EZ ZZ EEE ZZ ZZ ZZ ZZ ZZ 
DA3O E5 push hl 

DA31 2A29AE Id hl,(AE29) 

DA34 CDACFS cal FS5AC BASIC-Stackpointer setzen 
DA37 5E Id e,(hl) 

DA38 23 inc hl 

DA39 56 Id d,(hl) 

DA3A 23 inc hl 

DASB EB ex de,hl 
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DASC 2229AE 
DA3F EB 
DA40 23 
DA41 23 
DA42 5E 
DA43 23 
DA44 56 
DA45 EB 
DA46 222BAE 
DA49 Ei 
DA4A C9 


Id 
ex 
inc 
inc 
Id 
inc 
Id 
ex 
Id 
pop 
ret 
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(AE29),hl 
de,hl 

hl 

hl 

e,(hl) 

hl 


d,(hl) 
de,hl 
(AE2B),hl 
hl 


KERKET a € 


DA4B ES 
DA4C 3E02 
DA4E CDBOF5 
DAS1 E3 
DA52 CD7FDI 
DA55 CD39D9 
DAS8 EI 
DAS9 EB 
DASA 2A2YAE 
DASD 23 
DASE 23 
DASF 010000 
DA62 CDA5D7 
DA65 3AC1BO 
DA68 47 
DA69 3C 
DA6A CDBOF5 
DA6D 78 
DAGE 3D 
DA6F 77 
DA70 23 
DATI EB 
DA72 E1 
DA73 C9 


push 
Id 
call 
ex 
call 
call 
ex 
ex 
Id 
inc 
inc 
Id 
call 
Id 
Id 
inc 
call 
Id 
dec 
Id 
inc 
ex 
pop 
ret 


hl 

a,02 

F5BO Platz im BASIC-Stack reservieren 
(sp),hl 

DI7F Variablentyp feststellen 

D939 

(sp),hl 

de,hl 

hl,(AE29) 

hl 


hl 
bc,0000 
D7A5 
a,(B0C1) 
b,a 

a 

F5B0 Platz im BASIC-Stack reservieren 
a,b 

a 

(hl),a 

hl 

de,hl 


Variablentyp 


LEZZZZZZ ZZ ZZ ZZ ZZ ZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZ ZZ 


DA74 2A2YAE 
DAT? 7C 
DA78 B5 
DA79 280E 
DATB 4E 
DA7C 23 
DATD 46 
DATE 23 
DATF C5 
DA80 010000 
DA83 CDCEDA 
DA86 Ei 
DA87 18EE 


Id 
Id 
or 
jr 

Id 
inc 
Id 
inc 
push 
Id 
call 
pop 
jr 


hi,(AE29) 
a,h 

| 
z,DA89 
c,(hi) 

hl 

b,(hi) 

hl 

bc 
bc,0000 
DACE 
hl 

DA77 


KER 


DA89 01411A 


Id 


bc,1A41 26 Buchstaben, 'A’ 
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DASC 
DA8D 
DABE 
DA91 
DA94 
DAS 
DA96 
DA97 
DA99 
DA9B 
DAYE 
DA9F 
DAAO 
DAA1 
DAA2 
DAA3 
DAA4 
DAA 
DAA8 
DAA9 
DAAA 
DAAB 
DAAE 
DAAF 
DABO 
DAB1 
DAB2 
DAB3 
DAB4 
DABS 
DAB6 
DAB7 
DAB8 
DAB9I 


05 

79 
CDDBD5 
CDCEDA 
C1 

0C 

05 

20F3 
3E03 
CDEAD5 
4E 

23 

46 

78 

B1 

08 
2AB7AE 
2B 

09 

E5 

D5 
CD31D7 
Di 

23 

4E 

23 

46 

23 

ES 

09 

E3 

4E 

23 

0600 


DABB 09 
DABC 09 
DABD C1 
DABE CDBEFF 
DAC1 2808 
DAC3 CDE7DA 
DAC6 23 
DAC7 23 
DACB 23 
DACY 18F3 


DACB E! 
DACC 18D0 


DACE 7E 
DACF 23 
DADO 66 
DAD1 6F 
DAD2 B4 
DAD3 C8 
DAD4 09 


push 
Id 
call 
call 
pop 
inc 
dec 
ir 
Id 
call 
Id 
inc 
Id 
Id 
or 
ret 
Id 
dec 
add 
push 
push 
call 
pop 
inc 
Id 
inc 
Id 
inc 
push 
add 
ex 
Id 
inc 
Id 
add 
add 
pop 
call 
jr 
call 
inc 
inc 
inc 
jr 


pp 
jr 


Id 
inc 
Id 
Id 
or 
ret 
add 


bc 
a,C 
D5DB 
DACE 
bc 

c 

b 
nz,DA8C 
a,03 
D5EA 
c,{h) 
hl 
b,(hl) 
a,b 

c 


zZ 
hl,(AE87) 


BASIC 1.0 


erster Buchstabe des Namens 
Tabellenposition berechnen 


nächster Buchstabe 
schon alle Buchstaben ? 


Tabellenposition für Array berechnen 


Arraystart 


Vergleich hl <> bc 


410 
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DAD5 E5 push hl 
DAD6 D5 push de 
DAD? CD31D7 cal D731 
DADA D1 pop de 
DADB 7E Id a,(hl) 
DADC 23 inc hl 
DADD E607 and 07 
DADF FEO2 cp 02 
DAE1 CCE7DA cal z,DAE7 
DAE4 Ei pp hl 
DAE5 18E7 jr DACE 
DAE7 C5 push bc 
DAE8 D5 push de 
DAE9 E5 push hl 
DAEA 7E Id a,(hl) 
DAEB 23 inc hl 
DAEC 4E Id c,(hl) 
DAED 23 inc hl 
DAEE 46 Id b,(h)) 
DAEF EB ex de,hl 
DAFO B7 or a 
DAF1 C4F8FF cal nz,FFF& jp (hi) 
DAF4 Ei pop hl 
DAF5 DI pop de 
DAF6 C1 pop bc 
DAF7 C9 ret 
terre BASIC-Befehl LINE 
DAF8 CD37DD cal DD37 Test auf nachfolgendes Zeichen 
DAFB A3 db A3 'INPUT’ 
DAFC CDCBC1 cal CICB Kanalnummer holen 
DAFF F5 push af 
DB00 CD89DB cal DB89 evtl. Dialogstring ausgeben 
DB03 CD86D6 cal D686 Variable suchen 
DBO6 CDICFF cal FF3C Typ 'String’, sonst "Type mismatch’ 
DB09 ES push hl 
DBOA D5 push de 
DBOB CD1ADB cal DB1A Eingabe von aktivem Gerät holen 
DBOE CDDCF7 cal F7DC String in Descriptorstack eintragen 
DB11 Ei pp hl 
DB12 CD6FDE cal D66F Ergebnis an Variable zuweisen 
DB15 Ei pop hl 
DBi6 Fi pop af 
DB17 C3AFCI ip CIAF Kanalnummer zurücksetzen 
KR kr kr Eingabe von aktivem Gerät holen 
DB1A CDCOC1 cal C1CO 
DB1D D266DC ip nc,DC66 Eingabe von Kassette holen 
DB20 CDA2C1 cal CI1A2 
DB23 F5 push af 
DB24 CDADDB cal DBAD Eingabe von Tastatur holen 
DB27 Fi pop af 
DB28 C3A2C1 ip C1A2 
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Kr BASIC-Befehl INPUT 


DB2B CDCBC1 
DB2E F5 
DB2F CD47DB 
DB32 D5 
DB33 CD86D6 
DB36 E3 
DB37 3E00 
DB39 CDBCDB 
DB3C E3 
DB3D CD55DD 
DB40 38F1 
DB42 DI 
DB43 Fi 
DB44 C3AFCI 


LE 2 zz z z zZ z z z zZ z z z z zz 


DB47 CDCOC1 
DB4A 303D 
DB4C CDA2CI 
DBAF F5 
DB50 ES 
DB51 CD89DB 
DB54 3E3F 
DB56 D45603 
DB59 3E20 
DB5B D45603 
DB5E ES 
DBSF CDADDB 
DB62 EB 
DB63 Ei 
DB64 CDD3DB 
DB67 3809 
DB69 2177DB 
DB6C CD41C3 
DB6F Ei 
DB70 18DE 


DB72 Fi 
DB73 Fi 
DB74 C3A2C1 


call 
push 
call 
push 
call 
ex 
Id 
call 
ex 
call 
jr 
pop 
pop 
Ip 


call 
jr 
call 
push 
push 
call 


push 
call 
ex 
pop 
call 
jr 

Id 
call 


pop 
ir 


pop 
pop 
Ip 


C1CB Kanalnummer holen 
af 

DB47 Eingabe holen und umwandeln 
de 

D686 Variable suchen 
(sp),hl 

a,00 

DBBC 

(sp),hl 

DD55 auf Komma prüfen 
c,DB33 

de 

af 

C1AF 


re Eingabe holen und umwandeln 
C1C0 

nc,DB89 evil. Dialogstring ausgeben 

C1A2 


DB89 evtl. Dialogstring ausgeben 
a,3F 7 

nc,C356 

a,20 a 

nc,C356 

hl 

DBAD Eingabe von Tastatur holen 
de,hl 

hl 

DBD3 

c,DB72 

h1,DB77 '?Redo from start’ 

C341 ausgeben 

hl 

DB50 


af 
af 
C1A2 


LE z zz z z z 2 z 2 z Z z z z z Z Z Z Z z z ZZ z z z z z zZ Z z z Z zZ Z Z z z Z Z Z 2 z 2 ZZ 2 ZZ zZ zz 2 
DB77 3F 52 65 64 6F 20 66 72 '?Redo from start’ 
DB7F 6F 6D 20 73 74 61 72 74 


DB87 0A 00 


Kerr EVIL Dialogstring ausgeben 


DB89 7E 
DB8A FE3B 
DB8C 322DAE 
DBEF CCIFDD 
DB92 EE22 
DB94 CO 
DB95 CDCBF7 


call 
xor 
ret 

call 


a,(hl) 

3B Sr 

(AE2D),a Trennzeichen merken 
z,DD3F Blanks überlesen 

22 ” 

nz 

F7CB Dialogstring lesen 
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DB98 CDCOCI 
DB9YB F5 
DB9C DC28F8 
DBYF Fi 
DBAO D4DAFB 
DBA3 CD55DD 
DBA6 D8 
DBA7 CD37DD 
DBAA 3B 
DBAB B7 
DBAC C9 


call 
push 
call 
pop 
call 
call 
ret 
call 
db 
or 
ret 
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C1C0 

af 

c,F828 String ausgeben 

af 

nc,FBDA Stringparameter holen 

DD55 folgt Komma ? 

c ja 

DD37 Test auf nachfolgendes Zeichen 
3B n 


rer Eingabe von Tastatur holen 


DBAD CD3BCA cal CA3B Eingabezeile holen 

DBBO D26BCB ip nc,CB6B ESC gedrückt ? 

DBB3 3A2DAE Id a,(AE2D) Trennzeichen 

DBB6 FE3B cp 3B ni 

DBB8 C44EC3 cal nz,C34E kein ’;', neue Zeile (LF ausgeben) 
DBBB C9 ret 
KETTE 
DBBC D5 push de 

DBBD CD02DC cal DCO2 

DBCO 300C jr nc,DBCE 

DBC2 E3 ex (sp),hl 

DBC3 CD66D6 cal D666 Wert an Variable zuweisen 
DBC6 Ei pop hi 

DBC7 7E Id a,{hl) 

DBC8 23 inc hl 

DBC9 B7 or a 

DBCA C8 ret z 

DBCB EE2C xor  2C ” 

DBCD C9 ret 

DBCE 1E0D Id e,0D 'Type mismatch’ 

DBDO C394CA ip CA94 Fehlermeldung ausgeben 
LEE zz zz zz zz zz z 2 ZZ zz ZZ 2 Z ZZ Z zz z z Z ZZ Z Z z z Z z z ZZ z Z zz z 2 z zZ 2 z z z z zus 
DBD3 D5 push de 

DBD4 E5 push hl 

DBD5 D5 push de 

DBD6 CDD6D6 cal D6D6 Variablenname und -typ holen 
DBD9 E3 ex (sp),hl 

DBDA AF xor a 

DBDB CD02DC cal DCO2 

DBDE 301E ir nc,DBFE 

DBEO FEO3 cp 03 String’ 

DBE2 CCDAFB cal z,FBDA ja, Stringparameter holen 
DBE5 E3 ex (sp),hl 

DBE6 CD55DD cal DD55 folgt Komma ? 

DBE9 E3 ex (sp),hl 

DBEA 300B jr nc,DBF7 nein 

DBEC CD61DD cl DD61 Blank, TAB und LF überlesen 
DBEF EE2C xor 20 r 

DBFI 200B ir nz,DBFE 
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DBF3 23 


DBF4 
DBF5 


DBF7 
DBFA 
DBFB 
DBFD 
DBFE 
DBFF 
DCOO 
DC01 


DCO2 
DC03 
DCO6 
DC07 
DC08 
DCOA 
DCOD 
DCOE 


DC10 
DC13 
DC16 
DC19 
DC1A 
DC1D 
DCIE 
DCIF 
DC20 


DC21 
DC24 
DC26 
DC29 


DC2C 
DC2F 
DC31 
DC34 
D035 


DC38 
DC3B 
DC3D 
DC40 


DC42 
DC44 


DC47 
DC4A 
DCA4C 
DC4E 


E3 
18DF 


CD61DD 
B7 

2001 

37 

E 

Ei 

D1 

c9 


5F 
CDA45FF 
57 

D5 

2006 
CD21DC 
37 

1809 


CDCOC1 
D438DC 
CDA3EC 
F& 
DC61DD 
Fi 
D1 
7A 
c9 


CDCOC1 
3806 

CD47DC 
C3DCF7 


CD61DD 
FE22 
CACBF7 
7B 
C3E6F7 


CDIDDC 
3005 
11C6DC 
182C 


1E18 
C394CA 


CDIDDC 
30F6 
FE22 
2805 


inc 
ex 


call 
or 
jr 
scf 
pop 
pop 
pop 
ret 


Id 
call 
Id 
push 
jr 
call 
sc 


call 
call 
call 
push 
call 
pop 
pop 
Id 
ret 


call 
jr 
call 
Ip 


call 
cp 
ip 
Id 


call 
jr 
Id 
jr 
Id 
ip 
call 
jr 
cp 


BASIC 1.0 


hl 


(sp),hl 
DBD6 


DD61 Blank, TAB und LF überlesen 
nz,DBFE 


hl 
hl 
de 


e,a 

FF45 Test auf String 
d,a 

de 

nz,DC10 

DC21 


DC19 


C1C0 

nc,DC38 

ECA3 

af 

c,DD61 Blank, TAB und LF überlesen 
af 

de 

a,d 


C1C0 

c,DC2C 

DC47 

F7DC String in Descriptorstack eintragen 


DD61 Blank, TAB und LF überlesen 
» ie 

z,F7CB String lesen 

ae 

F7E6 


DCID 

nc,DC42 'EOF met’ 
de,DCC6 

DC6E 


e,18 'EOF met’ 
CA94 Fehlermeldung ausgeben 


DC9D 

nc,DC42 'EOF met’ 
> 1 
2,DC55 
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DC50 11CADC Id de,DCCA 

DC53 1819 jr DC6E 

DC55 CDA8DC cal DCA8 

DC58 1163DC Id de,DC63 

DC5B 3811 jr c,DC6E 

DC5D 21A4AC Id hl,ACA4 Start des Eingabepuffers 
DC60 3600 Id (hl),00 erstes Zeichen gleich 00 
DC62 C9 ret 

DC63 FE22 cp 22 S 

DC65 C9 ret 

DC66 CDASDC cal DCA8 

DC69 30D7 jr nc,DC42 ’EOF met’ 
DC6B 11CDDC Id de,DCCD 

DO6E 21A4AC Id hl,ACA4 Start des Eingabepuffers 
DC71 E5 push hl 

DC72 O6FF Id b,FF 

DC74 CDFBFF cal _FFFB ip (de) 

DC77 280C jr 2,DC85 

DC79 77 Id (hl),a 

DC7A 23 inc hl 

DC7B 05 dee b 

DC7C 2805 jr 2,D083 

DC7E CDA8DC cal DCAB 

DC81 38F1 jr c,DC74 

DC83 F6FF or FF 

DC85 3600 Id (hl),00 

DC87 Ei pp hl 

DC88 CO ret nz 

DC89 FEOD cp 0D CR 

DC8EB C8 ret z 

DC8C FE22 cp 22 u 

DC8E C4DODC cal nz,DCDO 

DC91 CO ret nz 

DC92 CDIDDC cal DC9ID 

DC95 DO ret nc 

DC96 CDCADC cal DCCA 

DC99 C414C04 cal nz,0414 CAS RETURN 
DC9C C9 ret 

DC9D CDA8DC cal DCA8 

DCAO DO ret nc 

DCA1 CDDODC cal DCDO 

DCA4 28F7 jr 2,DC9D 

DCA6 37 scf 

DCA7 C9 ret 

DCA8 CD24C4 cal (0424 ein Zeichen einlesen 
DCAB DO ret nc 

DCAC C5 push bc 

DCAD FEOD cp 0D CR 

DCAF 060A Id b,0A LF 

DCB1 2805 ir z,DCB8 
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DCB3 B8 cp b 

DCB4 200D jr nz,DCC3 

DCB6 060D Id b,0D CR 

DCB8 4F Id c‚a 

DCBI CD24C4 cal (424 ein Zeichen einlesen 

DCBC 3004 ir nc,DCC2 

DCBE B8 cp b 

DCBF 041404 cal nz,C0414 CAS RETURN 

DCC2 79 Id a,C 

DCC3 C1 pop bc 

DCC4 37 scf 

DCC5 C9 ret 

DCC6 CDDODC cal DCDO 

DCC9 C8 ret z 

DCCA FE2C cp 2C 2 

DCCC C8 ret z 

DCCD FEOD cp 0D CR 

DCCF C9 ret 

DCDO FE2O cp 20 " 

DCD2 C8 ret z 

DCD3 FEOI cp 09 TAB 

DCD5 C8 ret z 

DCD6 FEOA cp 0A LF 

DCD8 C9 ret 
ne BASIC-Befehl RESTORE 
DCDI 280A jr 2,DCE5 

DCDB CDEICE cal CEEI Zeilennummer nach de holen 
DCDE ES push hl 

DCDF CDYAE7 cal E79A BASIC-Zeile de suchen 
DCE2 2B dc hl 

DCE3 182D jr DD12 DATA-Zeiger setzen 

DCE5 E5 push hl 

DCE6 2AB1AE Id hl,(AE81) Programmstart 

DCE9 1827 jr DD12 als DATA-Zeiger 
ne BASIC-Befehl READ 
DCEB E5 push hl 

DCEC 2A30AE Id hI,(AE30) DATA-Zeiger 

DCEF CD17DD cl DD17 nächstes DATA-Element holen 
DCF2 E3 ex (sp),hl 

DCF3 CD86D6 cal D686 Variable suchen 

DCF6 E3 ex (sp),hl 

DCF7 23 inc hl 

DCF8 3E3A Id a,3A ve 

DCFA CDBCDB cal DBBC 

DCFD 2B dc hl 

DCFE 280B jr z,DDOB 

DDO0 2A2EAE Id hi,(AE2E) Zeilenadresse während READ-Befehl 
DD03 CDCEDD cal DDCE aktuelle Zeilenadresse setzen 
DDO6 1E02 Id e,02 "Syntax error’ 

DD08 C394CA ip CA94 Fehlermeldung ausgeben 
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DDOB E3 ex (sp),hl 

DDOC CD55DD cl DD55 folgt Komma ? 

DDOF E3 ex (sp),hl 

DD10 38DD ir c,DCEF ja 

DD12 2230AE Id (AE30),hl DATA-Zeiger 

DD15 E1 pp hl 

DD16 C9 ret 

DD17 7E Id a,(hi) 

DD18 FE2C cp 2C Kr 

DDIA C8 ret z 

DD1B CDEFE8 cal ESEF Rest der Zeile überlesen 
DDIE B7 or a Zeilenende ? 

DDIF 200E ir nz,DD2F nein 

DD21 23 inc hl 

DD22 7E Id a,(hl) Zeilenlänge 

DD23 23 inc hl 

DD24 B6 or (hl) Null, Programmende ? 

DD25 23 inc hl 

DD26 1E04 Id  . 8,04 'DATA exhausted’ 

DD28 CA9Y4CA ip 2,CA94 Fehlermeldung ausgeben 
DD2B 222EAE Id (AE2E),hl Zeilenadresse während READ-Befehl 
DD2E 23 inc hl 

DD2F CD3FDD cal DD3F Blanks überlesen 

DD32 FEBC cp 8C 'DATA’ 

DD34 20E5 jr nz,DD1B 

DD36 C9 ret 
re Testaufnachfolgendes Zeichen 
DD37 E3 ex (sp),hl Zeiger hinter CALL-Befehl 
DD38 7E Id a,(h) nachfolgendes Zeichen holen 
DD39 23 inc hl 

DD3A E3 ex (sp),hl Rücksprungadresse erhöhen 
DD3B BE cp (hi) Zeichen mit Programmtext vergleichen 
DD3C C2C6DD ip nz,DDC6 nicht gleich, "Syntax error’ 


nr BlanksÜberlesen 
DD3F 23 inc hl 


DD40 7E Id a,(hl) 

DD41 FE2O cp 20 en 

DD43 28FA jr z,DD3F Blanks überlesen 
DD45 FEO1 cp 01 

DD47 DO ret nc 

DD48 B7 or a Zeilenende, Z=1 
DD49 C9 ret 
ker & Ende des Statements, sonst "Syntax error’ 
DD4A 7E Id a,(hl) laufendes Zeichen 
DD4B FEO2 cp 02 kleiner 2? 

DD4D D8 ret c ok 

DD4E C3C6DD ip DDC6 sonst "Syntax error’ 
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KERKREEREEE rrerrrrraaee TestaufEnde des Statements 


DD51 
DD52 
DD54 


TE 
FEO2 
c9 


Id 
cp 
ret 


a,{hi) 
02 


laufenden Zeichen 
kleiner 2? 


KR rar Nächstes Zeichen auf Komma prüfen 


DD55 
DD56 
DD59 


2B 
CD3FDD 
EE2C 


DD5B CO 
DD5C CD3FDD 


DD5F 
DD60 


37 
c9 


dec 
call 
xor 
ret 

call 
scf 
ret 


hl 
DD3F 
2C 
nz 
DD3F 


Blanks überlesen 
nicht gefunden, c=0 
Blanks überlesen 
gefunden, c=1 


rer Blank, TAB undLLF überlesen 


DD61 
DD62 
DD63 
DD65 
DD67 
DD69 


TE 
23 
FE2O 
28FA 
FEO9 
28F6 


DD6B FEOA 
DD6D 28F2 


DD6F 
DD70 


ÄEEZZZZZZZZZZZ ZZ ZZ 


DD71 
DD74 
DD75 
DD78 
DD7B 


2B 
c9 


2A34AE 
EB 
2A8BBO 
2232AE 
EB 


DD7C 2234AE 


DD7F 
DD82 
DD85 
DD88 


CD21B9 
DC07C8 
CD3FDD 
C4ABDD 


DD8B 7E 
DD8C FEO1 


DD8E 
DD9O 
DD32 
DD93 
DD94 
DD95 
DD96 
DD97 
DD99 


28E4 
3034 
23 

TE 

23 

B6 

23 
280F 
2236AE 


DD9C 23 
DD9YD 3A38AE 
DDAO B7 


DDA1 
DDA3 
DDA6 


- 28D1 
CDEBDD 
18CC 


Id 
inc 
cp 
jr 
cp 


ret 


Id 
ex 
Id 
Id 
ex 
Id 
call 
call 
call 
call 
Id 
cp 
jr 

jr 
inc 
Id 
inc 
or 
inc 
jr 
Id 
inc 
Id 
or 
jr 
call 
jr 


TAB 
LF 


re Interpreterschleife 


hI,(AE34) 
de,hl 
hl,(BO8B) 
(AE32),hl 
de,hl 
(AE34),hl 
B921 
c,0807 
DD3F 
nz,DDAB 
a,(hi) 

01 
2,DD74 
nc,DDC6 
hl 

a,(hl) 

hl 

(hi) 

hl 
2,DDA8 
(AE36),hl 
hl 
a,(AE38) 
a 


z,DD74 
DDEB 
DD74 


Adresse des aktuellen Statements 
Programmzeiger merken 
BASIC-Stackpointer 

Speicher für BASIC-Stackpointer 
Programmzeiger 

als Adresse des aktuellen Statements 
KLPOLL SYNCHRONOUS 
Event-Verarbeitung AFTER/EVERY 
Blanks überlesen 

BASIC-Befehl ausführen 
Programmtext lesen 

'", Ende des Statements ? 

ja 

"Syntax error’ 


Zeilenlänge 
gleich Null ? 


ja, zum END-Befehl 
aktuelle Zeilenadresse merken 


TRACE-Flag gesetzt ? 
nein 


TRACE-Routine 
zur Interpreterschleife 
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DDA8 C376CB ip CB76 zum END-Befehl 

KR Er BASIC-Befehl ausführen 
DDAB 87 add aa Token mal 2 

DDAC D24FD6 jp nc,D64F Test auf Befehlserweiterung 

DDAF FEB9 cp B9 

DDB1 3010 jr nc,DDC3 ungültiges Token, "Syntax error’ 
DDB3 EB ex de,hl 

DDB4 C601 add a,01 

DDB6 6F Id l,a plus DEO1 (Tabellenadresse) 

DDB7 CEDE add a,DE 

DDB9 95 sub I 

DDBA 67 Id h,a 

DDBB 4E Id c,(hl) 

DDBC 23 inc hl 

DDBD 46 Id b,(hl) 

DDBE C5 push bc Befehlsadresse auf Stack 

DDBF EB ex de,hl 

DDCO C33FDD ip DD3F Blanks überlesen, Sprung auf Befehl 
LE zz 2 z zZ z z zz z Z zz zZ Z Z 2 2 z z 2 Z zZ z 2 2 2 z zz z 2 2 2 2 2 2 2 2 2 2 z 2 2 2 2 z 2 2 2 2 2 3 
DDC3 CDOTAC cal ACO07 ret 

DDC6 1E02 Id e,02 "Syntax error’ 

DDC8 C394CA ip CA94 Fehlermeldung ausgeben 


BB a aktuelle Zeilenadresse auf Null 
DDCB 210000 Id h1,0000 


DDCE 2236AE Id (AE36),hl aktuelle Zeilenadresse 

DDD1 C9 ret 
nr aktuelle Zeilenadresse laden 
DDD2 2A36AE Id hl,(AE36) aktuelle Zeilenadresse 

DDD5 C9 ret 

KR ker rare Test Direktmodus / Zeilennummer holen 
DDD6 2A36AE Id hI,(AE36) aktuelle Zeilenadresse 

DDDI 7C Id a,h 

DDDA B5 or | 

DDDB C8 ret z Null, Direktmodus 

DDDC 7E Id a,(hl) 

DDDD 23 inc hl 

DDDE 66 Id h,(hi) Zeilennummer nach hi 

DDDF 6F Id l,a 

DDEO 37 sc 

DDEI C9 ret 
KR BASIC-Befehl TRON 
DDE2 3EFF Id a,FF 

DDE4 1801 jr DDE7 


KR rer BASIC-Befehl TROFF 
DDE6 AF xor a 

DDE7 3238AE Id (AE38),a TRACE-Flag 

DDEA C9 ret 
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BER EEE EEE re TRACE-Roufine 
DDEB 3E5B Id a,5B T 


DDED CD56C3 cal 0356 ausgeben 
DDFO E5 push hl 

DDF1 2A36AE Id hl,(AE36) aktuelle Zeilenadresse 
DDF4 7E d ahl) 

DDF5 23 inc hl Zeilennummer nach hl 
DDF6 66 Id h,(hl) 

DDF7 6F Id 1,a 

DDF8 CD79EE cal  EE79 Zeilennummer ausgeben 
DDFB Ei pp hl 

DDFC 3E5D Id a,5D T: 

DDFE C356C3 ip (356 ausgeben 
Bee Adressen der BASIC-Befehle 
DEO1 71C9 dw C971 80 AFTER 
DEO3 DFCO dw CODF 81 AUTO 
DEO5 21C2 dw 0221 82 BORDER 
DEO?T BAFI dw FiBA 83 CALL 
DEO9 46D2 dw D246 84 CAT 
DEOB 3CEA dw EASC 85 CHAIN 
DEOD 32C1 dw (0132 86 CLEAR 
DEOF B5C4 dw C4B5 87 CLG 
DE11 98D2 dw D298 88 CLOSEIN 
DE13 A1D2 dw D2AI 89 CLOSEOUT 
DE15 5AC2 dw C25A 8ACLS 
DE17 COCB dw CBCO 8B CONT 
DE19 EFEB dw  ESEF 8C DATA 
DEIB 17D1 dw  D117 8D DEF 
DE1D 1806 dw  D618 8E DEFINT 
DEIF 1CD6 dw D6IC 8F DEFREAL 
DE21 14D6 dw D614 90 DEFSTR 
DE23 E7D4 dw D4E7 91 DEG 
DE25 28E7 dw E728 92 DELETE 
DE27 7DD6 dw D67D 93 DIM 
DE29 C6C4 dw C4C6 94 DRAW 
DE2B CBC4 dw C4CB 95 DRAWR 
DE2D 52C0 dw C052 96 EDIT 
DE2F F3E8 dw ES8F3 97 ELSE 
DE31 65CB dw CB65 98 END 
DE33 85D3 dw D385 99 ENT 
DE35 4ED3 dw D34E g9AENV 
DE37 C0D9 dw D9ICO 9B ERASE 
DE39 8FCA dw _CABF 9C ERROR 
DE3B 79C9 dw 0979 9D EVERY 
DE3D 2905 dw C529 9E FOR 
DE3F EDC6 dw C6ED 9F GOSUB 
DE41 E8C6 dw  C6E8 AO GOTO 
DE43 C7C6 dw C6C7 A1IF 

DE45 2AC2 dw CA A2INK 

DE47 2BDB dw DB2B A3 INPUT 
DE49 39D4 dw D439 A4KEY 
DE4B 54D6 dw D654 A5SLET 
DE4D F8DA dw  DAF8 A6 LINE 
DE4F F7EO dw EOF7 A7 LIST 


420 


BASIC 1.0 


DES1 F6EY dw E9F6 A8 LOAD 
DES3 D2C2 dw C2D2 A9LOCATE 
DES5 EFF4 dw FA4EF AA MEMORY 
DES7 AGEA dw EA6 AB MERGE 
DES9 93F9 dw F993 AC MID$ 
DESB 4FC2 dw C24F AD MODE 
DESD 05C5 dw (0505 AE MOVE 
DESF 0AC5 dw  C50A AF MOVER 
DE61 FBC5 dw CSFB BO NEXT 
DE63 2BC1 dw C12B B1 NEW 
DE65 E3C7 dw C7E3 B2ON 

DE67 CBC8 dw CS8CB B3 ON BREAK 
DE69 F8CB dw CBFB B4ON ERROR GOTO 0 
DE6B 40C9 dw (0940 B5ONSQ 
DE6D SFD2 dw D25F B6 OPENIN 
DE6F 56D2 dw D256 B7 OPENOUT 
DE71 8CC4 dw C48C B8 ORIGIN 
DE73 77F1 dw F177 BI OUT 
DE75 0AC2 dw C20A BA PAPER 
DE77 12C2 dw 0212 BB PEN 
DE79 DOC4 dw C4D0 BC PLOT 
DE7B D5C4 dw C4D5 BD PLOTR 
DE7D SFFI dw FISF BE POKE 
DE7F FDF1 dw FIFD BF PRINT 
DES1 F3E8 dw E8F3 co’ 

DE83 EBD4 dw D4EB C1 RAD 
DE8SS 59D5 dw D559 C2 RANDOMIZE 
DE87 EBDC dw DCEB C3 READ 
DE89 1ED3 dw D31E C4 RELEASE 
DE8B F3EB dw E8F3 C5 REM 
DE8SD DFE7 dw E7DF C6 RENUM 
DESF DIDC dw DCD9 C7 RESTORE 
DE9I 03CC dw CC03 C8 RESUME 
DE93 OFC7 dw C7OF C9 RETURN 
DE95 BDE9I dw EIBD CARUN 
DE97 09EC dw ECO9 CB SAVE 
DE99 COD2 dw D2CO CC SOUND 
DEIB 94D4 dw D494 CD SPEED 
DE9D 5ACB dw CBSA CESTOP 
DE9F 9DF6 dw F69D CFSYMBOL 
DEA1 19C3 dw 0319 DO TAG 
DEA3 20C3 dw (0320 D1 TAGOFF 
DEA5 E6DD dw DDE6 D2 TRON 
DEA7 E2DD dw DDE2 D3 TROFF 
DEA9 7DF1 dw F17D D4 WAIT 
DEAB 76C7 dw (0776 D5 WEND 
DEAD 47C7 dw 0747 D6 WHILE 
DEAF E3C3 dw C3E3 D7 WIDTH 
DEB1 EIC2 dw C2EI D8 WINDOW 
DEB3 7BF4 dw F47B D9 ZONE 
DEBS F6F1 dw FIF6 DAWRITE 
DEB7 E1C8 dw  CB8E1 DBDI 

DEBI E7C8 dw C8E7 DCEI 


421 


BASIC 1.0 


ALEIZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ ZZ ZZ ZZ Zn ZZ 


DEBB D5 push de 

DEBC EB ex de,hl 

DEBD 2A7FAE Id hI,(AETF) Beginn des freien RAMs 
DECO EB ex de,hl 

DEC1 D5 push de 

DEC2 AF xor a 

DEC3 3239AE Id (AE39),a 

DEC6 012001 Id bc,012C max. 300 Zeichen 
DEC9 CDEIDE cal  DEEI Zeichen aus Eingabepuffer holen 
DECC 7E Id a,(hl) 

DECD B7 or a letztes Zeichen ? 
DECE 20F9 jr nz,DEC9 nein 

DEDO 3E2D Id a,2D 

DED2 91 sıb c 301 - Zählerstand 
DED3 4F Id c,a 

DED4 3E01 Id a,01 gleich Zeilenlänge 
DED6 98 sbc ab 

DED7 47 Id b,a nach b 

DED8 AF xor a 

DEDI 12 Id (de),a 

DEDA 13 inc de dreimal Null als Abschluß 
DEDB 12 Id (de),a 

DEDC 13 inc de 

DEDD 12 Id (de),a 

DEDE Ei pp hl 

DEDF DI pop de 

DEEO C9 ret 
ner Zeichen aus Eingabepuffer holen 
DEE1 CD10AC cal AC10 ret 

DEE4 7E Id a,(hl) 

DEE5 B7 or a letztes Zeichen ? 
DEE6 C8 ret z ja 

DEE? CD7IFF cal  FF71 Buchstabe ? 
DEEA 381D jr c,DF09 ja 

DEEC CD7FFF cal FFTF numerisch ? 
DEEF DAFFDF ip c,DFFF ja 

DEF2 FE26 cp 26 '&? 

DEF4 CASAEO ip z,E05A ja 

DEF7 23 inc hl 

DEF8 FE8O cp 80 Token ? 

DEFA DO ret nc ja 

DEFB FE2O cp 20 2 

DEFD C280E0 ip nz,E080 

DFOO 3AODAC Id a,(AC00) zusätzliche Blanks ignorieren ? 
DFO3 B7 or a 

DFO4 CO ret nz ja 

DFO5 3E20 Id a,20 un 

DFO7 181C jr DF25 in Puffer schreiben 
DF09 CD4EDF cal  DF4E 

DFOC D8 ret c 

DFOD FEC5 cp C5 'REM’ 

DFOF CAEDEO ip z,EOED 
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DF12 &5 push hl 

DF13 2130DF Id h1,DF30 Basisadresse der Tabelle 
DF16 CDAAFF cal FFAA Tabelle durchsuchen 
DF19 E1 pp hl 

DFIA 3819 jr c,DF35 gefunden ? dann Rest nicht konvertieren 
DFIC F5 push af 

DFID FE97 cp 97 ’ELSE’ 

DFIF 3E01 Id a,01 

DF21 CC25DF cal  z,DF25 in Puffer schreiben 

DF24 Fi pop af 

DF25 12 Id (de),a Zeichen in Puffer schreiben 
DF26 13 inc de Pufferzeiger erhöhen 

DF27 OB dee bc Zähler erniedrigen 

DF28 79 Id a,C 

DF29 BO or b 

DF2A CO ret nz 

DF2B 1E17 Id e,17 "Line too long’ 

DF2D C394CA ip CAY4 Fehlermeldung ausgeben 
ner Spezielle Tokens 
DF30 8C db 80’ DATA’ 

DF31 8E db 8E’ DEFINT’ 

DF32 90 db 9 DEFSTR’ 

DF33 8F db öf’ DEFREAL’ 

DF34 00 db 00 Tabellenende 

LE zz zz z 2 z 2 z z 2 ZZ z 2 Z 2 Z 2 Z 2 zz 2 2 z z 2 z Z z z 2 2 z 2 z z Z 2 2 2 Z 2 Z 2 Z z 2 zZ 2 ZZ 2 
DF35 CD25DF cal  DF25 in Puffer schreiben 

DF38 7E Id a,(hl) 

DF39 B7 or a 

DF3A C8 ret z 

DF3B FE3A cp 3A Br 

DF3D 280A jr 2,DF49 

DF3F 23 inc hl 

DF40 FE22 cp 22 " 

DF42 20F1 jr nz,DF35 

DF44 CDBFEO cal EOBF 

DF47 18EF jr DF38 

DF49 AF xor a 

DF4A 3239AE Id (AE39),a 

DF4D C9 ret 

DF4E C5 push bc 

DF4F D5 push de 

DF50 E5 push hl 

DF51 CDI6AC cal AC16 ret 

DF54 7E Id a,(hl) 

DF55 23 inc hl 

DF56 CDSAFF cal FF8A Klein- in Großbuchstaben wandeln 
DF59 CDDDE2 cal E2DD Adresse der Befehlsworte berechnen 
DF5C CD27E3 cal E327 

DF5F 3028 jr nc,DF89 

DF61 79 Id ac 

DF62 E67F and 7F 
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DF64 CD7BFF cal FF7B Test auf Buchstabe oder Ziffer 
DF67 300B jr nc,DF74 

DF69 1A Id a,(de) 

DF6A FEE4 cp E4 'FN’ 

DF6C 2806 jr 2,DF74 

DF6E TE Id a,(hl) 

DF6F CD7BFF call FF7B Test auf Buchstabe oder Ziffer 
DF72 3815 ir c,DF89 

DF74 Fi pop af 

DF75 1A Id a,(de) 

DF76 B7 or a 

DF77 FAC8DF ip m,DFC8 

DF7A DI pop de 

DF7B C1 pop be 

DF7C F5 push af 

DF7D 3EFF Id a,FF "Funktion’ 

DF7F CD25DF cal _DF25 in Puffer schreiben 
DF82 Fi pop af 

DF83 CD25DF call DF25 in Puffer schreiben 
DF86 AF xor a 

DF87 183A jr DFC3 

DF89 E1 pp hl 

DF8A DI pop de 

DF8B C1 pop bc 

DF&C E5 push hl 

DF8D 2B dee hl 

DF8E 23 inc hl 

DFEF 7E Id a,(hl) 

DF90 CD7BFF cal FF7B Test auf Buchstabe oder Ziffer 
DF93 38F9 ir c,DF8E 

DF95 CDEADF cal DFEA 

DF98 3804 jr c,DF9E 

DFYA 3EOD Id a,0D Token für Variable 
DF9C 1806 jr DFA4 

DFYIE 23 inc hl 

DFYF FEOS cp 05 

DFA1 2001 jr nz,DFA4 

DFA3 3D dc a 

DFA4 CD25DF cal DF25 in Puffer schreiben 
DFA7 AF xor a Null 

DFA8 CD25DF call DF25 in Puffer schreiben 
DFAB AF xor a 

DFAC CD25DF cal DF25 in Puffer schreiben 
DFAF E3 ex (sp),hl 

DFBO 7E Id a,(hl) 

DFB1 CD7BFF cal _FF7B Test auf Buchstabe oder Ziffer 
DFB4 3007 ir nc,DFBD 

DFB6 7E Id a,(hl) 

DFB7 CD25DF cal DF25 in Puffer schreiben 
DFBA 23 inc hl 

DFBB 18F3 jr DFBO 
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DFBD CDDFEO cal EODF 

DFCO E1 pp hl 

DFC1 3EFF Id a,rF 

DFC3 3239AE Id (AE39),a 

DFC6 37 scf 

DFC7 C9 ret 

DFC8 E5 push hl 

DFC9 4F Id c,a 

DFCA 21DCDF Id hl,DFDC Basisadresse der Tabelle 
DFCD CDAAFF cal _FFAA Tabelle durchsuchen 
DFDO 9F sbc aa 

DFD1 E601 and 01 

DFD3 3239AE Id (AE39),a 

DFD6 79 Id a,C 

DFD7 Ei pp hl 

DFD8 DI pop de 

DFD9 Ci pop be 

DFDA B7 or a 

DFDB C9 ret 
re Befehle mit Zeilennummer 
DFDC C7 db cr” RESTORE’ 
DFDD 81 db 81’ AUTO’ 

DFDE C6 db C6’ RENUM’ 

DFDF 9 db 92 DELETE’ 

DFEO 96 db 96 EDIT’ 

DFEI C8 db 08 RESUME’ 

DFE2 E3 db E3’ ERL' 

DFEI3 97 db 97 ELSE’ 

DFE4 CA db ca RUN’ 

DFE5 A7 db AT’ LIST’ 

DFE6 AO db A0' GOTO’ 

DFE7 EB db EB’ THEN’ 

DFE8 9F db 9F’ GOSUB’ 

DFE9 00 db 00 Ende der Tabelle 
KE + 
DFEA FE26 cp 26 '& 

DFEC DO ret nc 

DFED FE21 cp 21 Y 

DFFO DO ret nc 

DFF1 FE22 cp 22 a. 

DFF3 C8 ret z 

DFF4 FE23 cp 23 + 

DFF6 08 ret z 

DFF7 EE27 xor 27 2 

DFF9 FEO4 cp 04 

DFFB CEFF ad aFF 

DFFD 37 scf 

DFFE c9 ret 
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E000 39 add hl,sp 

E001 AE xor (hl) 

E002 B7 or a 

E003 2815 ir z,E01A 

E005 7E Id a,(h) 

E006 23 inc hl 

E007 FA25DF ip m,DF25 in Puffer schreiben 
EO0OA FE2E cp 2E N 

EOOC CA25DF ip z,DF25 in Puffer schreiben 
EOOF 2B dec hl 

E010 D5 push de 

EO11 CDO4EE cal EEO4 

E014 3034 jr nc,EO4A 

E016 3EIE Id a,1E Token für Zeilennummer 
E018 184F jr E069 

EOIA D5 push de 

E01B C5 push bc 

EO1C CDBEEC cal ECBE 

EOIF C1 pop be 

E020 3028 ir nc,EO4A 

E022 CD27FF cal FF27 Test auf String 
E025 3EIF Id a,ıF Token für Fließkomma 
E027 3040 jr nc,E069 

E029 EB ex de,hl 

EO2A 2AC2BO Id hl,(B0C2) 

E02D EB ex de,hl 

EO2E 7A Id a,d 

Eo2F B7 or a 

E030 3E1A Id a,1A Token für Zwei-Byte-Zahl 
E032 2035 jr nz,E069 

E034 E3 ex (sp),hl 

E035 EB ex de,hl 

E036 7D Id a,l 

E037 FEOA cp 0A 10 

E039 3004 jr nc,EO3F 

EO3B C60E add a,0E Offset addieren 
EO3D 1806 jr E045 

EO3F 3E19 Id a,19 Token für Ein-Byte-Wert 
E041 CD25DF cal DF25 in Puffer schreiben 
EO44 7D Id a,l 

E045 CD25DF cal DF25 in Puffer schreiben 
E048 Ei pp hl 

E049 C9 ret 

EO4A TE Id a,(hl) 

EO4B 23 inc hl 

E04C E3 ex (sp),hl 

EO4D EB ex de,hl 

EO4E CD25DF cal DF25 in Puffer schreiben 
E051 EB ex de,hl 

E052 E3 ex (sp),hl 

E053 CDB8FF cal FFB8 Vergleich hi <> de 
E056 20F2 jr nz,EO4A 
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E058 
E059 


EOSA 
E05B 
E0SC 
EOSF 
E060 
E062 
E064 
E066 
E068 
E069 
EO6A 
E06D 
EOGE 
E071 
E074 
E075 
E076 
E077 
EO7A 
E07B 
E07C 
EOTE 
EO7F 


E080 
E082 
E084 
E086 
E088 
E089 
EOBA 
E08C 
EO8E 
E090 
E091 

E094 
E097 
E098 
EO9A 
EO9B 
E09D 
EO9F 
EOA1 

EOA2 
EOA3 
EOA6 
EOA9 
EOAA 
EOAB 
EOAC 
EOAE 


DI 
c9g 


D5 

05 
CDBEEC 
C1 
30E8 
FEO2 
3E1B 
2801 
3C 

DI 
CD25DF 
E5 
2102B0 
CD23FF 
F5 

TE 

23 
CD25DF 
Fi 

3D 


pop 
ret 


push 
push 
call 
pop 


cp 
Id 

ir 
inc 
pop 
call 
push 


call 
push 
Id 
inc 
call 
pop 
dec 
jr 
pop 
ret 


de 


de 
ECBE 


nc,EO4A 
02 

a,1B 
z,E069 


de 
DF25 


hl,B0C2 
FF23 
af 

a,(hl) 

h 

DF25 
af 


nz,E074 
h 


22 
z,EOBF 
7C 
z,EOCD 


de 
3F 


z,EOA6 
h 
de,E64B 
E327 
a,(de) 
c,EOA2 
a,(hl) 


nc,EOA1 
a,20 

h 

b,a 
EOB3 
(AE39),a 
a,b 

de 


co 
z,EOE6 


BASIC 1.0 


Token für Binärzahl 


in Puffer schreiben 


Variablentyp holen 


in Puffer schreiben 


T', Befehlserweiterung 
ins 


PRINT’ 


Adresse der BASIC-Operatoren 
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EOBO C325DF jp DF25 in Puffer schreiben 

EOB3 3D de a 

EOB4 C8 ret z 

EOB5 EE22 xor 22 x 

EOB7 C8 ret z 

EOB8 3A39YAE Id a,(AE39) 

EOBB 3C ne a 

EOBC C8 ret 2 

EOBD 3D de a 

EOBE C9 ret 

EOBF CD25DF cal DF25 in Puffer schreiben 

E0C2 7E Id a,(hl) 

E0C3 B7 or a 

E0C4 C8 ret z 

EOC5 23 inc hl 

EOC6 FE22 cp 2 u 

E0C8 20F5 ir nz,EOBF 

EOCA C325DF ip DF25 in Puffer schreiben 
kr kr rk Befehlserweiterung verarbeiten 
EOCD CD25DF cal  DF25 in Puffer schreiben 

EODO AF xor a Null 

EOD1 3239AE Id (AE39),a 

EOD4 CD25DF cal  DF25 in Puffer schreiben 

EOD7 TE Id a,(hl) nächstes Zeichen 

E0D8 23 inc hl Zeiger erhöhen 

EOD9 CD7BFF cal _FF7B Test auf Buchstabe oder Ziffer 
EODC 38F6 jr c,E0D4 ja, dann in Puffer 

EODE 2B decce hl 

EODF 1B dec de Zeiger eins zurück 

EOEO 1A Id a,(de) 

EOE1 F680 or 80 beim letzten Zeichen Bit 7 setzen 
EOE3 12 Id (de),a 

EOE4 13 inc de 

EOE5 C9 ret 

EOE6 3E01 Id a,01 

EOE8 CD25DF cal  DF25 in Puffer schreiben 

EOEB 3ECO Id a,C0 1 

EOED CD25DF cal DF25 in Puffer schreiben 

EOFO 7E Id a,(hl) Zeichen 

EOFI 23 inc hl 

EOF2 B7 or a bis Zeilenende 

EOF3 20F8 ir nz,EOED in Puffer schreiben 

EOF5 2B dece hl 

EOF6 C9 ret 
Beer BASIC-Befehl LIST 
EOF7 CDBOCE cal CEBO Zeilennummernbereich holen 
EOFA C5 push bc 

EOFB D5 push de 
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EOFC CDC6CI call 
EOFF CD4ADD call 
E102 CDCBDD call 
E105 DI pop 
E106 C1 pop 
E107 CDODE! call 
E10A C364C0 jp 
KR € 
E10D D5 push 
E1IOE 50 Id 
EiOF 59 Id 
E110 CDA3E7 call 
E113 DI pop 
E114 4E Id 
E115 23 inc 
E116 46 Id 
E117 2B dec 
E118 78 Id 
E119 B1 or 
EI1A CB ret 
E11B CDICC4 call 
EIIE E5 push 
EtIF 09 add 
E120 E3 ex 
E121 D5 push 
E122 ES push 
E123 23 inc 
E124 23 inc 
E125 5E Id 
E126 23 inc 
E127 56 Id 
E128 E1 pop 
E129 E3 ex 
E12A CDBAFF call 
E12D E3 ex 
E12E 3812 ir 
E130 CD63EI call 
E133 CD45E1 call 
E136 23 inc 
E137 TE Id 
E138 B7 or 
E139 20F8 jr 
E13B CD4ECI call 
E13E DI pop 
Ei3F EI pop 
E140 18D2 jr 
E142 E1 pop 
E143 E1 pop 
E144 C9 ret 


BASIC 1.0 


C1C6 Kanalnummer holen 

DD4A Ende des Statements, sonst Syntax error’ 
DDCB aktuelle Zeilenadresse auf Null 

de 

bc 

E10D Zeilen listen 

C064 zum READY-Modus 


Krk ee BASIC-Zeilen bc -delisten 
de 

d,b Zeilennummer nach de 

&,C 

E7A3 BASIC-Zeile de suchen 

de 

c,(h)) 

hl Programmende ? 

b,(hi) 

hl 

a,b 

c 

z fertig 

C43C Unterbrechung durch 'ESC’ ? 
hl 

hl,bc Zeilenlänge addieren 

(sp),hl 


hl nächste Zeilennummer nach de 


FFB8 Vergleich hi <> de 


c‚E142 größer letzte Zeilennummer ? 
E163 BASIC-Zeile in Puffer listen 
E145 Zeichen aus Puffer ausgeben 


a letztes Zeichen ? 
nz,E133 nein 
C34E LF ausgeben 
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KK EEE re Zeichen aus Puffer ausgeben 


E145 CDBAC1 cal CIBA Ausgabekanal kleiner 8 ? 
E148 380B jr c,E155 ja, Bildschirmausgabe 
E14A TE Id a,(hl) 

E14B CD6EC3 cal _C36E Zeichen ausgeben 

E14E FEOA cp 0A LF? 

E150 CO ret nz 

E151 3EOD Id a,0D CR hinterher schicken 
E153 180B jr E160 
terre Bildschirmausgabe 
E155 7E Id a,(hl) Zeichen holen 

E156 FE2O cp 20 Kontrollzeichen ? 

E158 3006 ir nc,E160 nein, so ausgeben 

E15A 3E01 Id a,01 Kontrollzeichen als druckbare Zeichen 
E15C CD6ECI cal C36E Zeichen ausgeben 

EI5F 7E Id a,(hl) Zeichen holen 

E160 C36EC3 ip C36E und ausgeben 
KRKREE e BASIC-Zeile in Puffer listen 
E163 D5 push de 

E164 O1A4AC Id bc,ACA4 Zeiger auf Eingabepuffer 
E167 05 push bc 

E168 23 inc hl 

E169 23 inc hl 

E16A 5E Id e,(hl) 

E16B 23 inc hl Zeilennummer nach de 
E16C 56 Id d,(hl) 

E16D 23 inc hl 

EiI6E E5 push hi 

Ei6F EB ex de,hl 

E170 CDODFF cal FFOD Integerzahl hi übernehmen 
E173 CD82EE cal EE82 nach ASCII wandeln 

E176 110000 Id de,0000 

E179 7E Id a,(hl) 

E17A 23 inc hl 

E17B B7 or a 

E17C 2805 jr 2,6183 

E17E CDFEE1 cal EIFE in Puffer schreiben 

E181 18F6 jr E179 

E183 3E20 Id a,20 AR 

E185 CDFEE1 cal EIFE in Puffer schreiben 

E188 E1 pop hl 

E189 7E Id a,(hl) Zeichen aus Programm holen 
E18A B7 or a 

E18B 2805 jr 2,6192 Zeilenende ? 

E18D CDY6E1 cal E16 Token expandieren 

E190 18F7 jr E189 

E19 02 Id (bc),a 

E193 E1 pop hl 
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E194 DI pop de 

E195 C9 ret 

E196 CD13AC cal AC1I ret 

E199 FA2OE2 ip m,E220 Befehlstoken ? 
E19C FEO2 cp 02 

EIYE 381D jr c,E1BD 

E1AO FEOS cp 05 

E1A2 3843 ir c‚EIE7 

E1A4 FEOB cp 0B 

EIA6 3822 ir c‚EICA 

E1A8 FEOE cp 0E 

E1AA 383B ir c‚EIE7 

E1AC FE2O cp 20 nr 

EIAE 382E jr c,‚E1DE Konstante ausgeben 
E1BO FE7C cp 7C T', Befehlserweiterung 
EiB2 2851 jr 2,205 

E1B4 CDEADF cal DFEA 

E1B7 DCIAE2 cal c,E21A Blank ausgeben 
EiBA TE Id a,(hl) 

E1BB 180D jr EICA 

E1BD 23 inc hl 

EiBE 7E Id a,(hl) 

EiBF FECO cp co = 

EiC1 285D jr z,E220 

E1C3 FE97 cp 97 'ELSE’ 

EiC5 2859 ir z,E220 

E1IC7 2B decc hl 

EIC8 3EIA Id a,3A “ 

EICA 1E00 Id e,00 

EICC FE22 cp 2 rn 

EICE 200B jr nz,E1DB 

E1DO CDFEEI cal EIFE in Puffer schreiben 
E1D3 23 inc hl 

E1D4 7E Id a,(hl) 

E1D5 B7 or a 

E1D6 C8 ret z 

E1D7 FE22 cp 2 & 

E1D9 20F5 jr nz,E1D0 

EIDB 23 inc hl 

EIDC 1820 jr EIFE in Puffer schreiben 
EiIDE CDIAE2 cal E2IA Blank ausgeben 
EIET CD53E2 cal E253 Konstante ausgeben 
E1E4 1E01 Id e,01 

EIE6 C9 ret 

E1E7 CDIAE2 cal E2IA Blank ausgeben 
EIEA TE Id a,(hl) 

EIEB F5 push af 

EIEC 23 inc hl 
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EIED 23 inc hl 

EIEE 23 inc hl 

EIEF CDOFE2 cal E2OF 

EIF2 Fi pop af 

EIF3 1E01 Id 6,01 

EIF5 FEOB cp 0B 

EiF7T DO ret nc 

EIF8 1E00 Id e,00 

EIFA EE27 xor 27 

EIFC E6FD and FD 

EiFE 02 Id (be),a Zeichen in Puffer schreiben 
EIFF 03 inc bc Pufferzeiger erhöhen 
E200 15 dee d 

E201 CO ret nz 

E202 0B dec be 

E203 14 inc  d 

E204 C9 ret 


ke Befehlserweiterung listen 
E205 1E01 Id 8,01 


E207 CDFEE1 cal EIFE in Puffer schreiben 
E20A 23 inc hl 

E20B 7E Id a,(hl) nächstes Zeichen 
E20C 23 inc hl Zeiger erhöhen 
E20D B7 or a 

E20E CO ret nz Zeilenende ? 
E20F TE Id a,(hl) Zeichen holen 
E210 E67F and T7F Bit 7 löschen 
E212 CDFEE1 cal EIFE in Puffer schreiben 
E215 BE cp (hi) letztes Zeichen ? 
E216 23 inc hl 

E217 30F6 jr nc,E2OF nein, nächstes Zeichen 
E219 C9 ret 

E21A 1D dc e 

E21B CO ret nz 

E21C 3E20 Id a,20 1% 

E21E 18DE jr EIFE in Puffer schreiben 
E220 23 ine hl 

E221 FEFF cp FF Funktion ? 

E223 2002 jr nz,E227 nein 

E225 TE. Id a,(hl) 

E226 23 inc hl 

E227 F5 push af 

E228 E5 push hl 

E229 CDEDE2 cal  E2ED Token listen ? 
E22C B7 or a 

E22D 2808 jr 2,6237 

E2F F5 push af 

E230 CDIAE2 cal E21A 

E233 Fi pop af 
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in Puffer schreiben 


in Puffer schreiben 


Test auf Buchstabe oder Ziffer 


Binärzahl ? 
Hexzahl ? 
Zeilenadresse ? 
Zeilennummer ? 
Fließkommazahl ? 
Ein-Byte-Zahl ? 
Zwei-Byte-Zahl ? 


Ziffer ? 


tr Ein-Byte-Zahl ausgeben 


Lo-byte 


Hi-Byte Null 


ke ZWei-Byte-Zahl ausgeben 


E234 CDFEE1 cal EIFE 
E237 7E Id a,(hl) 
E238 E67F and 7F 
E23A FEO9 cp 09 
E23C C4FEEI cal nz,EIFE 
E23F BE cp (hi) 
E240 23 inc hl 
E241 28F4 ir 2,6237 
E243 CD7BFF cal FF7B 
E246 1E00 Id e,00 
E248 3002 ir nc,E24C 
E24A 1E01 Id e,01 
E24C EI pp hl 
E24D Fi pop af 
E24E D6E4 sub E4 
E250 CO ret nz 
E251 5F Id e,a 
E252 C9 ret 

E253 D5 push de 
E254 7E Id a,(hl) 
E255 23 inc hl 
E256 FEIB cp 1B 
E258 2849 jr 2,E2A3 
E25A FEIC cp 1C 
E25C 2850 jr z,E2AE 
E25E FEIE cp 1E 
E260 2826 jr 2,6288 
E262 FEID cp 1D 
E264 2822 jr 2,6288 
E266 FEIF cp 1F 
E268 285E ir 2,E2C8 
E26A FE19 cp 19 
E26C 2809 jr 2,6277 
E26E FEIA cp 1A 
E270 280B jr 2,E27D 
E272 D60E sub 0E 
E274 5F Id e,a 
E275 1802 jr E279 
E277 5E Id e,(hi) 
E278 23 inc hl 
E279 1600 Id d,00 
E27B 1804 ir E281 
E27D 5E Id e,(hl) 
E2TE 23 inc hl 
E27F 56 Id d,(hl) 
E280 23 inc hl 
E281 E3 ex (sp),hl 


Lo-Byte 


Hi-Byte 
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E282 EB ex de,hl 

E283 CDODFF cal FFOD Integerzahl hi übernehmen 
E286 1847 jr E2CF 
ne Zeilennummer ausgeben 
E288 5E Id e,(hl) 

E289 23 inc hl 

E28A 56 Id d,{hl) 

E28B 23 inc hl 

E28C FEIE cp 1E Zeilennummer ? 

E28E 2809 jr 2,E299 ja 

E290 E5 push hl 

E291 EB ex de,hl 

E292 23 inc hl 

E293 23 inc hl 

E294 23 inc hl 

E295 5E Id e,(hl) 

E296 23 inc hl 

E297 56 Id d,{hl) 
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E298 E1 pp hl 

E299 E3 ex (sp),hl 

E29A EB ex de,hl 

E29B CDODFF cal FFOD Integerzahl hi übernehmen 
E29E CD82EE cal EE82 nach ASCII wandeln 

E2A1 182F jr E2D2 
terre Binärzahl ausgeben 
E2A3 C5 push bc 

E2A4 010200 Id bc,0002 

E2A7 CD14F1 cal  F114 in Binärzahl wandeln 
E2AA 3658 Id a,58 x 

E2AC 1809 ir E2B7 
terre & Hexzahlausgeben 
E2AE C5 push bc 

E2AF 010200 Id bc,0002 

E2B2 CDI9F1 cal F119 in Hexzahl wandeln 

E2B5 3E48 Id a,48 'H' 

E2B7 C1 pop be 

E2B8 E3 ex (sp),hl 

E2B9 EB ex de,hl 

E2BA F5 push af 

E2BB 3E26 Id a,26 '& 

E2BD CDFEEI cal EIFE in Puffer schreiben 

E2CO Fi pop af 

E2C1 FE48 cp 48 'H' nicht 

E2C3 CA4FEEI cal nz,EIFE in Puffer schreiben 

E2C6 180A jr E2D2 
terre Fließkommazahl ausgeben 
E2C8 3E05 Id a,05 Variablentyp 'Real’ 

E2CA CD4BFF cal FF4B Zahl holen 

E2CD EI ex (sp),hl 

E2CE EB ex de,hl 

E2CF CD8FEE cal EE8F nach ASCII wandeln 

E2D2 TE Id a,(hl) Zeichen holen 

E2D3 23 inc hl 

E2D4 CDFEEI cal EIFE in Puffer schreiben 

E2D7 7E Id a,(hl) 

E2D8 B7 or a Ende der Zahl ? 

E2D9 20F7 jr nz,E2D2 nein 

E2DB Ei pop hl 

E2DC C9 ret 

KERK EFF FF  E  E € 
E2DD ES push hl 

E2DE D641 sub 41 A 

E2EO 87 add a,a 

E2EI C654 add a,54 

E2E3 6F Id 1,a plus E354, Adressen der Befehlsworte 
E2E4 CEE3 ade a,E3 

E2E6 95 sub | 

E2E7 67 Id h,a 

E2E8 5E Id e,(hl) 
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E2E9 
E2EA 
E2EB 
E2EC 


E2ED 
E2EE 
E2EF 
E2F1 

E2F4 
E2F7 
E2F9 
E2FA 
E2FC 
E2FF 
E302 

E304 
E306 
E307 

E309 
E30A 


E30B 
E3O0E 
E310 


E313 
E314 
E315 
E316 
E317 
E318 
E319 
E31A 
E3IC 
E31D 
E31E 
E3IF 
E321 

E322 


E324 
E325 
E326 


E327 
E328 
E329 
E32A 
E32B 
E32C 
E32D 
E32F 
E331 

E333 


23 
56 
E1 
c9 


C5 

4F 
061A 
218863 
CD13E3 
380D 
23 
10F8 
214BE6 
CD13E3 
3007 
06C0 
78 
0640 
c1 

09 


CD19AC 
1E02 
C394CA 


TE 
B7 
C8 
E5 
TE 
23 
17 
30FB 
TE 
23 
B9 
2803 
Fi 
18EF 


E 
37 
cg 


1A 
B7 
c8 
E5 
1A 
13 
FEO9 
2804 
FE2O 
2005 


inc 
Id 


pop 
ret 


push 
Id 
Id 


call 
ir 
inc 
dinz 
Id 
call 
jr 
Id 
Id 
add 
pop 
ret 


call 


push 
Id 
inc 
cp 
jr 
cp 


hi 
d,(hl) 


BASIC 1.0 


26 Buchstaben 
Tabelle der Befehlsworte 


nächster Buchstabe 
Tabelle der BASIC-Operatoren 


ret 
"Syntax error’ 
Fehlermeldung ausgeben 


BASIC 1.0 


E335 CD61DD cal DD61 Blank, TAB und LF überlesen 
E338 18F1 ir E32B 
E33A 4F Id c,a 
E33B 7E Id a,(hl) 
E33C 23 inc hl 
E33D CDSAFF cal FF8A Klein- in Großbuchstaben wandeln 
E340 A9 xor c 

E341 28E8 jr 2,E32B 
E343 E67F and 7F 
E345 280A jr 2,6351 
E347 1B dec de 
E348 1A Id a,(de) 
E349 13 inc de 
E34A 17 rla 

E34B 30FB jr nc,E348 
E34D 13 inc de 
E34E Ei pop hl 
E34F 18D6 jr E327 
E351 Fi pop af 
E352 37 scf 

E353 C9 ret 


Br Adressen der Befehlsworte 


E554 35E6 dw  E635 A 
E356 2AE6 dw  EB2A B 
E358 EFES dw ESEF C 
E35SA BYES dw ESBI D 
E35C 8AES dw ES8A E 
E3SE 7EES dw ESTE F 
E360 72E5 dw ES72 G 
E362 68E5 dw  E568 H 
E364 47E5 dw E547 | 
E366 43E5 dw E543 J 
E368 3FES dw ESF K 
E36A 13E5 dw E513 L 
E36C EDEA4 dw E4ED M 
E36E E2E4 dw E4E2 N 
E370 AAE4 dw E4M 0) 
E372 86E4 dw  E486 P 
E374 85E4 dw  E485 Q 
E376 3BE4 dw E43B R 
E378 FBE3 dw ES3FB S 
E37A CFE3 dw ESCF T 
E37C COE3 dw E3CO U 
E37E BBE3 dw E3B8 V 
E380 YAEI dw E3IYA w 
E382 92E3 dw E39 X 
E384 8DE3 dw E38D Y 
E386 88E3 dw E388 zZ 


KR rer Tabelle der BASIC-Befehle 
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Kr BuchstabeZ 


E388 4F 4E C5 
E38C 00 


DAZONE 


Kr Buchstabe Y 


E38D 50 4F D3 
E391 00 


48 YPOS 


Kr Buchstabe X 


E392 50 4F D3 
E396 4F D2 
E399 00 


47 XPOS 
FD XOR 


nee Buchstabe W 


E39A 52 49 54 C5 
ES9F 49 4E 44 AF D7 
E3A5 49 44 54 C8 
E3AA 48 49 4C C5 
E3AF 45 4E C4 

E3B3 41 49 D4 

E3B7 00 


D9 WRITE 
D8 WINDOW 
D7 WIDTH 
D6 WHILE 
D5 WEND 
D4 WAIT 


re Buchstabe V 


E3B8 50 4F D3 
E3BC 41 CC 
E3BF 00 


7FVPOS 
1D VAL 


tr Buchstabe U 


E3CO 53 49 4E C7 
E3C5 50 50 45 52 A4 
E3CB 4E D4 

ESCE 00 


ED USING 
1C UPPER$ 
1BUNT 


ne Buchstabe T 


ESCF 52 4F CE 
E3D3 52 4F 46 C6 
E3D8 CF 

E3DA 49 4D C5 
E3DE 48 45 CE 
E3E2 45 53 54 D2 
E3E7 45 53 D4 
E3EB 41 CE 

E3EE 41 47 4F 46 C6 
E3F4 41 C7 

E3FT 41 C2 

E3FA 00 


D3 TRON 
D2 TROFF 
ECTO 

46 TIME 
EB THEN 
7DTESTR 
7C TEST 
1ATAN 
D1 TAGOFF 
DO TAG 
EATAB 


KERERE ee Buchstabe S 


E3FB 59 4D 42 AF CC 
E401 57 41 DO 

E405 54 52 49 4E 47 A4 
E40C 54 52 A4 

E410 54 4F DO 

E414 54 45 DO 

E418 51 D2 


CF SYMBOL 
E7 SWAP 
7B STRING$ 
19STR$ 

CE STOP 

E6 STEP 

18 SQR 
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E41B 
E41D 
E422 
E425 
E42B 
E430 
E433 
E436 
E43A 


Di 

50 45 45 C4 
50 C3 

50 41 43 45 A4 
4F 55 4E 04 
49 CE 

47 CE 

41 56 C5 

00 
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175Q 

CD SPEED 
ESSPC 

16 SPACE$ 
CC SOUND 
15 SIN 

14 SGN 

CB SAVE 


rer Buchstabe 


E43B 
E43E 
E443 
E446 
E44C 
E452 
E458 
E4SF 
E464 
E46A 
E46D 
E474 
E478 
E481 
E484 


55 CE 

4F 55 4E C4 

4E C4 

49 47 48 54 A4 

45 54 55 52 CE 
45 53 55 4D C5 
45 53 54 4F 52 C5 
45 4E 55 CD 

45 4D 41 49 CE 
45 CD 

45 40 45 41 53 C5 
45 41 C4 

41 4E 44 4F 4D 49 5A C5 
41.04 

00 


CARUN 
7AROUND 
45 RND 

79 RIGHT$ 
C9 RETURN 
C8 RESUME 
C7 RESTORE 
C6 RENUM 
13 REMAIN 
C5 REM 

C4 RELEASE 
C3 READ 

C2 RANDOMIZE 
C1 RAD 


KERE Buchstabe Q 


E485 


00 


rer Buchstabe P 


E486 
E48B 
E48E 
E49 
E497 
E49B 
E49D 
E4AO 
E4A4 
E4A9 


52 49 4E D4 
4F D3 

4F 48 C5 
4C 4F 54 D2 
4C 4F D4 
09 

45 CE 

45 45 CB 
41 50 45 D2 
00 


BF PRINT 
78 POS 
BE POKE 
BD PLOTR 
BC PLOT 
44Pl 

BB PEN 
12 PEEK 
BA PAPER 


Br Buchstabe O 


E4AA 
E4AD 
E4B3 
E4B5 
E4BC 
E4C2 
E4C7 
E4CF 
E4D7 
E4DF 
E4E1 


55 D4 

52 49 47 49 CE 

D2 

50 45 4E 4F 55 D4 

50 45 4E 49 CE 

4E 20 53 DI 

4E 20 45 52 52 4F 52 20 
47 4F 09 54 4F 20 BO 
4E 20 42 52 45 41 CB 
CE 

00 


BYIOUT 

B8 ORIGIN 
FCOR 

B7 OPENOUT 
B6 OPENIN 
B5ONSQ 


B4ONERRORGO TOO 
B3 ON BREAK 
B2ON 
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Kr BuchstabeN 


E4E2 4F D4 
E4ES 45 D7 
E4E8 45 58 D4 
E4EC 00 


FENOT 
B1 NEW 
BO NEXT 


Kr Buchstabe M 


E4ED 4F 56 45 D2 
E4F2 4F 56 C5 

E4F6 AF 44 C5 

E4FA 4F C4 

E4FD 49 CE 

E500 49 44 A4 

E504 45 52 47 C5 
E509 45 4D 4F 52 D9 
ESOF 41 D8 

E512 00 


AF MOVER 
AE MOVE 
AD MODE 
FB MOD 
77MIN 

AC MID$ 

AB MERGE 
AA MEMORY 
76 MAX 


Kr Buchstabel 


ES13 4F 57 45 52 A4 
E519 4F 47 31 BO 
ESIE 4F C7 

E521 4F 43 41 54 05 
E527 4F 41 C4 

E52B 49 53 D4 

ES2F 49 4E C5 

E533 45 D4 

E536 45 CE 

E539 45 46 54 A4 
ESIE 00 


11 LOWERS$ 
10L0G10 
OFLOG 
A9LOCATE 
AB LOAD 
A7 LIST 

A6 LINE 

AS LET 
0ELEN 

75 LEFT$ 


tree Buchstabe K 


ES3F 45 D9 
E542 00 


A4KEY 


Kr Buchstabe J 


E543 4F D9 
E546 00 


0D JOY 


Kr Buchstabe | 


E547 4E D4 

ES4A 4E 53 54 D2 
ES4F 4E 50 55 D4 
E554 4E DO 

E557 4E 4B 45 59 A4 
ES5D 4E 4B 45 D9 
E562 4E CB 

E565 C6 

E567 00 


0C INT 

74 INSTR 
A3 INPUT 
OBINP 

43 INKEY$ 
OAINKEY 
A2 INK 
AtIF 


Were BuchstabeH 


E568 49 4D 45 CD 
ES6D 45 58 A4 
E571 00 


42 HIMEM 
73 HEX$ 
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Kr ka BuchstabeG 


E572 4F 09 54 CF 
E577 4F 09 53 55 C2 
E57D 00 


AO GOTO 
9F GO SUB 


rer Buchstabe F 


ES7E 52 05 
E581 4F D2 
E584 CE 
E586 49 D8 
E589 00 


09 FRE 
9E FOR 
E4FN 
08 FIX 


rer Buchstabe 


E58A 58 DO 

E58D 56 45 52 D9 
E592 52 52 4F D2 
E597 52 D2 

ESYA 52 CC 

E59D 52 41 53 C5 
ESA2 4F C6 

ESA5 4E D6 

ESAB 4E D4 

ESAB 4E 04 

ESAE 4C 53 C5 
ESB2 C9 

ESB4 44 49 D4 
E5B8 00 


07 EXP 
9D EVERY 
9C ERROR 
41 ERR 
E3ERL 
9B ERASE 
40 EOF 
9AENV 
99ENT 
98 END 
97 ELSE 
DCEI 

96 EDIT 


re Buchstabe D 


ESB9 52 41 57 D2 
ESBE 52 41 D7 

E5C2 49 CD 

E5C5 C9 

E5C7 45 40 45 54 05 
ESCD 45 C7 

ESDO 45 46 53 54 D2 
ESD6 45 46 52 45 41 CC 
ESDD 45 46 49 4E D4 
ESE3 45 C6 

ESE6 45 43 A4 

ESEA 41 54 C1 

ESEE 00 


95 DRAWR 
94 DRAW 
93 DIM 
DBDI 

92 DELETE 
91 DEG 

90 DEFSTR 
8F DEFREAL 
8E DEFINT 
8D DEF 

72 DEC$ 
8C DATA 


rer Buchstabe C 


ESEF 52 45 41 CC 

ESF4 4F DI 0505 

ESF7T 4F 4E D4 

ESFB 4C D3 

ESFE 4C AF 53 45 4F 55 D4 
E606 4C 4F 53 45 49 CE 
E60D 4C C7 

E610 4C 45 41 D2 

E615 49 4E D4 

E619 48 52 A4 

E61D 48 41 49 CE 


06 CREAL 
05C0S 

8B CONT 
8ACLS 

89 CLOSEOUT 
88 CLOSEIN 
87 CLG 

86 CLEAR 
04 CINT 
03CHR$ 

85 CHAIN 
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E622 41 D4 84 CAT 

E625 41 40 CC 83 CALL 

E629 00 

Re BuchstabeB 
E62A 4F 52 44 45 D2 82 BORDER 

E630 49 4E A4 71 BIN$ 

E634 00 

re Buchstabe A 
E635 55 54 CF 81 AUTO 

E639 54 CE 02 ATN 

E63C 53 C3 01 ASC 

E63F 4E C4 FAAND 

E642 46 54 45 80 AFTER 

E647 42 D3 00 ABS 

E64A 00 


rer BASIC-Operatoren und zugehörige Token 
E64B DE db DE 1) 


E64C F8 db F8 

E64D DC db DC 'Backslash’ 
E64E F9 db F9 

E64F 3E09BD db 3E,09,BD >= 
E652 FO db FO 

E653 3D20BE db 3D,20,BE 'a>' 
E656 FO db FO 

E657 BE db BE 5 
E658 EE db EE 

E659 BD db BD '=' 
E65A EF db EF 

E65B 3C09BE db 3C,09,BE '<>' 
E65E F2 db F2 

E65F 3C09BD db 3C,09,BD '<=' 
E662 F3 db F3 

E663 3D20BC db 3D,20,BC =’ 
E666 F3 db F3 

E667 BC db BC ’<' 
E668 Fi db Fi 

E669 AF db AF F 
E66A F7 db F7 

E66B BA db BA n 
E66C 01 db 01 

E66D AA db AM ’% 
E66E F6 db F6 

E66F AD db AD ’' 
E670 F5 db F5 

E671 AB db AB + 
E672 F4 db F4 

E673 A7 db A7 de 
E674 CO db co 

E675 00 db 00 
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A kr kr ar Programmzeiger löschen 


E676 
E677 
E67A 
E67D 
E67E 
E67F 
E680 
E681 
E682 
E683 
E686 


LEZZZZZZZZZZZZZZ ZZ; 


E687 
E68A 
E68B 
E68C 
E68D 
E68E 
E68F 
E692 
E695 
E696 
E699 
E69A 
E69B 
E69C 


LEIZZZZZZZZZZZZ ZZ 


E69D 
E6A0 
E6A2 
E6A3 
E6AS 
E6A7 
E6A8 
E6A9 
E6AA 
E6AB 
E6AC 
E6AD 
E6AE 
E6AF 
E6B0 
E6B1 
E6B2 
E6B3 
E6B4 
E6B6 
E6B7 
E6B8 
E6B9 
E6BA 


AF 
323AAE 
2AB1AE 
77 
23 
77 
23 
77 
23 
2283AE 
c9g 


3A3AAE 
B7 
c8 
05 
D5 
ES 
019DE6 
CDFFE8 
AF 
323AAE 
Ei 
DI 
01 
c9 


CD43E9 
FEO2 
D8 
FEID 
20F6 
56 
2B 
5E 
2B 
E5 
EB 
23 
23 
23 
5E 
23 
56 
E 
361E 
23 
73 
23 
72 
18E1 


xor 
Id 
Id 
Id 
inc 
Id 
inc 
Id 
inc 
Id 
ret 


Id 
or 
ret 
push 
push 
push 
Id 
call 
xor 
Id 
pop 
pop 
pop 
ret 


call 
cp 
ret 
cp 
jr 
Id 
dec 
Id 
dec 
push 
ex 
inc 
inc 
inc 
Id 
inc 
Id 
pop 
Id 
inc 
Id 


a 
(AE3A),a 

hl,(AE81) Programmstart 
(hi),a 


(h),a dreimal Null ans Programmende 


(AE83),hl Programmende 


KEEREREE HT 
a,(AE3A) 

a 

z 

bc 

de 

h 

bc,E69D Zeilennummern einsetzen 

E8FF 


a 
(AE3A),a 
h 

de 

bc 


wre Zeilenadressen durch Zeilennummer ersetzen 
E943 nächstes Element der Zeile holen 

02 Ende des Statements ? 

c ja 

1D 'Zeilenadresse’ ? 

nz,E69D nein 

d,{hl) 


hl Zeilennummer nach de 
(hl), 1E 'Zeilennummer' 


hl einsetzen 
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KR EEE Era rer Eingabezeile in Interpreterkode wandeln 


E6BC 
E6BF 
E6CO 
E6C1 
E6C2 
E6C5 
E6C6 
E6C7 
E6C9 
E6CB 
E6CC 
E6CF 
E6DO 
E6D1 


CD61DD 
B7 

37 

08 
CDO4EE 
DO 

TE 

FE2O 
2001 

23 
CDD2E6 
37 

9F 

c9 


call 
or 
scf 
ret 
call 
ret 
Id 
cp 
ir 
inc 
call 
scf 
sbc 
ret 


DD61 Blank, TAB und LF überlesen 
a 


z 
EEO4 

nc 

a,{hl) 

20 
nz,E6CC 
hl 

E6D2 Statement in Interpreterkode wandeln 


a,a 


Bra Statement in Interpreterkode wandeln 


E6D2 
E6D5 
E6D8 
E6D9I 
E6DC 
E6DD 
E6DF 
EGEO 
E6E1 

E6E4 

E6ES 
E6E6 
E6E7 
EGEA 
E6EB 
E6EE 
E6GEF 
E6FO 
E6F3 

E6F6 
E6F7 
E6F8 
E6F9 
E6FA 
E6FB 
E6FC 
E6FD 
E6FE 
E6FF 
E700 
E701 

E702 

E703 
E704 


CD87E6 
CDBBDE 
ES 
CD61DD 
B7 

2828 

C5 

D5 
210400 
09 

ES 

E5 
CDA3E7 
E5 
DCOBE7 
Di 

C1 
CDFB8F5 
CD2CF5 
EB 

D1 

73 

23 

72 

23 

Di 

73 

23 

72 

23 

C1 

EB 

E 
C3F2FF 


call 
call 
push 
call 
or 

jr 
push 
push 
Id 
add 
push 
push 
call 
push 
call 
pop 
pop 
call 
call 
ex 
pop 
Id 
inc 
Id 
inc 
pop 
Id 
inc 
Id 
inc 
pop 
ex 
pop 
Ip 


E687 

DEBB Token in Puffer ab (&AE7F) (840) 
hl 

DD61 Blank, TAB und LF überlesen 

a 

2,6707 

bc 

de 

h1,0004 

hl,bc 

hl 

hl 

E7A3 BASIC-Zeile de suchen 

hl 

c,E70B 

de 

bc Anzahl Bytes R 
F5F8 Platz im Variablenbereich reservieren 
F52C Prg- und Variablenpointer um bc erhöhen 
de,hl 

de 

(hi),e 

hl 

(hl),d 

h 

de 

(h)),e 

hl 

(hi),d 

hl 

bc 

de,hl 

hl 

FFF2 Idir 
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E707 Ei pp hl 

E708 CDYAE7 cal E79A BASIC-Zeile de suchen 

E7OB C5 push bc 

E70C E5 push hl 

E70D 09 add hl,bc 

E7OE EB ex de,hl 

E7OF 2A89AE Id hl,(AE89) Arrayende 

E712 CDCFFF cal _FFCF hl:=hl-de 

E715 44 Id b,h 

E716 4D Id cl 

E7T17 EB ex de,hl 

E718 DI pop de 

E719 78 Id a,b 

ETIA B1 or c 

E71B CAF2FF cal nz,FFF2 Idir 

ErIE Di pop de 

ETIF 210000 Id h1,0000 

E722 CDDAFF cal _FFDA be :=hl-de 

E725 C32CF5 jp F52C Prg- und Variablenzeiger um bc erhöhen 
Bere BASIC-Befehl DELETE 
E728 CD37E7 cal  E737 

E72B CD4ADD cal DD4A Ende des Statements, sonst ’Syntax error’ 
E72E CD5AE7 cal E75A 

E731 CD7AC1 cal C17A 

E734 C364C0 ip C064 zum READY-Modus 

ee zZ zz ZZ zz zZ zz zz 2 ZZ z 2 z z ZZ Z z 2 z zZ Z z z 2 zZ Z z z zZ 2 zz Z 2 ZZ 2 zZ zz 2 
E737 CDBOCE cal CEBO Zeilennummernbereich holen 

E73A E5 push hl 

E73B C5 push bc 

E73C CDCIE7 cal E7CI BASIC-Zeile de suchen 

E73F DI pop de 

E740 ES push hl 

E741 CDAS3E7 cal E7A3 BASIC-Zeile de suchen 

E744 223BAE Id (AE3B),hl 

E747 EB ex de,hl 

E748 Ei pop hl 

E749 CDCFFF cal _FFCF hl := hl -de 

E74C 223DAE Id (AE3D),hl 

E74F 3804 jr c,E755 'Improper argument’ 

E751 7C Id a,h 

E752 B5 or | 

E753 E1 pp hl 

E754 CO ret nz 

E755 1E05 Id e,05 "Improper argument’ 

E757 C394CA jp CA94 Fehlermeldung ausgeben 

LE 2 z zz z 2 2 zz z 2 Z 2 2 2 ZZ Z 2 z 2 z zz z z z zZ Z Z z z z Z z Z Z z ZZ ZZ 2 z ZZ 2 2 Z = zZ z 2 
E75A CD87E6 cal E687 Zeilenadressen durch -Nummern ersetzen 
E75D ED4B3DAE Id bc,(AE3D) 

E761 2A3BAE Id hl,(AE3B) 

E764 C30BE7 ip E70B 
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rer Zeilenadresse holen 


Nummer oder Adresse nach de 


'Zeilenadresse’ ? 
ja, fertig 
'Zeilennummer’ ? 
nein, "Syntax error" 


Zeilennummer nach hl holen 


Vergleich hl <> de 
kleiner, ab Programmstart suchen 


Rest der Zeile überlesen 

ab Adresse (hl) 

BASIC-Zeile de suchen 

nicht gefunden, ab Programmstart suchen 


'Zeilenadresse’ 


Zeilenadresse ins Programm 


Token für 'Zeilenadresse’ 


ke BASIC-Zeile de suchen 


BASIC-Zeile de suchen 
gefunden ? 

"Line does not exist’ 
Fehlermeldung ausgeben 


rer BASIC-Zeile in (de) suchen 


E767 23 inc hl 
E768 5E Id e,(h)) 
E769 23 inc hl 
E76A 56 Id d,(hi) 
E76B 23 inc hl 
E76C FEID cp 1D 
E76E 08 ret z 
E76F FEIE cp 1E 
E771 C2EAE8 ip nz,E8EA 
E774 E5 push hl 
E775 CDD6DD cl DDD6 
E778 DCBBFF cal c,FFB8 
E77B 3009 ir nc,E786 
E7T7D Ei pp hl 
ETTE E5 push hl 
E77F CDFIE8 cal ES8FI 
E782 23 inc hl 
E783 CDATE7 cal  E7A7 
E786 D49AE7 cal nc,E79A 
E789 2B dc hl 
E78A EB ex de,hl 
E7eB Ei pp hl 
E78C E5 push hl 
E78D 3E1D Id a,1D 
E78F 323AAE Id (AE3A),a 
E792 2B dee hl 
E793 72 Id (hi),d 
E794 2B decce hl 
E795 73 Id (hi),e 
E796 2B dec hl 
E797 77 Id (hl),a 
E798 E1 pp hl 
E799 C9 ret 

E79A CDASE7 cal E7A3 
E79D D8 ret c 
E79E 1E08 Id e,08 
E7AO C394CA ip CA94 
E7A3 2AB1AE Id hl,(AE81) 
E7A6 23 inc hl 
E7TA7 4E Id c,(h) 
E7AB 23 inc hl 
E7A9 46 Id b,(h]) 
ETAA 2B dee hl 
E7TAB 78 Id a,b 
E7AC B1 or c 
E7AD C8 ret z 
ETAE E5 push hl 
ETAF 23 inc hl 
E7BO 23 inc hl 
E7B1 7E Id a,(hl) 


Programmstart 


Zeilenlänge nach bc 


Programmende ? 
nicht gefunden 
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E7B2 
E7B3 
E7B4 
E7B5 
E7B6 
E7B9 
E7BA 
E7BB 
E7BC 
E7BD 
E7BE 
E7BF 


23 
66 
6F 
EB 
CDBBFF 
EB 
Ei 
3F 
DO 
C8 
09 
18E6 


inc 
Id 
Id 
ex 
call 
ex 
pop 
ccf 
ret 
ret 
add 
jr 


BASIC 1.0 


hl Zeilennummer nach hi 
h,(hi) 

l,a 

de,hl 

FFB8 Vergleich hi <> de 
de,hl 

hl 

nc größer, nicht gefunden 
z gleich, gefunden 
hl,bc Zeilenlänge addieren 
ETAT weitersuchen 


ner BASIC-Zeile de suchen 


E7C1 
E7C4 
E7C5 
E7C6 
E7C7 
E7C8 
E7C9 
E7CA 
E7CB 
E7CC 
E7CE 
E7CF 
E7DO 
E7D1 
E7D2 
E7D3 
E7D6 
E7D7 
E7D9 
E7DA 
E7DB 


E7DD 
E7DE 


KE 


E7DF 
E7E2 
E7E4 
E7E6 
E7EI 
ETEA 
E7ED 
E7FO 
E7F2 
E7F4 
E7F7 
E7F8 
E7FB 
E7FE 
E801 


2ABIAE 
23 
E5 
4E 
23 
46 
23 
78 
B1 
280F 
TE 
23 
66 
6F 
EB 
CDBBFF 
EB 
3804 
Ei 
09 
18E8 


Ei 
c9 


110A00 
2805 
FE2C 
C4EICE 
D5 
110000 
CD55DD 
3005 
FE2C 
C4EICE 
D5 
110A00 
CD55DD 
DCEICE 
CD4ADD 


Id 
inc 
push 
Id 
inc 
Id 
inc 
Id 
or 
jr 

Id 
inc 
Id 
Id 
ex 
call 
ex 
ir 
pop 
add 
jr 


pop 
ret 


Id 

ir 

cp 
call 
push 
Id 
call 
jr 

cp 
call 
push 
Id 
call 
call 
call 


hl, (AE81) Programmstart 

hl 

hl Zeilenadresse merken 
c,(hl) 

hl Zeilenlänge nach bc 
b,(hi) 

hl 

a,b 

c 

z,E7DD Programmende ? 
a,(hl) 

hl Zeilennummer nach hl 
h,(hi) 

1,a 

de,hl 

FFB8 Vergleich hl <> de 
de,hl 

c,E7DD laufende Zeilenummer größer oder gleich ? 
hl 

hl,bc Zeilenlänge addieren 
E7C5 weitersuchen 

hl hi zeigt auf Zeilenadresse 


ra BASIC-Befehl RENUM 


de,000A 10, Default für Startwert 

z,E7E9 

2C ve 

nz,CEE1 Zeilennummer nach de holen 
de 

de,0000 0 

DD55 folgt Komma ? 

nc,E7F7 nein 

2C = 

nz,CEE1 Zeilennummer nach de holen 
de 

de,000A 10, Default für Inkrement 

DD55 folgt Komma ? 

c,CEE1 ja, Zeilennummer nach de holen 
DD4A Zeilenende, sonst 'Syntax error’ 
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E804 
E805 
E806 
E807 
E808 
E809 
E80A 
E80D 
ESOE 
ESOF 
E812 
E813 
E814 
E817 
ES1A 
E81B 
ESIC 
E81D 
ESIE 
ESIF 
E820 
E821 

E822 
E823 
E824 
E825 
E827 
E828 
E829 
E82A 
E82B 
E82C 
ES2E 
E82F 
E830 
E831 

E832 
E833 
E834 
E837 
E838 


E83A 
E83D 
E840 
E841 
E842 
E843 
E844 
E845 
E846 
E847 
E848 
E849 
E84A 


Ei 

EB 

E3 

EB 

D5 

ES 
CDA3E7 
DI 

E5 
CDAS3E7 
EB 

E1 
CDBBSFF 
DAS5E7 
EB 

DI 

c1 

D5 

E5 

05 

4E 

23 

46 

78 

Bi 
2813 
2B 

09 

TE 

23 

B6 
280C 
2B 

c1 

E5 

EB 

09 

EB 
DASSE7 
E1 
18E5 


0164E8 
CDFFE8 
C1 

Ei 

DI 

C5 

E5 

4E 

23 

46 

23 

78 

Bi 


pop 
ex 
ex 
ex 
push 
push 
call 
pop 
push 
call 
ex 
pop 
call 
ip 
ex 
pop 
pop 
push 
push 
push 
Id 
inc 
Id 

Id 
or 


dec 
add 
Id 
inc 
or 


pop 
push 
ex 
add 
ex 
Ip 
pop 


Id 
call 
pop 
pop 
pop 
push 
push 
Id 
inc 
Id 
inc 
Id 


BASIC 1.0 


h 

de,hl 

(sp),hl 

de,hl 

de 

h 

E7A3 BASIC-Zeile de suchen 
de 

h 

E7A3 BASIC-Zeile de suchen 
de,hl 

hl 

FFB8 Vergleich hi <> de 
c,E755 'Improper argument’ 
de,hl 

de 

bc 

de 

h 

bc 

c,(hl) 

h 

b,(hl) 

a,b 

c 

2,E83A 

h 

hl,be 

a,(hl) 

h 

(hi) 

2,E83A 

h 

bc 

h 

de,hl 

hl,bc 

de,hl 

c,E755 'Improper argument’ 
h 

ESIF 


bc,E864 
EBFF 
bc 

h 

de 
bc 

h 
ch) 
h 
b,(hi) 
h 
a,b 
c 
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E84B 
E84D 
ES4E 
EB4F 
E850 
E851 
E852 
E853 
E854 
E855 
E856 
E857 


E859 
E8SA 
E85B 
E8SE 
E861 


E864 
E867 
E869 
E86A 
E86C 
ES6E 
ES6F 
E870 
E871 
E872 
E875 
E877 
E878 
E879 
E87A 
E87B 
E87C 
E87D 
E8TE 
EB7F 
E881 
E882 
E885 
E886 


E888 
E88B 
E88D 
E88E 
E890 
E892 
E893 
E894 
E895 
E896 
E899 


280C 
73 
23 
72 
23 
Ei 
09 
C1 
EB 
09 
EB 
18EA 


Ei 
El 
0188E8 
CDFFE8 
C364C0 


CD43E9 
FEO2 
D8 
FEIE 
20F6 
E5 

56 

2B 

5E 
CDA3E7 
300E 
2B 

EB 

Ei 

E5 

72 


CD43E9 
FEO2 
D8 
FEIE 
20F6 

E5 

56 

2B 

5E 
CDD6DD 
CD18CB 


jr 
Id 
inc 
Id 
inc 
pop 
add 
pop 
ex 
add 
ex 
jr 


pop 
pop 


call 
Ip 


call 
cp 
ret 
cp 


push 
Id 
dec 
Id 
call 
jr 
dec 
ex 
pop 
push 
Id 
dec 
Id 
dec 
Id 

Id 

Id 
pop 
jr 


call 
cp 
ret 
cp 


push 
Id 
dec 
Id 
call 
call 


BASIC 1.0 


C064 zum READY-Modus 

E943 nächstes Element der Zeile holen 
02 

c 


1E 'Zeilennummer’ 
nz,E864 


E7A3 BASIC-Zeile de suchen 


a,1D 'Zeilenadresse’ 

(AE3A),a 

h 

E864 

E943 nächstes Element der Zeile holen 
02 


c 
1E 'Zeilennummer’ 


DDD6 Zeilennummer nach hl 
CB18 "Undefined line in 
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E89C EI pp hl 

E89D 18E9 jr E888 

E8SYF 0601 Id b,01 

E8A1 2B de hl 

E8A2 CD43E9 cal E943 nächstes Element der Zeile holen 
E8A5 B7 or a 

ESA6 C8 ret z 

E8A7 FEO1 cp 01 

E8A9 2807 jr z,E8B2 

E8AB FEA1 cp A IF’ 

ESAD 20F3 jr nz,E8A2 

ESAF 04 inc b 

E8BO 18F0 ir EBA2 

E8B2 CD43E9 cal E943 nächstes Element der Zeile holen 
E8B5 FE97 cp 9 'ELSE’ 

E8B7 20EC jr nz,E8A5 

E8B9 05 dc b 

E8BA 20E6 ir nz,E8A2 

ESBC CD3FDD cal DD3F Blanks überlesen 

ESBF 04 inc b 

ESCO C9 ret 
er Testaufindizierte Variable 
E8C1 7E Id a,(hl) 

E8C2 FESB cp 5B E 

E8C4 2803 ir 2,6809 

E8C6 FE28 cp 28 a 

E8C8 CO ret nz kein Index 

E8C9 0600 Id b,00 

E8CB 04 inc  b Klammerverschachtelung erhöhen 
E8CC CD43E9 cal E943 nächstes Element der Zeile holen 
ESCF FESB cp 5B T 

E8D1 28F8 ! jr z,E8CB 

E8D3 FE28 cp 28 ( 

E8D5 28F4 jr z,E8CB 

E8D7 FESD cp 5D 7 

E8DI 280A jr z,E8E5 

E8DB FE29 cp 29 ) 

E8DD 2806 jr z,E8E5 

E8DF FEO2 cp 02 

ESE1 3807 jr c,E8BEA "Syntax error’ 

ESE3 18E7 ir EBCC 

ESES 05 dc b Klammerverschachtelung erniedrigen 
ESE6 20E4 ir nz,E8CC noch unpaarige Klammern ? 
ESEB 23 inc hl hi zeigt jetzt hinter Index 

E8E9 C9 ret 

E8EA 1E02 Id e,02 "Syntax error’ 

ESEC C394CA ip CA94 Fehlermeldung ausgeben 
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rear aa BASIC-Befehl DATA 


ESEF 0601 Id b,01 '’, Ende des Statements 
ESFI 1802 jr E8F5 
ee BASIC-Befehle ELSE, REM und ’ 
E8F3 0600 Id b,00 0, Ende der Zeile 

E8F5 2B dee hl 

ESF6 CD43E9 cal E943 nächstes Element der Zeile holen 
E8F9 B7 or a 

ESFA C8 ret z 

ESFB B8 cp b Endekennzeichen erreicht ? 
ESFC 20F8 jr nz,E8F6 nein 

ESFE C9 ret 

E8FF CDD2DD cal DDD2 aktuelle Zeilenadresse nach hi 
E902 ES push hl 

E903 2AS1AE Id hl,(AE81) Programmstart 

E906 23 inc hl 

E907 7E Id a,(hl) 

E908 23 inc hl 

E909 B6 or (h) 

E9OA 2813 jr z,E91F 

E9OC 23 inc hl 

E9OD CDCEDD cl DDCE aktuelle Zeilenadresse setzen 
E910 23 inc hl 

E911 C5 push bc 

E912 CDFYFF cal FFFY9 jp (be) 

E915 C1 pop bc 

E916 2B dee hl 

E917 CD35E9 cal EY3S 

E9IA B7 or a 

E91B 20F4 jr nz,E911 

E91D 18E7 jr E906 

E9IF E1 pp hl 

E920 C3CEDD ip DDCE aktuelle Zeilenadresse setzen 
E923 CD35E9 cl E935 

E96 B7 or a 

E97 CO ret nz 

E928 23 inc hl 

E929 7E Id a,(hl) 

EA 23 inc hl 

E92B B6 or (hl) 

E92C 59 Id &,C 

E92D CAY4CA jp 2,CA94 Fehlermeldung ausgeben 
E930 23 inc hl 

E91 54 Id d,h 

E932 5D Id e,l 

E933 23 inc hl 

E934 C9 ret 
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Eu en EZ ZI ZZ ZZ ZZ ZZ ZZ ZZ 


E935 
E938 
EIZA 
E93B 
E93D 
EIZE 
E940 
E942 


“*%* 
E943 
E946 
E947 
E949 
E94B 
E94D 
EY4F 
E951 
E953 
E955 
E957 
E959 
EISA 
E9SB 


E9SC 
EISD 
EISE 
E960 
E961 
E962 
E964 
E965 
E967 


E968 
EIGA 
EI6B 
E96D 
EIGE 
EIGF 
E970 
E971 

E972 
E973 
E974 
E976 
E977 


E978 
EITA 
E97B 
E97D 
EITF 


CD43E9 
FEO2 
D8 
FE97 
08 
FEEB 
20F3 
c9 


call 
cp 
ret 
cp 
ret 
cp 
jr 
ret 


E943 nächstes Element der Zeile holen 
02 Zeilenende ? 

c 

97 'ELSE’ 

z 

EB 'THEN 

nz,E935 


RR Nächstes Element der Zeile holen 


CD3FDD 
C8 
FEOE 
381D 
FE2O 
3829 
FE22 
2809 
FE7C 
2819 
FEFF 


call 
ret 
cp 
jr 
cp 
jr 
cp 
jr 
cp 
jr 
cp 
ret 
inc 
ret 
inc 
Id 
cp 
ret 
or 
jr 
dec 
Id 
ret 


cp 
ret 
cp 
ret 
inc 
inc 
push 
inc 
Id 
rla 
jr 
pop 
ret 


cp 
ret 
cp 
jr 

cp 


DD3F Blanks überlesen 
z 

0E 

c,E968 


2 Bir 
2,E95C String überlesen 
ui 


FF Funktion ? 


a,22 Se 


18 Ziffernkonstante ? 


19 Ein-Byte-Zahl ? 
2,E987 
1F Fließkommazahl ? 
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E981 
E983 
E984 
E985 
E986 
E987 
E988 


E989 
EIBA 
E98B 
E98C 
EYBF 
E992 
E993 
E994 
E995 


LE ZZ z z z z z z z z zz z z zz 2 


E996 
E997 
EYYA 
E9IB 
E99D 
E9IE 
E9AO 
E9A2 
EYA4 
EYAG6 
E9AB 
EYAA 
EYAB 
E9YAE 
E9BO 
E9B2 
E9B4 
E9BS 
E9B7 
E9B8 
E9BA 
EYBB 


EZ zz zZ z zz z z zz z z z zz 2 


E9BD 
E9CO 
EIC1 
E9C4 
E9C5 
E9C7 
E9C9 
EICB 
E9ICD 
EICF 
E9D2 
E9DS 


3803 
23 
23 
23 
23 
23 
cg 


C5 

D5 

ES 
0196E9 
CDFFE8 
Ei 

DI 

C1 

09 


ES 
CD43E9 
DI 
FEO2 
D8 
FEOE 
30F4 
FEO7 
28F0 
FEO8 
28EC 
EB 
CD3FDD 
FEOD 
3802 
360D 
23 
3600 
23 
3600 
EB 
18D9 


CD51DD 
EB 
2AB1AE 
EB 
381C 
FEIE 
2815 
FE1D 
2811 
CDODEA 
2130EA 
D213BD 


jr 

inc 
inc 
inc 
inc 
inc 
ret 


push 
push 
push 
Id 
call 
pop 
pop 
pop 
ret 


push 
call 
pop 
cp 
ret 
cp 
jr 
cp 
jr 
cp 
jr 
ex 
call 
cp 
jr 
Id 
inc 
Id 
inc 
Id 
ex 
jr 


call 
ex 
Id 
ex 
jr 
cp 
jr 
cp 
jr 
call 
Id 
Ip 


BASIC 1.0 


c,E986 nein, 2-Byte-Zahl 


hl entsprechende Anzahl 
hl Bytes überlesen 


bc 
de 


bc,E996 
E8FF 

hl 

de 

bc 


LEZZZZ ZZ ZZ zz z Z ZZ z Z Z zZ Z Z Z ZZ Z ZZ zZ Z ZZ ZZ zz 2 
hl 

E943 - nächstes Element der Zeile holen 
de 

02 Zeilenende ? 

c ja 

0E 

nc,E996 

07 

2,E996 

08 

2,E996 

de,hl 

DD3F Blanks überlesen 

0D 

c,E9B4 

(hi), OD 

hl 


areekkerkerker ker eee BASIC-Befehl RUN 
DD51 Ende des Statements ? 

de,hl 

hl,(AE81) Programmstart als Default 
de,hl 

c,E9E3 ja, Ende des Statements 

1E Zeilennummer ? 

2,E9EO 

1D Zeilenadresse ? 

z,E9EO 

EAOD 

hl,EA3O Programm von Kassette laden 
nc,BD13 MC BOOT PROGRAM 
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E9D8 CDABEB 
E9DB 2AB1AE 
E9IDE 1811 


EIEO CD67E7 
EIE3 D5 
E9E4 CDADD2 
E9E7T CD8CC1 
EIEA CD7AC1 
EIED CD5ECI 
E9FO Ei 
EIFI 23 
E9F2 Fi 
E9FI3 C393DD 


call 
Id 
jr 


call 
push 
call 
call 
call 
call 
pop 
inc 
pop 
Ip 


EBA8 
hl,(AE81) 
EIFI 


E767 
de 
D2AD 
C18C 
C17A 
C15E 
hl 

hl 

af 
DD93 


BASIC 1.0 


Filetyp testen 
Programmstart 


Zeilenadresse holen 
Kassetten-l/O abbrechen 


CLEAR 


zur Interpreterschleife 


ra BASIC-Befehl LOAD 


E9F6 CDODEA 
E9FY 3006 

E9FB CDABEB 
E9FE C364C0 


EA0O1 ES 
EA02 CDO1F5 
EAO5 CD30EA 
EA08 CA6BCB 
EAOB E1 
EAOC C9 


EAOD CD8FEB 
EA10 ES60E 
EA12 EEO2 
EA14 280B 
EA16 CD4ADD 
EA19 CD8CC1 
EAIC CD6BC1 
.„EAIF 37 
EA2O C9 


EA21 CD55DD 
EA24 DCIICE 
EA27 EDS33FAE 
EA2B CD4ADD 
EAE B7 
EAAF C9 


EA30 2A3FAE 
EA33 CD83BC 
EA36 ES 
EA37 DC7ABC 
EA3A E1 
EASB C9 


call 
ir 
call 
IP 
push 
call 
call 
ip 
pop 
ret 


call 
and 
xor 
jr 
call 
call 
call 
scf 
ret 


call 
call 
Id 
call 
or 
ret 


Id 
call 
push 
call 
pop 
ret 


EAOD 
nc,EA01 
EBAB 
0064 


hl 

F501 
EA3O0 
2,CB6B 
hl 


EB8F 
0E 

02 
z,EA21 
DD4A 
C18C 
C16B 


DD55 
c,CE91 
(AE3F),de 
DD4A 

a 


hi,(AE3F) 
BC83 

hl 
c,BC7A 
hl 


zum READY-Modus 


auf Platz im Speicher prüfen 
Programm laden 


Name holen, File öffnen 
Filetyp 


Ende des Statements, sonst "Syntax error’ 


folgt Komma ? 

ja, 16-Bit-Wert holen 

Startadresse 

Ende des Statements, sonst "Syntax error’ 


Startadresse 
CAS IN DIRECT 


CAS IN CLOSE 
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rer BASIC-Befehl CHAIN 


EA3C EEAB xoro AB 'MERGE’ 

EA3E 2004 ir nz,EA44 

EA40 CDIFDD cal DD3F Blanks überlesen 
EA43 37 scf 

EA44 9F sbcc aa 

EA45 3241AE Id (AE41),a Flag für MERGE 

EA48 CD8FEB cal EBSF Name holen, File öffnen 
EA4B 110000 Id de,0000 Defauitwert Null für Startzeile 
EA4E CD55DD cal DD55 folgt Komma ? 

EA51 3006 ir nc,EA59 nein 

EAS3 7E Id a,(hl) 

EA54 FE2C cp 2C 2 

EA56 C491CE cal nz,CE91 16-Bit-Wert holen 
EA59 D5 push de als Startzeile merken 
EASA CD55DD cl DD55 folgt Komma ? 

EASD 3E00 Id a,00 

EASF 3009 ir nc,EA6A nein 

EA61 CD37DD cal DD37 Test auf nachfolgendes Zeichen 
EA64 9 dd 9 'DELETE’ 

EA65 CD37E7 cal  E737 Zeilenbereich löschen 
EA68 3EFF Id a,FF Flag für DELETE setzen 
EA6A F5 push af 

EA6B CD4ADD cal DD4A Ende des Statements, sonst 'Syntax error’ 
EA6E CDIBFB cal FBiB 

EA71 CD3EFC cal FC3E Garbage Collection 
EA74 CD89EI cal E989 

EA77 CDD2D5 cal D5D2 Funktionen FN löschen 
EA7A CD49F5 cal F549 

EATD Fi pop af 

EATE C5 push bc 

EATF D5 push de 

EA80 B7 or a DELETE ? 

EAB1 C45AE7 cal nz,E75A ja, Zeilen löschen 
EA84 3A41AE Id a,(AE41) Flag für MERGE 

EA87 B7 or a 

EA88 2008 jr nz,EAQ ja, CHAIN MERGE 
EABA CD6BC1 cal Ci6B Variablen löschen 
EA8D CDABEB cal EBA8 Filetyp prüfen 

EA9O 1803 jr EA95 

EA92 CDIDEB cal EBID Filetyp testen 

EA95 DI pop de Länge der Variablen 
EA96 C1 pop be Länge des Stringbereichs 
EA97 CD7IF5 cal F571 Strings verschieben 
EAQA DI pop de Startzeile holen 

EA9B 2AB1AE Id hl,(AE81) Programmstiart als Default 
EAYE 7A Id a,d 

EAYF B3 or e keine Startzeile 

EAAO C8 ret z 

EAA1 CDYAE7 cal E79A BASIC-Zeile de suchen 
EAA4 2B dc hl 

EAAS5 C9 ret 
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tt BASIC-Befehl MERGE 


EAA6 


EAA9 CD4ADD 


EAAC 
EAAF 
EAB2 


LEZZZZZZZZZZZZZ ZZ 


EABS 
EAB8 
EABB 
EABE 
EABF 
EAC2 
EAC3 
EAC6 
EAC7 
EACA 
EACB 
EACE 
EACF 
EADO 
EAD3 
EAD4 
EADS 
EAD6 
EAD9I 


CD8FEB 


CDECC1 
CDIDEB 
C364C0 


CD7AC1 
CD87E6 
2AB3AE 
EB 

2AB1AE 


EB 
2A8DBO 
EB 

2B 
CDFSFF 
13 

EB 

E5 
2AB3AE 
112000 


EADC 19 
EADD EB 


EADE 
EADF 
EAE2 
EAE4 
EAE7 
EAE8 
EAEA 
EAEB 
EAEE 
EAEF 
EAFO 
EAFI 

EAF2 
EAF4 
EAF5 
EAF6 
EAF7 
EAF8 
EAF9 
EAFC 
EAFD 
EAFF 
EBO1 

EBO4 


E 
CDBöFF 
3850 
CD84EB 
B3 

2830 

D5 
CD84EB 
ES 

TE 

23 

B6 

2812 

23 

7E 

23 

66 

6F 
CDBSFF 
E 

280F 
3006 
CD48EB 
18E8 


call 
call 
call 
call 
Ip 


call 
call 
Id 
ex 
Id 
inc 
Id 
ex 
call 
ex 
Id 
ex 
dec 
call 
inc 
ex 
push 
Id 
Id 
add 
ex 


EB8F Name holen, File öffnen 

DD4A Ende des Statements, sonst "Syntax error’ 
C18C Variablen löschen 

EB9D Filetyp testen 

C064 zum READY-Modus 


zz z zz zz zz 2 2 zz z z 2 zz zz z zZ ZZ zz ZZ 2 2 ZZ zZ ZZ 2 
C17A 

E687 

hl, (AE83) Programmende 

de,hl 

hl,(AE81) Programmstart 

hl 


(AE83),hl Programmende 
de,hl 

FFDA bc:=hl-de 

de,hl 

hl,(B08D) Beginn der Strings 
de,hl 

hl 

FFF5 Iddr 

de 

de,hl 

hl 

hl,(AE83) Programmende 
de,0020 

hl,de 

de,hl 

hl 

FFB8 Vergleich hi <> de 
c,EB34 "Memory full’ 
EB84 


e 
z,EB1A 


FFB8 Vergleich hi <> de 
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EB06 
EB07 
EB08 
EBOB 
EBOC 


EBOE 
EBOF 
EB12 
EB13 
EB14 
EB15 
EB16 
EB17 
EB18 


EBIA 
EB1B 
EBIC 
EB1D 
EBIE 
EB2O 
EB23 


EB25 
EB28 
EB2A 
EB2B 
EB2D 
EB2E 
EB31 


EB34 
EB36 


EB38 
EB3A 
EB3B 
EB3E 
EB41 
EB44 
EB45 


EB48 
EB49 
EB4A 
EB4B 
EBAC 
EB4D 
EB4E 
EB51 

EB52 
EB53 
EB56 
EB57 


E 

E3 
CD5EEB 
Ei 
18C7 


E3 
CD5EEB 
E 

5E 

23 

56 

2B 

19 
18BB 


TE 

23 

B6 

2B 
2805 
CD48EB 
18F5 


2AB3AE 
3600 
23 
3600 
23 
2283AE 
C3B1D5 


1E07 
1802 


1618 
D5 
CDADD2 
CD8CC1 
CD6BC1 
DI 
C394CA 


05 
D5 
ES 
4E 
23 
46 
2AB3AE 
EB 
Ei 
CDF2FF 
EB 
2283AE 


pop 


call 
pop 


ex 
call 
pop 
Id 
inc 
Id 
dec 
add 


Id 
inc 
or 
dec 


call 
jr 


Id 
Id 
inc 
Id 
inc 
Id 
Ip 


jr 


Id 
push 
call 
call 
call 
pop 
Ip 
push 
push 
push 
Id 
inc 
Id 

Id 
ex 
pop 
call 
ex 
Id 


h 
(sp),hl 
EBSE 
h 
EADS 


(sp),hl 
EBSE 
h 


e,(hl) 
h 


d,{h) 
h 

hl,de 
EAD5 


a,(h)) 
hl 

(h) 

hl 
2,EB25 


EB48 
EBIA 


hi,(AE83) 
(h1),00 

hl 

(h),00 

hl 


(AE83),h 
D5B1 


e,07 
EB3A 


e,18 
de 
D2AD 
C18C 
C16B 
de 
CA94 


bc 

de 

h 

c,(hl) 

h 

b,(hi) 
hl,(AE83) 
de,hl 

h 

FFF2 
de,hl 
(AE83),h) 


BASIC 1.0 


Programmende 


Programmende 
"Memory full’ 
'EOF met’ 


Kassetten-l/O abbrechen 


Fehlermeldung ausgeben 


Programmende 


Idir 


Programmende 
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EB5A EB ex de,hl 

EB5B Di pop de 

EB5C C1 pop be 

EB5D C9 ret 

EB5E D5 push de 

EB5F EB ex de,hl 

EB60 2A83AE Id hl,(AE83) Programmende 
EB63 73 Id (hl),e 

EB64 23 inc hl 

EB65 72 Id (hi),d 

EB66 23 inc hl 

EB67 EB ex de,hl 

EB68 E3 ex (sp),hl 

EB69 EB ex de,hl 

EB6A 73 Id (hl),e 

EB6B 23 inc hl 

EB6C 72 Id (hi),d 

EB6D 23 inc hl 

EB6E Di pop de 

EB6F 1B dec de 

EB70 1B dec de 

EB71 1B dec de 

EB72 1B decc de 

EB73 7A Id a,d 

EB74 B3 or e 

EB75 2809 jr z,EB80 

EB77 CD80BC cal BC80 CAS IN CHAR 
EB7A 30BC jr nc,EB38 'EOF met’ 
EB7C 77 Id (hl),a 

EB7D 23 inc hl 

EB7E 18F2 jr EB72 

EB80 2283AE Id (AE83),hl Programmende 
EB83 C9 ret 

EB84 CD80BC cal BC80 CAS IN CHAR 
EB87 5F Id e,a 

EB88 DC80BC cal c,BC80 CASIN CHAR 
EB8B 30AB jr nc,EB38 'EOF met’ 
EB8D 57 Id d,a 

EB8E C9 ret 

EB8F CDADD2 cal D2AD Kassetten-l/O abbrechen 
EB92 CD6AD2 cal D26A Name holen, File öffnen 
EB95 3242AE Id (AE42),a Filetyp merken 
EB98 ED4343AE Id (AE43),bc Filelänge merken 
EBIC C9 ret 

EB9D 3A42AE Id a,(AE42) Filetyp 

EBAO B7 or a 

EBA1 CABS5EA ip z,EAB5 

EBA4 FE16 cp 16 ASCII-File ? 
EBA6 200B jr nz,EBB3 File type error’ 
EBA8 3A42AE Id a,(AE42) Filetyp 
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EBAB FE16 cp 16 ASCII-File ? 

EBAD 2840 jr z,EBEF 

EBAF E6FE and FE Bit 0 (geschütztes File) löschen 
EBB1 2805 jr z,EBB8 

EBB3 1E19 Id e,19 File type error’ 

EBB5 C394CA ip CAY4 Fehlermeldung ausgeben 
EBB8 CD7ACI cal C17A 

EBBB 2AB1AE Id hl,(AE81) Programmstart 

EBBE 23 inc hl 

EBBF EB ex de,hl 

EBCO 2A8DBO Id hl,(B08D) Beginn der Strings 

EBC3 0180FF Id bc,FF80 

EBC6 09 add hl,be 

EBC7 ED4B43AE Id bc,(AE43) Filelänge 

EBCB CDCFFF cal _FFCF hl:=hl-de 

EBCE D4BEFF cal nc,FFBE Vergleich hl <> bc 

EBD1 DA34EB jp c,EB34 "Memory full’ 

EBD4 60 Id h,b 

EBD5 69 Id I,c 

EBD6 19 add hi,de 

EBD7 2283AE Id (AE83),hl Programmende 

EBDA 3A42AE Id a,(AE42) Filetyp 

EBDD IF ra geschützt ? 

EBDE 9F sbc aa 

EBDF 3245AE Id (AE45),a Flag für geschütztes Programm setzen 
EBE2 EB ex de,hl 

EBE3 CD83BC cal BC83 CAS IN DIRECT 

EBE6 CA38EB jp 2,EB38 'EOF met’ 

EBE9 CDB1D5 cal D5B1 

EBEC C398D2 ip D298 CLOSEIN 

EBEF CD7AC1 cal C17A 

EBF2 CDCBDD cal DDCB aktuelle Zeilenadresse auf Null 
EBF5 CD4CCA cal CAAC Zeile von Kassette in Eingabepuffer 
EBF8 D298D2 ip nc,D298 CLOSEIN 

EBFB CDBCE6 cal E6BC Zeile in Interpreterkode wandeln 
EBFE 38F5 jr c,EBF5 kein Direkt-Befehl ? 

ECOO 1615 Id e,15 "Direct command found’ 

ECO2 2802 jr z,EC06 

ECO4 1E06 Id 8,06 'Overflow’ 

ECO6 C394CA ip CA94 Fehlermeldung ausgeben 
ee BASIC-Befehl SAVE 
EC09 CDADD2 cal D2AD Kassetten I/O abbrechen 
ECOC CD56D2 cal D256 OPENOUT 

ECOF 0600 Id b,00 Filetyp 0, BASIC-Programm 
EC11 CD55DD cl DD55 auf Komma prüfen 

EC14 3029 jr nc,EC3F 

EC16 CD37DD cal DD37 Test auf nachfolgendes Zeichen 
EC19 0D db 0D 'numerische Variable’ (A,B,P) 
ECIA 23 inc hl 

EC1B 23 inc hl 

ECIC 7E Id a,(hl) Variablenname 

ECI1D 23 inc hl 
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DF Klein- in Großbuchstabe wandeln 
p,EC38 "Syntax error’ 

hl 

hl,EC2C Basisadresse der Tabelle 

FF93 Tabelle durchsuchen 

(sp),hl 


DEZ ZZ zZ z zz z z zZ z z zz z z 2 z Z z z z z z ZZ z Z z Z z z z Z z z ZZ z Z z z 2 2 2 z ZZ z 2 2 z zz > 


ECIE ES6DF and 
EC20 F238EC ip 
EC23 E5 push 
EC24 212CEC Id 
EC27 CDY3FF call 
EC2A E3 ex 
EC2B C9 ret 
EC2C 03 db 
EC2D 38EC dw 
EC2F C1 db 
EC30 87EC dw 
EC32 C2 db 
EC33 5CEC dw 
EC35 DO db 
EC36 3DEC dw 
LE ZZ zz z Z z zz zz ZZ Z zz 3 
EC38 1E02 Id 
EC3A C394CA ip 
zz zz ZZ z 2 zz 2 ZZ zz zz; 
EC3D 0601 Id 
EC3F CD4ADD call 
EC42 E5 push 
EC43 05 push 
EC44 CD87E6 call 
EC47 CD89EI call 
EC4A 2AB1AE Id 
EC4D 23 inc 
EC4E EB ex 
EC4F 2AB3AE Id 
EC52 CDCFFF call 
EC55 EB ex 
EC56 Fi pop 
EC57 010000 Id 
EC5A 1823 jr 

LE ZZ zZ zz zz zz zZ 2 zZ 2 zo: 
EC5C 0602 Id 
EC5E CD37DD call 
EC61 2C db 
EC62 CDYIICE call 
EC65 D5 push 
EC66 CD37DD call 
EC69 2C db 
EC6A CDIICE call 
EC6D D5 push 
EC6E CD55DD call 
EC71 110000 Id 
EC74 DCYICE call 
EC77 D5 push 
EC78 CD4ADD call 
EC7B 78 Id 


03 Anzahl der Tabelleneinträge 

EC38 Rücksprungadresse wenn nicht gefunden 
c1 A 

EC87 

C2 '’B 

ECE5 

DO ;R: 

EC3D 

EZ zZ z zz z z z z z z z z z z z z z z z z Z z zz z zz 2 zZ ZZ zz = 2 
6,02 "Syntax error’ ; 
CA94 Fehlermeldung ausgeben 
KR SAVE,P 
b,01 Filetyp 1, protected 

DD4A Ende des Statements, sonst "Syntax error' 
hl 

bc 

E687 

E989 

hl, (AE81) Programmstart 

hl 

de,hl 

hl,(AE83) Programmende 

FFOF hl:=hl-de 

de,hl 

af 

bc,0000 

EC7F 

KR re SAVE,B 
b,02 Filetyp 2, binär 

DD37 Test auf nachfolgendes Zeichen 

2C ” 

CE91 16-Bit-Wert holen, Startadresse 

de 

DD37 Test auf nachfolgendes Zeichen 

20: ” 

CE91 16-Bit-Wert holen, Endadresse 

de 

DD55 folgt Komma ? 

de,0000 Default Null 

c,CE91 ja, 16-Bit-Wert holen, Einsprungadresse 
de 

DD4A Ende des Statements, sonst "Syntax error’ 
a,b Filetyp 
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EC7C C1 pop be Einsprungadresse 

EC7D DI pop de Endadresse 

EC7E E3 ex (sp),hl Startadresse 

EC7F CDI8BC cal BC98 CAS OUT DIRECT 

EC82 D26BCB ip nc,CB6B Unterbrechung durch 'ESC’ ? 
EC85 1817 jr ECYE CLOSEOUT 
Are SAVEA 
EC87 CD4ADD cal DD4A Ende des Statements, sonst "Syntax error’ 
EC8A ES push hl 

EC8B 3E09 Id a,09 9 

EC8D CDA2C1 cal CIA2 Ausgabe auf Kanal 9, Kassette 
EC90 F5 push af 

EC91 010100 Id bc,0001 1 

EC94 11FFFF Id de,FFFF bis 65535 

EC97 CDODE1 cal E1OD Zeilen listen 

EC9A Fi pop af 

ECYB CDA2CI cal CIA2 Ausgabe wieder auf Default 
ECYE CDA1D2 cal D2AI1 CLOSEOUT 

ECA1 Ei pp hl 

ECA2 C9 ret 

ECA3 CD44ED cal ED44 

ECA6 2005 jr nz,ECAD 

ECA8 CD61DD cal DD61 Blank, TAB und LF überlesen 
ECAB 182F jr ECDC 
KETTE 
ECAD FE26 cp 26 & 

ECAF 281C jr z,ECCD 

ECB1 CD7FFF cal FF7F Test auf numerisch 

ECB4 3826 jr c,ECDC 

ECB6 CDIOFF cal FF1O Typ auf Integer 

ECB9 CDF3FE cal FEF3 Variable löschen 

ECBC 37 sch 

ECBD C9 ret 

ECBE E5 push hl 

ECBF CDC6EC cal ECC6 

ECC2 DI pop de 

ECC3 DB ret c 

ECC4 EB ex de,hl 

ECC5 C9 ret 

ECC6 1600 Id d,00 

ECC8 7E Id a,(hl) 

ECC9 FE26 cp 26 & 

ECCB 200F ir nz,ECDC 

ECCD CDICEE cal EEIC 

ECDO EB ex de,hl 

ECD1 F5 push af 

ECD2 CDODFF cal FFOD Integerzahl hi übernehmen 
ECD5 Fi pop af 

ECD6 EB ex de,hl 

ECD7 D8 ret c 
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ECD8 C8 
ECDI CIF3CA 


ECDC ES 
ECDD 7E 
ECDE 23 
ECDF FE2E 
ECEI CC61DD 
ECE4 CD83FF 
ECE7 E1 
ECE8 3806 
ECEA TE 
ECEB EE2E 
ECED CO 
ECEE 23 
ECEF C9 


ECFO CDIOFF 
ECF3 D5 
ECF4 010000 
ECF7 1146AE 
ECFA CD53ED 
ECFD FE2E 
ECFF 200B 
EDO1 CDCYED 
EDO4 CDIYFF 
ED07 0C 
ED08 CD53ED 
EDOB 0D 
EDOC F5 
EDOD 3EFF 
EDOF 12 
ED10 Fi 
ED11 CD77ED 
ED14 DI 
ED15 SF 
ED16 ES 
ED17 D5 
ED18 2146AE 
ED1B CDCEED 
EDIE DI 
EDIF CD27FF 
ED22 3008 
ED24 ES 
ED25 42 
ED26 CDO6FE 
ED29 Ei 
ED2A 3811 
ED2C 7A 
ED2D 4E 
ED2E 23 
ED2F CD94BD 
ED32 7B 
ED33 CD55BD 
ED36 EB 


ret 
Ip 
push 
Id 
inc 
cp 
call 
call 
pop 
jr 

Id 
xor 
ret 
inc 
ret 


call 
push 
Id 

Id 
call 


cp 


call 
call 
inc 
call 
dec 
push 
Id 

Id 
pop 
call 
pop 
Id 
push 
push 


call 
pop 
call 
jr 
push 


call 
pop 
jr 

Id 
Id 
inc 
call 


call 
ex 


BASIC 1.0 


2E a 
2,DD61 Blank, TAB und LF überlesen 
FF83 Test auf Ziffer 


FF10 Typ auf Integer 


FF19 Typ auf Real’ 


de 

hl,AE46 

EDCE 

de 

FF27 Test auf String 
nc,ED2C 

hl 

b,d 

FEO6 


BD94 4-Byte-Integerx256 nach Fließkomma 


BD55 Zahl mit 10fa multiplizieren 
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ED37 
ED3A 
ED3D 
ED3F 
ED40 
ED41 


ED44 
ED47 
ED48 
ED4A 
ED4C 
ED4D 
ED4E 
ED50 
ED51 

ED52 


ED53 
ED54 
ED57 
ED58 
EDSB 
EDSD 
ED5E 


ED61 

ED62 
ED63 
ED65 
ED66 
ED67 
ED69 
ED6A 
ED6B 
ED6D 
ED6F 
ED70 
ED71 

ED72 
ED74 
ED75 


ED77 
ED79 
ED7B 
ED7C 
ED7F 
ED82 
ED85 
ED88 
ED8A 
ED8B 
ED8C 


CDI6FF 
DC3DBD 
3EOA 

Ei 

D8 
CIFICA 


CD61DD 
23 

16FF 
FE2D 
08 

14 

FE2B 
C8 

2B 

cg 


E5 
CD61DD 
23 
CD83FF 
3804 

Ei 
C38AFF 


E3 

E 
D630 
12 
BO 
2807 
78 
04 
FEOC 
3001 
13 
79 
B7 
28DF 
0C 
18DC 


FE45 
2010 

E5 
CDCIED 
CD44ED 
CC61DD 
CD83FF 
3804 

Ei 

AF 

181E 


call 
call 
Id 
pop 
ret 
Ip 


call 
inc 
Id 
cp 
ret 
inc 
cp 
ret 
dec 
ret 


push 
call 
inc 
call 
ir 


Ip 


ex 
pop 
sub 
Id 
or 
jr 

Id 
inc 
cp 
jr 
inc 
Id 
or 
jr 
inc 


cp 

jr 
push 
call 
call 
call 
call 
jr 
pop 
xor 


BASIC 1.0 


FF16 Variablentyp auf Fließkomma setzen 
c,BD3D Variable von (de) nach (h|) 

a,0A 

hl 

c 

CAF3 


DD61 Blank, TAB und LF überlesen 
hl 

d,FF 

2D ’ 

z 

d 

2B + 


hl 


DD61 Blank, TAB und LF überlesen 


FF83 Test auf Ziffer 


FFBA Klein- in Großbuchstaben wandeln 


nc,ED70 
de 
a,C 


a 
2,ED53 
c 

ED53 


45 'E 

nz,ED8B 

hl 

EDCY 

ED44 

2,DD61 Blank, TAB und LF überlesen 
FF83 Test auf Ziffer 
c,ED8E 

hl 

a 

EDAC 
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ED8E E3 
ED8F E1 
ED9O CDIIFF 
ED93 D5 
ED94 C5 
ED95 CD35EE 
ED98 3009 
ED9A 7B 
EDI9B D664 
EDID 7A 
EDYIE DEOO 
EDAO 7B 
EDA1 3802 
EDA3 3E7F 
EDA5 C1 
EDA6 DI 
EDA7 14 
EDA8 2002 
EDAA 2F 
EDAB 3C 
EDAC C680 
EDAE SF 
EDAF 78 
EDBO D60C 
EDB2 3001 
EDB4 AF 
EDB5 91 
EDB6 3009 
EDB8 83 
EDBI 3801 
EDBB AF 
EDBC FEO1 
EDBE CE80 
EDCO C9 


EDC1 83 
EDC2 3002 
EDC4 3EFF 
EDC6 D680 
EDC8 C9 


EDC9 CD61DD 
EDCC 23 
EDCD C9 


EDCE EB 
EDCF 2158AE 
EDD2 010105 
EDD5 2B 
EDD6 3600 
EDD8 10FB 
EDDA 1A 
EDDB FEFF 
EDDD C8 
EDDE 77 


ex 
pop 
call 
push 
push 
call 
jr 

Id 
sub 
Id 
sbc 
Id 
jr 

Id 
pop 
pop 
inc 
jr 
cpl 
inc 
add 
Id 
Id 
sub 
jr 
xor 
sub 
jr 
add 
jr 
xor 
cp 
adc 
ret 


add 
jr 


sub 
ret 


call 
inc 
ret 


ex 
Id 
Id 
dec 
Id 
dinz 
Id 
cp 
ret 
Id 
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FF19 Typ auf 'Real’ setzen 


a 
a,80 

e,a 

a,b 

0C 
nc,EDB5 
a 


c 
nc,EDC1 
a,e 
c,‚EDBC 
a 

01 

a,80 


a,e 
nc,EDC6 
a,FF 

80 


DD61 Blank, TAB und LF überlesen 
hl 


de,hl 
hl,AE58 
bc,0501 
hl 
(hi),00 
EDD5 
a,(de) 
FF 

z 

(hl),a 
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EDDF 
EDE2 
EDE3I 
EDE4 
EDE6 
EDE7 
EDE8 
EDEI 
EDEB 
EDEC 
EDED 
EDEE 
EDEF 
EDFO 
EDFI 

EDF2 
EDF3 
EDF4 
EDF5 
EDF6 
EDF7 
EDF8 
EDF9 
EDFA 
EDFC 
EDFD 
EDFE 
EEOO 
EEO1 

EEO2 


EEO4 
EEO5 
EEO6 
EE09 
EEOA 
EEOD 
EEOE 
EEOF 
EE11 
EE12 
EE13 
EE15 
EE17 
EE18 
EE19 
EEIA 
EE1B 


EEIC 
EEID 
EE20 
EE23 
EE25 
EE27 


2153AE 
13 
1A 
FEFF 
C8 
D5 
41 
1600 
E5 
5E 
62 
6B 
29 
29 
19 
29 
5F 
19 
5D 
7C 
Ei 
73 
23 
10EF 
Di 
B7 
28DF 
77 
0C 
18DB 


C5 

E5 
CD35EE 
EB 
CDODFF 
EB 

C1 
3006 
7A 

B3 
C6FF 
3803 
50 

59 

EB 

C1 

c9 


23 
CD61DD 
CD8AFF 
0602 
FES8 
2806 


Id 
inc 
Id 
cp 
ret 
push 
Id 
Id 
push 
Id 
Id 
Id 
add 
add 
add 
add 
Id 
add 
Id 
Id 
pop 
Id 
inc 
dinz 
pop 
or 
ir 

Id 
inc 


push 
push 
call 
ex 
call 
ex 
pop 
jr 

Id 
or 
add 
jr 

Id 

Id 
ex 
pop 
ret 


inc 
call 
call 
Id 
cp 


hl,AE53 


nc,EE17 


a,d 
e 
a,FF 


c,EEIA 


d,b 
&,C 
de,hl 
bc 


hl 
DD61 
FF8A 
b,02 
58 
z,EE2F 


BASIC 1.0 


mal 10 


plus nächste Ziffer 


Integerzahl hi übernehmen 


Blank, TAB und LF überlesen 
Klein- in Großbuchstaben wandeln 
Basis 2, binär 

x 
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EE29 0610 
EE2B FE48 
EE2D 2004 
EE2F 23 
EE30 CD61DD 
EE33 1802 


EE35 060A 
EE37 EB 
EE38 CD61EE 
EE3B 2600 
EE3D 6F 
EE3E 301E 
EE40 0EO0 
EE42 CD61EE 
EE45 3014 
EE47 D5 
EE48 1600 
EE4A SF 
EE4B D5 
EE4C 58 
EE4D CDBEBD 
EE50 DI 
EE51 3803 
EES3 19 
EES4 3002 
EE56 OEFF 
EE58 DI 
EES9 18E7 


EESB 79 
EESC FEO1 
EESE EB 
EESF 78 
EE60 C9 


Id 
cp 
jr 
inc 
call 
jr 


Id 
ex 
call 
Id 
Id 
jr 


call 
jr 
push 
Id 

Id 
push 


call 
pop 
Jr 
add 
jr 
Id 
pop 
jr 


Id 
cp 
ex 
Id 
ret 


b,10 

48 
nz,EE33 
hl 

DD61 
EE37 


b,0A 
de,hl 
EE61 
h,00 

l,a 
nc,EE5E 
c,00 
EE61 
nc,EE5B 
de 

d,00 

e,a 

de 

e,b 
BDBE 
de 
c,EE56 
hi,de 
nc,EE58 
c;FF 

de 
EE42 


a,C 
01 
de,hl 
a,b 


BASIC 1.0 


Basis 16, hex 
H 


Blank, TAB und LF überlesen 


Basis 10, dezimal 


(Hex-) Ziffer nach binär wandeln 


(Hex-) Ziffer nach binär wandeln 


Basis des Zahlensystems 
Integermultiplikation ohne Vorzeichen 


Br (Hex) Ziffer nach binär wandeln 


EE61 1A 
EE62 13 
EE63 CD83FF 
EE66 380A 
EE68 CD8AFF 
EE6B FE41 
EE6D 3F 
EE6E 3005 
EE70 D607 
EE72 D630 
EE74 B8 
EE75 D8 
EE76 1B 
EE77 AF 
EE78 C9 


Id 
inc 
call 
jr 
call 
cp 
ccf 
ir 
sub 
sub 
cp 
ret 
dec 
xor 
ret 


a,(de) 
de 
FF83 
c,EE72 
FF8A 
41’ 


nc,EE75 
07 

30’ 

b 

c 

de 

a 


Zeichen holen 

Test auf Ziffer 

ja 

Klein- in Großbuchstaben wandeln 
N 

kleiner 'A’, Fehler 
A-(9'+1) 

0 

kein Fehler ? 


Carry löschen 
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LEI ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ Zeilennummer ausgeben 


EE79 CDODFF cal FFOD Integerzahl in h| übernehmen 
EE7C CD82EE cal EE82 in ASCII-Darstellung umwandeln 
EE7F C341C3 ip 0341 String ausgeben 


er Integerzahlnach ASCII wandeln 
EE82 D5 push de 


EE83 C5 push bc 

EE84 CDC3FC cal FCC3 

EE87 AF xor a 

EE88 CDATEE cal EEA7 

EE8B 23 inc hl 

EE8C C1 pop bc 

EE8D DI pop de 

EE8E C9 ret 

Dee een Ze Ze m m ZZ ee m ZZ ZZ ZZ 2 zz zz 2 zZ zz Z zz z zz 2 ZZ ZZ 2 zZ z zZ = 3 
EE8F D5 push de 

EE90 C5 push bc 

EE91 AF xor a Null 

EE92 CDYFEE cal EE9F Zahl in formatierten String wandeln 
EE95 C1 pop bc 

EE96 DI pop de 

EE97 7E Id a,(hl) 

EE98 FE2O cp 20 ”% 

EEYA CO ret nz 

EE9B 23 inc hl 

EE9IC C9 ret 


euren nun nn nn nn ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ ZZ zo 


EE9D 3E40 Id a,40 


EE9F 226EAE Id (AE6E), hl Zahl in formatierten String wandeln 
EEA2 F5 push af 
EEA3 CDBIFC cal FCB3 
EEA6 Fi pop af 
EEA7 C5 push bc 
EEAB 57 Id d,a 
EEA9 D5 push de 
EEAA EB ex de,hl 
EEAB 2168AE Id hl,AE68 
EEAE 3600 Id (hl),00 
EEBO 2270AE Id (AE7O),hl 
EEB3 CDB7FO cal FOB7 
EEB6 Di pop de 
EEB7 CDD4EE cal EED4 
EEBA CD3DFO cal FO3D 
EEBD 58 Id e,b 
EEBE C1 pop be 
EEBF 7B Id a,e 
EECO B7 or a 
EEC1 CC50FO cal z,F050 
EEC4 CDS5FFO cal FOSF 
EEC7 CD69FO cal F069 
EECA CD7CFO cal FO7C 
EECD 7A Id a,d 
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EECE 
EECF 
EEDO 
EED! 
EED3 


EED4 
EEDS 
EED6 
EED8 
EEDB 


1F 
DO 
2B 
3625 
c9 


7A 

87 
3029 
FA2TEF 
7B 


EEDC 81 
EEDD D60A 


EEDF 
EEE2 
EEE4 
EEES5 
EEE6 
EEE7 
EEE9 
EEEA 
EEEB 
EEEC 
EEEF 
EEF1 
EEF2 
EEF4 
EEF6 
EEF8 
EEFA 
EEFB 
EEFE 


EFO1 
EFO2 
EFO3 
EFO6 
EFO8 
EFO9 


EFOA 
EFOB 
EFOE 
EFOF 
EF10 
EF12 
EF13 
EF14 
EF15 
EF16 
EF17 
EFIA 
EFID 


FABSEF 
1601 

41 

79 

B7 
2815 
83 

3D 

5F 
CDOEFO 
0601 
79 
FEO7 
3804 
CB72 
2026 
B8 
C4AOEF 
C362EF 


7B 

B7 
FAOAEF 
20DC 
41 

c9 


43 
CDOEFO 
78 

B7 
28F6 
93 

58 

47 

81 

83 
FAE4EE 
CDB4EF 
C3AOEF 


rra 
ret 
dec 
Id 
ret 


add 
jr 
Ip 
Id 
add 
sub 
Ip 
Id 
Id 
Id 
or 
jr 
add 
dec 
Id 
call 
Id 
Id 
cp 


bit 
jr 
cp 
call 
Ip 


Id 
or 
Ip 
Id 
ret 


call 
Id 
or 
jr 
sub 
Id 
Id 
add 
add 


j 
call 
ip 


BASIC 1.0 


nc 2 
hl Überlauf, 
(hl),25 "% vor formatierte Zahl 


a,d 

aa 
nc,EFO1 
m,EF27 
ae 

a,C 

0A 10 
m,EF88 
d,01 
b,c 

ac 


a 
z,EEFE 
a,e 

a 

e,a 
FOOE 
b,01 
a,C 

07 
c,EEFA 
6,d 
nz,EF20 
b 
nz,EFAO 
EF62 


a,e 


m,EFOA 
nz,EEE4 
b,c 


b,e 
FOOE 
a,b 


a 
z,EF08 


e,b 

b,a 

a,C 

ae 
m,EEE4 
EFB4 
EFAO 
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EF2O 
EF22 
EF25 


EF27 
EF29 
EF2C 
EFZE 
EF31 

EF32 
EF33 
EF36 
EF38 
EF39 
EF3C 
EF3D 
EF3F 
EF40 
EF41 

EF44 
EF45 
EF46 
EF48 
EF49 
EF4A 
EF4B 
EF4C 
EF4D 
EF4E 
EFS1 

EF52 
EFS3 
EF55 
EF56 
EF57 
EFS8 
EF59 
EF5A 
EF5C 
EFSE 
EFSF 
EF61 

EF62 
EF64 
EF67 
EF68 
EF69 
EF6B 
EF6D 
EF6E 
EF6F 
EF7O 
EF72 
EF75 
EF76 


3E06 
326EAE 
1824 


0680 
CD25F0 
3004 
CDI6FO 
AF 

47 
CC36F0 
200C 
04 
3AGEAE 
B7 
2805 
05 

3C 
326EAE 
79 

B7 
2804 
83 

% 

5F 

78 

F5 

47 
CD8BEF 


3E2D 
CD6FFO 
7B 
0E2F 


Id 
Id 
jr 
Id 
call 
jr 
call 
xor 


call 


inc 


call 
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a,06 
(AEGE),a 
EF4B 


b,80 
F025 
nc,EF32 
F096 

a 

b,a 
z,F036 
nz,EF44 
b 
a,(AE6E) 


a 
z,EF44 
b 


a 
(AE6E),a 
a,C 


a 
z,EF4C 


(hl),31 a: 


+ 


a,2B : 
nc,EF72 

a 

e 

e,a 

a,2D " 
FO6F 

a,e 

c,2F '0'-1 
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EF78 
EF79 
EF7B 
EF7D 
EFTE 
EFTF 
EF82 
EF83 
EF85 


EF88 
EF8B 
EF8E 
EF8F 
EF9O 
EF92 
EF95 


EF97 
EF98 
EF9B 
EF9E 
EF9F 
EFAO 
EFA2 
EFA3 
EFA4 
EFAS 
EFA6 
EFA7 
EFAB 
EFA9 
EFAA 
EFAB 
EFAC 
EFAD 
EFAE 
EFAF 
EFBO 
EFB2 
EFB3 


EFB4 
EFB5 
EFB6 
EFB7 
EFB8 
EFB9 
EFBA 
EFBC 
EFBD 
EFBF 
EFCO 
EFC1 
EFC3 


0C 
D60A 
30FB 
5F 

79 
CD6FFO 
7B 
C63A 
C36FFO 


CDB4EF 
CD36F0 
80 

B9 
3005 
CDC8EF 
1804 


91 
C4EFEF 
3AGEAE 
B7 
08 
0E2E 
78 
05 
47 
04 
85 
6F 
8C 
% 
67 
2B 
79 
4E 
77 
05 
20F9 
0] 
c9 


7B 
81 
47 
FO 
2F 
3C 
0614 
B8 
3001 
47 
2B 
3630 
0C 


inc 
sub 
jr 
Id 
Id 
call 
Id 
add 
Jp 


call 
call 
add 


epl 
inc 
Id 
cp 
jr 
Id 
dec 
Id 
inc 
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(e 

0A 10 
nc,EF78 

e,a 

ac 

FO6F 

ae 

a,3A '9'+1 
FO6F 


EFB4 
F036 
a,b 

c 
nc,EF97 
EFC8 
EF9B 


c 
nz,EFEF 

a,AE6E 

a 

z 

c.2E #% 
a,b 

bc 

b,‚a 

b 

al 

l,a 

a,h 

| 

h,a 

h 

ac 

c,(hl) 

(hl),a 

b 


nz,EFAB 
bc 


a,e 

a,C 

b,a 

p 

a 

a 

b,14 

b 
nc,EFCO 
b,a 

h 
(hl),30 0 
c 
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EFC4 05 
EFC5 20F9 
EFC7 C9 


EFC8 E5 
EFCY 4F 
EFCA 85 
EFCB 6F 
EFCC 8C 
EFCD 95 
EFCE 67 
EFCF 7E 
EFDO 3600 
EFD2 2270AE 
EFDS FE3S 
EFD7 D4EIEF 
EFDA E1 
EFDB D8 
EFDC 2B 
EFDD 3631 
EFDF 04 
EFEO C9 


EFE1 79 
EFE2 B7 
EFE3 C8 
EFE4 2B 
EFES 0D 
EFE6 7E 
EFE7 34 
EFE8 FE39 
EFEA D8 
EFEB 3630 
EFED 18F2 


EFEF D5 
EFFO C5 
EFFI EB 
EFF2 47 
EFF3 7B 
EFF4 90 
EFF5 6F 
EFF6 9F 
EFF7 82 
EFF8 67 
EFF9 ES 
EFFA 0C 
EFFB 1804 


EFFD 1A 
EFFE 13 
EFFF 77 
F000 23 
F001 0D 
F002 20F9 


dec 
ret 


push 
Id 
add 
Id 
adc 
sub 
Id 

Id 

Id 


cp 
call 
pop 
ret 
dec 
Id 
inc 
ret 
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b 
nz,EFCO 


hl 

c,a 

a,l 

1,a 

a,h 

| 

ha 

a,(hl) 

(h),00 

(AE7O),hl 

35 5, 
nc,EFE1 

hl 

c 

hl 

(hl),31 ah 
b 


a,e 


1,a 
a,a 
a,d 
h,a 
hl 

c 
F001 


a,(de) 
de 
(hi),a 
hl 
€ 
nz,EFFD 
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F004 
F006 
F007 
F008 
FOOA 
FOOB 
FOOC 
FOOD 


FOOE 
FOOF 
F012 
F013 
F014 
F015 
F017 
FO19 
FO1A 
FO1B 
FOIC 
FOIE 
FO20 
F023 
F024 


F025 
F028 
F029 
FO2A 
F02B 
F02C 
FO2E 
F030 
F031 
F034 
F035 


F036 
F039 
FO3A 
FO3B 
FO3C 


FO3D 
FO3E 
FO40 
F041 
F042 
F044 
F045 
FO46 
F047 
F049 
FO4C 
FO4D 


3630 
23 
05 
20FA 
Ei 
C1 
DI 
c9 


E5 
2ATOAE 
2B 

TE 

23 
FE3O 
2005 
2B 

0D 

04 
20F4 
3600 
2270AE 
Ei 

cg 


CDIBFO 
9F 

3C 

47 

7A 
E604 
2801 
04 
3A6GFAE 
9% 

cg 


3AGEAE 
B7 
c8 
3D 
cg9 


7A 
E602 
C8 
78 
D603 
D8 
C8 
F5 
0E2C 
CDASEF 
04 


Fi 


Id 
inc 
dec 
jr 
pop 
pop 
pop 
ret 


push 
Id 
dec 
Id 
inc 
cp 


dec 
dec 
inc 
jr 


Id 
pop 
ret 


call 
sbc 
inc 
Id 
Id 
and 
jr 
inc 


sub 
ret 


ret 
push 


call 
inc 
pop 
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(hl),30 0 
h 


b 
nz,F004 
h 

bc 

de 


h 
hl,(AE70) 


nz,FOIE 
h 

c 

b 
nz,F012 
(hl),00 
(AE7O),hl 
h 


FO9B 
a,a 

a 

b,a 

a,d 

04 
z,F031 
b 
a,(AE6F) 
b 


a,(AE6E) 
a 
z 


a 


a,d 
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FO4E 18F2 ir F042 
F050 7A Id a,d 
F051 87 add aa 
F052 3007 jr nc,F05B 
F054 C5 push bc 
F055 CD25F0 cal F025 
F058 C1 pop be 
F059 D8 ret c 

FOSA C8 ret z 

F0O5B 3E30 Id a,30 0 
F05D 1806 jr F065 
FOSF 7A Id a,d 
F060 E604 and 04 
F062 C8 ret z 

F063 3E24 Id a,24 $ 
F065 1C inc e 

F066 2B dc hl 
F067 77 Id (hi),a 
F068 C9 ret 

F069 CD9BFO cal FO9B 
FO6C C8 ret z 

FO6D 30F6 jr nc,F065 
FO6F ES push hl 
F070 2A7OAE Id hI,(AE70) 
F073 77 Id (hi),a 
F074 23 ine hl 
F075 3600 Id (hi),00 
F077 2270AE Id (AE70),hl 
FO7A EI pop hl 
F07TB C9 ret 

F07C 7A Id a,d 
F07D B7 or a 

FO7E FO ret p 

FO7F 3A6FAE Id a,(AE6F) 
F082 93 sıb e 

F083 08 ret z 

F084 3810 jr c,F096 
F086 47 Id b,a 
F087 7A Id a,d 
F088 E620 and 20 
FO8A 3E2A Id a,2A « 
F08C 2002 ir nz,F090 
FOSE 3E20 Id a,20 in 
F090 2B dc hl 

F091 77 Id (hi),a 
F092 05 dc b 

F093 20FB jr nz,F090 
F095 C9 ret 
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F096 7A Id a,d 

F097 F601 or 01 

F099 57 Id d,a 

FO9A C9 ret 

Fo9B 78 Id a,b 

F09C 062D Id b,2D ' 

FOYgE 87 add aa 

FO9F 380F jr c,F0BO 

FOA1 7A Id a,d 

FOA2 E698 and 98 

FOA4 EE80 xor 80 

FOA6 37 scf 

FOA7 (08 ret z 

FOA8 062B Id b,2B 'y 

FOAA E608 and 08 

FOAC 2002 jr nz,FOBO 

FOAE 0620 Id b,20 nt 
FOBO 7A Id a,d 

FOB1 F6EF or EF 

FOB3 C610 add a,10 

FOB5 78 Id a,b 

FOB6 C9 ret 

FOB7 E5 push hl 

FOB8 EB ex de,hl 

FOB9 CDDDFO cal FODD 

FOBC Ei pp hl 

FOBD 78 Id a,b 

FOBE 87 add aa 

FOBF 4F Id c,a 

FOCO 08 ret z 

FOC1 1A Id a,(de) Byte laden 
FOC2 ES6OF and OF unteres Nibble isolieren 
FOC4 C630 add 4,30 '0', nach ASCII 
F0C6 2B dc hl 

FOC7 77 Id (hl),a in Puffer 
FOC8 1A Id a,(de) Byte laden 
F0C9 E6FO and FO oberes Nibble isolieren 
FOCB IF rra 

FOCC 1F ma nach unten schieben 
FOCD 1F ma 

FOCE 1F rra 

FOCF 0630 add 4,30 ‘0’, nach ASCII 
FOD1 2B dec hl davor 
FOD2 77 Id (hl),a in Puffer 
FOD3 13 inc de 

FOD4 05 dc b 

FOD5 20EA jr nz,F0C1 

FOD7 FE3O cp 30 0 

F0D9 CO ret nz 

FODA 0D dee c 

FODB 23 inc hl 

FODC C9 ret 
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FODD 1146AE Id de,AE46 
FOEO AF xor a 

FOEI 47 Id b,a 
FOE2 B6 or (hl) 
FOE3 2B dee hl 
FOE4 2004 jr nz,FOEA 
FOE6 OD dee c 
FOE7 20F9 jr nz,FOE2 
FOEI9 C9 ret 

FOEA 37 scf 

FOEB 8F ad aa 
FOEC 30FD jr nc,FOEB 
FOEE EB ex de,hl 
FOEF D5 push de 
FOFO 57 Id d,a 
FOFI 1811 ir F104 
FOF3 1A Id a,(de) 
FOF4 1B dec de 
FOF5 D5 push de 
FOF6 37 scf 

FOF7 BF ad aa 
FOF8 57 Id d,a 
FOF9 58 Id e,b 
FOFA 7E Id a,(hl) 
FOFB 8F ad aa 
FOFC 27 daa 

FOFD 77 Id (hl),a 
FOFE 23 inc hl 
FOFF 1D dc e 
F100 20F8 jr nz,FOFA 
F102 3003 jr nc,F107 
F104 04 inc b 
F105 3601 Id (hl),01 
F107 2146AE Id hl,AE46 
FI0A 7A Id a,d 
Fi0B 87 add aa 
F10C 20EA jr nz,FOF8 
FIOE DI pop de 
FiOF OD dee c 
F110 20E1 jr nz,FOF3 
F112 EB ex de,hl 
F113 09 ret 


ker rer + Umwandlung nach Binär 
F114 110101 Id de,0101 
F117 1803 ir F11C 


rer Umwandlung nach Hex 


F119 110F04 Id de,040F 


Ft1C D5 push de 

Fi1D 79 Id a,C 

Fi1E CD4BFF cal FF4B Variablentyp setzen 
F121 E3 ex (sp),hl 
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F122 E5 push hl 

F123 05 push bc 

F124 CDC2FE cal FEC2 UNT 

F127 1157AE Id de,AE57 

F12A AF xor a 

Fi2B 12 Id (de),a 

F12C Fi pop af 

Fi2D C1 pop be 

Fi2E D601 sub 01 

F130 CEOO adce 4,00 

F132 F5 push af 

F133 7D Id a,l 

F134_A1 and c 

F135 F6FO or FO 

F137 27 daa 

F138 C6A0 add a,A0 

F13A CE40 adce a,40 

F13C 1B dec de 

F13D 12 Id (de),a 

FI3E 7D Id a,l 

Fi3F B1 or c 

F140 A9 xor C 

F141 6F Id l,a 

F142 B4 or h 

F143 280E jr 2,F153 

F145 05 push bc 

F146 7C Id a,h 

F147 1F ra 

F148 67 Id h,a 

F149 7D Id a,l 

F14A 1F ra 

Fi4B 6F Id 1,a 

FI4C 05 dee b 

Fi4D 20F7 jr nz,F146 

Fi4F 01 pop bc 

F150 Fi pop af 

F151 18DB jr Fi2E 

F153 Fi pop af 

F154 20D8 jr nz,F12E 

F156 E1 pop hl 

F157 09 ret 

KERKEERE  r  rr r ar  r& BASIC-Funktion PEEK 
F158 CDC2FE cal FEC2 UNT 

Fi5B E7 rst 4 READ RAM; Id a,{hl) 
F150 C30AFF ip FFOA Akkuinhalt als Integerzahl übernehmen 
KERNE EEE rer aa a & BASIC-Befehl POKE 
Fi5F CDYICE cal CE9I 16-Bit-Adresse holen 
F162 D5 push de 

F163 CD37DD cal DD37 Test auf nachfolgendes Zeichen 
F166 2C db 2C N 

F167 CD67CE cal CE67 8-Bit-Wert holen 
FI6A DI pop de 
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Wert in Adresse schreiben 


BR BASIC-Funktion INP 


CINT 
Portadresse nach bc 


Port lesen 
Akkuinhalt als Integerzahl übernehmen 


rer BASIC-Befehl OUT 


Adresse und Wert holen 
ausgeben 


wre BASIC-Befehl WAIT 


16- und 8-Bit-Wert holen 
8-Bit-Wert nach d 

3. Parameter Null 

kein weiterer Wert mehr ? 

Test auf nachfolgendes Zeichen 


8-Bit-Wert holen 
undnach e 
Port lesen 


verknüpfen 
und warten 


RR 16-Bit und B-Bit-Wert holen 


16-Bit-Wert holen 


nach bc 
Test auf nachfolgendes Zeichen 


und 8-Bit-Wert holen 


rer Befehlserweiterung 


Fi6B 12 Id (de),a 
FI6C C9 ret 

F16D CD8DFE cal FE8D 
F170 44 Id b,h 
F171 4D Id el 
F172 ED78 in a,(c) 
F174 C30AFF ip FFOA 
LE 2 2 zz zz zz zZ z zz ZZ zz 2 

F177 CD9Y4F1 cal F194 
F17A ED79 out (c),a 
FI7C C9 ret 
KH FH FH FH FH HE a + 

F17D CDY4F1 cal F194 
F180 57 Id d,a 
F181 1E00 Id e,00 
F183 2808 jr z,F18D 
F185 CD37DD cal DD37 
F188 2C db 2C 
F189 CD67CE cal CE67 
F18C 5F Id e,a 
F18D ED78 in a,(c) 
FI8F AB xor e 
F190 A2 and d 
F191 28FA jr z,F18D 
FI93 C9 ret 

F194 CDYICE cal CE91 
FI97 42 Id b,d 
F198 4B Id ce 
F199 CD37DD cal DD37 
F19C 2C db 2C 
F19D C367CE ip CE67 
FiAO 23 inc hl 
FIA1 7E Id a,(hl) 
FIA2 B7 or a 
F1A3 2010 jr nz,F1B5 
FIA5 23 inc hl 
FiA6 E5 push hl 
F1IA7 CDD4BC cal BCD4 
FIAA EB ex de,hl 
FIAB Ei pp hl 
FIAC 3007 jr nc,F1B5 
FIAE 7E Id a,(h) 
FIAF 23 inc hl 
F1BO 17 rla 

F1B1 30FB jr nc,FIAE 
F1B3 180A jr FiBF 


Programmzeiger erhöhen 


folgt Nullbyte ? 
nein, "Unknown command’ 


KLFIND COMMAND 
Befehlsadresse nach de 


nicht gefunden, "Unknown command’ 
Zeichen holen 

Befehlswort überlesen 

Bit 7 gesetzt ? 

nein 

zum CALL-Befehl 


477 


BASIC 1.0 


F1B5 1E1C Id e,1C "Unknown command’ 
F1B7 C394CA ip CAY4 Fehlermeldung ausgeben 
Br BASIO-Befehl CALL 
FIBA CDIICE cal CE91 Adresse holen 
FIBD OEFF Id FF FF = Ram selektiert 
FIBF ED5372AE Id (AE72),de Adresse nach AE72 
FIC3 79 Id a,C 
F1C4 3274AE Id (AE74),a Konfigurationsbyte nach AE74 
F1C7 ED7377AE Id (AE77),sp Stackpointer retten 
FiCB 0620 Id b,20 maximal 32 Parameter 
FICD CD55DD cal DD55 folgt Komma? 
F1DO 3006 jr nc,F1D8 nein 
F1D2 CDYICE cl CE91 Parameter holen 
FiD5 D5 push de und auf den Stack 
F1D6 10F5 dinz FICD nächsten Parameter holen 
F1D8 CD4ADD cal DD4A Ende des Statements, sonst "Syntax error’ 
FiDB 2275AE Id (AE75),hl hI-Register retten 
FIDE 3E20 Id a,20 
FIEO 90 sub b Anzahl der Parameter in Akku 
FIE1 DD210000 Id ix,0000 
FIES DD39 add ix,sp Stackpointer nach ix 
FIE7 DF rst 3 Routine ausführen 
FIES 72AE dw AE72 
FIEA ED7B77AE Id sp,(AE77) Stackpointer zurückholen 
FIEE 2A75AE Id hI,(AE75) hI-Register zurück 
FIFI (09 ret 
Kerr TAB-Stops initialisieren 
FIF2 3EOD Id a,0D 13 
FiF4 1803 jr FIF9 
nn BASIC-Befehl ZONE 
FIF6 CD6DCE cal CE6D 8-Bit-Wert ungleich Null holen 
FIF9 3279AE Id (AE79),a Tabulatorweite merken 
FIFC C9 ret 
er BASIO-Befehl PRINT 
FIFD CDC6C1 cal CiC6 Kanalnummer 
F200 F5 push af 
F201 CDO8F2 cal F208 PRINT-Ausgabe 
F204 Fi pop af 
F205 C3A2C1 jp C1A2 Kanalnummer zurücksetzen 
F208 CD51DD cl DD51 Ende des Statements ? 
F20B DA4EC3 jp c,C34E ja, LF ausgeben 
F20E FEED cp ED 'USING’ 
F210 CAC4F2 ip 2,F2C4 
F213 EB ex de,hl 
F214 2124F2 Id h1,F224 Basisadresse der Tabelle 
F217 CDYIFF cal FF93 Tabelle durchsuchen 
F21A EB ex de,hl 
F21B CDFBFF cal FFFB ip (de) 
“ FZIE CD51DD cal DD51 Ende des Statements ? 
F221 30EB jr nc,F20E nein, weitermachen 
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F223 C9 


ret 
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Een nn nn Zn Zn ZZ EZ ZZ ZZ ZZ ZZZZZZZ ZZ ZZ 


F224 05 
F225 33F2 
F227 2C 
F228 SCF2 
Fa2A ES 
F22B 77F2 
F22D EA 
F22E 80F2 
F230 3B 
F231 3FDD 


F233 CDFBCE 
F236 F5 
F237 E5 
F238 CD45FF 
F23B 280C 
F23D CDIDEE 
F240 CDDCF7 
F243 3620 
F245 2AC2BO 
F248 34 
F249 2AC2BO 
F24C TE 
F24D CDB9C2 
F250 D44EC3 
F253 CD28F8 
F256 E1 
F257 Fi 


db 
dw 
db 
dw 
db 
dw 
db 
dw 
db 
dw 


call 
push 
push 
call 
ir 
call 
call 
Id 

Id 
inc 
Id 

Id 
call 
call 
call 
pop 
pop 


05 Anzahl der Tabelleneinträge 

F233 Rücksprungadresse falls nicht gefunden 

2C er; 

F25C 

E5 'SPC’ 

F277 

EA 'TAB’ 

F280 

3B 5 

DD3F Blanks überlesen 
Be PRINT 

CEFB Ausdruck holen 

af 

hl 

FF45 Test auf String 

2,F249 ja 

EE9D Zahl in ASCII-String wandeln 

F7DC Stringparameter holen 

(hi),20 ' ", Leereichen anhängen 

hl,(B0C2) 

(h) 

hl,(B0C2) 

a,(hl) 

C2B9 Ausgabestrom selektieren 

nc,C34E LF ausgeben 

F828 String ausgeben 

hl 

af 

2,034E LF ausgeben 


F258 CC4EC3 
F25B C9 


call 
ret 


nr PRINT, 


F25C CD3FDD 
F25F 3A7YAE 
F262 4F 
F263 CD90C2 
F266 3D 
F267 91 
F268 30FD 
F26A 2F 
F26B 3C 
F26C 47 
F26D 81 
F26E CDB9C2 
F271 D24EC3 
F274 78 
F275 181E 


call 


DD3F Blanks überlesen 
a,(AE79) Tabulatorweite 
c,a 

C290 

a 

c 

nc,F267 

a 

a 

b,a 

a,C 

C2B9 Ausgabestrom selektieren 
nc,O34E LF ausgeben 

a,b 

F295 
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BASIC 1.0 


KEEEEE rrrr PRINTSPC 


F277 CDAOF2 cal F2AO Argument in Klammern holen 
F27A CDAFF2 cal F2AF 

F27D 7B Id a,e 

F27E 1815 jr F295 
tree PRINTTAB 
F280 CDAOF2 cal F2AO Argument in Klammern holen 
F283 1B dec de 

F284 CDAFF2 cal F2AF 

F287 CD90C2 cal C290 

F28A 2F cpl a 

F28B 3C inc a 

F28C 1C inc € 

F28D 83 add ae 

F28E 3805 jr c,F295 

F290 CD4EC3 cal C34E LF ausgeben 

F293 1D dc e 

F294 7B Id a,e 

F295 47 Id b,a 

F296 04 inc  b 

F297 05 dc b 

F298 C8 rt zZ 

F299 3E20 Id a,20 ° 

F29B CD56C3 cal C356 ausgeben 

F29E 18F7 jr F297 
nt Argument in Klammern holen 
F2ADO CD3FDD cal DD3F Blanks überlesen 

F2A3 CD37DD cal DD37 Test auf nachfolgendes Zeichen 
F2A6 28 db 28 ( 

F2A8 CD86CE cal CE86 Integerwert mit Vorzeichen holen 
F2A9 CD37DD cal DD37 Test auf nachfolgendes Zeichen 
F2AD 29 db 29 ). 

F2AE C9 ret 

F2AF 7A Id a,d 

F2B0O 17 rla 

F2B1 3003 jr nc,F2B6 

F2B3 110000 Id de,0000 

F2B6 CDYFC2 cal C29F 

F2B9 DO ret nc 

F2BA E5 push hl 

F2BB EB ex de,hl 

F2BC 5F Id e,a Akku als Divisor 

F2BD 1600 Id d,00 Hi-Byte Null 

F2BF CDC1BD cal BDC1 Integerdivison ohne Vorzeichen 
F2C2 Ei pp hl Rest in de 

F2C3 C9 ret 
Re PRINT USING 
F2C4 CD3FDD cal DD3F Blanks überlesen 

F2C7 CDASCE cal CEAS Stringausdruck holen 

F2CA CD37DD cal DD37 Test auf nachfolgendes Zeichen 
F2CD 3B db 3B e 
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F2CE 
F2CF 
F2D2 
F2D3 
F2D4 
F2D6 
F2D7 
F2DA 
F2DB 
F2DE 
F2DF 
F2EO 
F2E1 

F2E2 
F2E3 
F2E4 
F2E5 
F2E6 
F2E7 
F2E8 
F2EB 
F2ED 
F2FO 
F2F2 

F2F4 

F2F6 
F2F8 
F2FA 
F2FD 
FOFF 
F300 
F303 

F304 

F305 

F306 
F308 
F30B 
F30D 


F30F 
F310 
F312 
F315 
F316 
F317 
F31A 
F31B 
F31E 
F31F 
F322 
F323 


E5 
2AC2BO 
TE 

B7 
2875 

E3 
CDFBCE 
AF 
327AAE 
DI 

D5 

EB 

46 

23 

TE 

23 

66 

6F 

EB 
CD24F3 
305E 
CD51DD 
381D 
FE3B 
2804 
FE2C 
204C 
CD3FDD 
2810 
D5 
CDFBCE 
DI 

78 

B7 
28D6 
CD24F3 
30D1 
18DE 


F5 
3EFF 
327AAE 
78 

B7 
0424F3 
Fi 
DC4EC3 
E3 
CDE8FB 
E 

cg 


push 
Id 
Id 
or 
jr 
ex 
call 
xor 
Id 
pop 
push 
ex 
Id 
inc 
Id 
inc 
Id 
Id 
ex 
call 
jr 
call 
jr 
cp 
jr 


call 
jr 
push 
call 
pop 
Id 
or 


call 
jr 
jr 


push 
Id 
Id 
Id 
or 
call 
pop 
call 
ex 
call 
pop 
ret 


BASIC 1.0 


h 
hl,(B0C2) 
a,(hl) 


a 
z,F34B 'Improper argument’ 
(sp),hl 

CEFB Ausdruck holen 

a 

(AETA),a 

de 

de 

de,hl 

b,(hl) 

h 

a,(hl) 


nc,F34B 'Improper argument’ 
DD51 Ende des Statements ? 
c,F30F ja 

3B . 

z,F2FA 

2C & 

nz,F346 "Syntax error’ 

DD3F Blanks überlesen 
z,F30F Zeilenende ? 

de 

CEFB Ausdruck holen 

de 

a,b 

a 

z,F2DE 

F324 

nc,F2DE 

F2ED 


af 

a,FF 
(AETA),a 
a,b 


a 
nz,F324 

af 

c,C34E LF ausgeben 
(sp),hl 

FBE8 

h 


481 


F324 
F325 
F326 
F328 
F32A 
F32B 
F32D 
F32F 
F330 
F331 


F333 
F336 
F339 
F33B 
F33C 
F33F 
F340 
F341 
F343 
F344 
F345 


- F346 
F348 


F34B 
F34D 


F350 
F351 
F353 
F355 
F357 
F359 
F35B 
F35D 
F35F 
F360 
F361 
F362 
F364 
F365 
F366 
F368 
F369 
F36B 
F36D 
F36E 
F370 
F372 
F373 
F374 
F375 


ES 
1A 
FESF 
2009 
78 
FEO2 
380C 
13 
05 
1808 


CD50F3 
DAA3F3 
3809 
1A 
CD56C3 
13 

05 
20E2 
B7 

Ei 

c9 


1E02 
C394CA 


1E05 
C394CA 


1A 
FE21 
0E01 
2821 
FE26 
0EOO 
281B 
EESC 
c0 
05 
D5 
0E02 
13 
05 
280A 
1A 
FESC 
2809 
0C 
FE2O 
28F2 
DI 
C1 
B7 
c9 


push 
Id 
cp 

jr 

Id 
cp 
jr 
inc 
dec 
jr 


call 
call 
jr 


call 
inc 


ir 
or 


pop 
ret 


Id 
Ip 
Id 
IP 
Id 
cp 
Id 
jr 
cp 
Id 
ir 
xor 
ret 
push 
push 
Id 
inc 
dec 
jr 
Id 
cp 
jr 
inc 
cp 


pop 
pop 
or 
ret 


F33B 


F350 
nc,F3A3 
c,F344 
a,(de) 
0356 
de 


b 
nz,F325 
a 
h 


e,02 
CA94 


6,05 
CA94 


a,(de) 
21 
c,01 
2,F378 
26 
c,00 
2,F378 
5C 

nz 

bc 

de 
c,02 
de 

b 
2,F372 
a,(de) 
5C 
2,F376 
c 

20 
2,F364 
de 

bc 

a 


BASIC 1.0 


ausgeben 


"Syntax error’ 
Fehlermeldung ausgeben 


'Improper argument’ 
Fehlermeldung ausgeben 


g 


'Backslash’ 


"Backslash’ 
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F376 
F377 
F378 
F379 
F37A 
F37B 
F37C 
F37F 
F380 
F382 
F385 
F386 
F387 
F388 
F389 
F38B 
F38E 
F38F 
F392 
F395 
F396 
F398 
F39B 
F39C 
F39F 
F3AO 
F3A1 
F3A2 


F3A3 
F3A6 
F3A7 
F3AA 
F3AB 
F3AD 
F3AE 
F3AF 
F3BO 
F3B3 
F3B6 
F3B7 
F3B8 
F3B9 


LE ZZ zz z z 2 z z z z 2 z z zz 2 


F3BA 
F3BB 
F3BC 
F3BE 
F3CO 
F3C1 

F3C3 
F3C5 
F3C6 
F3C7 


Fi 

Fi 

13 

05 

C5 

D5 
3ATAAE 
B7 
201D 
CD3CFF 
79 

B7 

F5 

41 
0E00 
2AC2BO 
EB 
C471F9 
CD28F8 
Fi 
2807 
2AC2BO 
% 
CD95F2 
Di 

C1 

37 

09 


CDBAF3 


79 
CDIFEE 
CD41C3 
Di 
C1 
37 
c9g 


05 
D5 
0E80 
2600 
1A 
FE2B 
2007 
13 
05 
2823 


pop 
pop 
inc 
dec 
push 
push 
Id 
or 

jr 
call 
Id 
or 
push 
Id 

Id 

Id 
ex 
call 
call 
pop 
jr 

Id 
sub 
call 
pop 
pop 
scf 
ret 


call 
ret 
Id 
or 

jr 
push 
push 
Id 
call 
call 
pop 
pop 
scf 
ret 


push 
push 
Id 

Id 

Id 
cp 
jr 
inc 
dec 
jr 


BASIC 1.0 


de 
a,(AE7A) 
a 


nz,F39F 

FF3C Typ 'String’, sonst "Type mismatch’ 
a,C 

a 

af 

b,c 

c,00 

hl,(B0C2) 

de,hl 

nz,F971 

F828 String ausgeben 
af 

z,F39F 

hl,(B0C2) 

(hi) 

F295 

de 

bc 


F3BA auf Formatierungszeichen prüfen 
nc 

a,(AE7A) 

a 

nz,F3B8 

bc 

de 

ac 

EE9F Zahl formatieren 

0341 String bis (0) ausgeben 
de 

bc 


week kkkkaaeaaeae auf Formatierungszeichen prüfen 
be 

de 

c,80 

h,00 

a,(de) 

2B zu 
nz,F3CC 

de 

b 

z,F3EC 
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F3C9 
F3CA 
F3CC 
F3CD 
F3CF 
F3D1 
F3D3 
F3D5 
F3D6 
F3D7 
F3D9 
F3DA 
F3DB 
F3DC 
F3DE 
F3DF 
F3EO 
F3E2 
F3E4 
F3E6 
F3E8 
F3EA 
F3EC 
F3ED 
F3EE 
F3EF 


F3FO 
F3F1 
F3F2 
F3F4 
F3F5 
F3F7 
F3F9 
F3FA 
F3FB 


F3FD 
FIFE 
FOFF 
F401 

F402 
F404 
F406 
F407 
F409 
FA0A 
F40B 
F40C 
F40D 
FA0E 
FAOF 
F410 
F413 
FA14 


24 
0E88 
1A 
FE2E 
281F 
FE23 
2839 
13 
05 
2813 
EB 
BE 
EB 
200E 
24 
24 
2E04 
FE24 
2823 
2E20 
FE2A 
2811 
DI 
C1 
B7 
cg 


13 
05 
28F8 


FE23 
20F3 
1B 


1811 


CDIBF4 
7C 
85 


inc 
Id 
Id 
cp 
jr 
cp 
jr 
inc 


jr 
ex 
cp 
ex 
jr 
inc 
inc 
Id 
cp 
jr 
Id 
cp 
jr 
pop 
pop 
or 
ret 


inc 
dec 
jr 
Id 
cp 
jr 
dec 
inc 
jr 


inc 
dec 
jr 
Id 
cp 
jr 
inc 
Id 
inc 
dec 
Id 
or 
Id 
pop 
pop 
call 
Id 
add 


de 


z,F3EC 
a,(de) 


nz,F3EC 
de 


F40E 
de 


z,F40B 
a,(de) 


nz,F40B 


1,24 
de 


a,C 


c,a 
af 

af 
F41B 
a,h 
a,l 


BASIC 1.0 
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F415 
F417 
F41A 


F41B 
F41D 
F41E 
FA1F 
F420 
F421 
F423 
F425 
F427 
F429 
F42B 
F42D 
F42E 
F42F 
F430 
F432 


F433 
F434 
F436 
F437 


F439 
FA3A 
F43B 
F43C 
F43D 
F43E 
F440 
F442 
F443 
F444 
F446 
F448 
F449 
FA4A 
F44C 
F44D 
FA4E 
F450 
F451 

F452 
F454 
F455 
F456 
F458 
FA5A 
F45B 
F45C 
F45D 
F45F 


FE15 
D24BF3 
cg 


2E00 
04 
05 
08 
1A 
FE2E 
2814 
FE2C 
280A 
FE23 
2015 
24 
13 
05 
20EE 
c9 


79 
F602 
4F 
18F4 


2C 
13 


F640 
4F 


cp 
ip 
ret 


Id 
inc 


ret 
Id 
cp 
jr 
cp 
jr 
cp 
jr 
inc 
inc 
dec 
jr 
ret 


Id 
or 
Id 
jr 


inc 
inc 
dec 
ret 
Id 
cp 


ex 
push 
cp 
jr 
inc 
cp 


inc 
cp 
jr 

inc 
cp 
jr 

inc 


sub 
jr 
Id 
ex 
Id 
or 
Id 


15 
nc,F34B 


nz,F442 
h 

de 

b 
nz,F420 


a,C 
02 


BASIC 1.0 


'Improper argument’ 
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F460 
F461 

F462 
F463 
F464 
F465 
F466 
F468 
F469 
F46A 
F46C 
F46E 
F470 
F471 

F473 
F474 
F476 
F477 
F478 
F479 
FA7A 


E1 
EB 
78 
B7 
c8 
79 
E608 
co 
1A 
FE2D 
3E10 
2806 
1A 
FE2B 
co 
3E18 
Bi 
4F 
13 
05 
c9 


pop 
ex 
Id 
or 
ret 
Id 
and 
ret 
Id 
cp 
Id 
jr 
Id 
cp 
ret 
Id 
or 
Id 
inc 
dec 
ret 


BASIC 1.0 


h 
de,hl 
a,b 


a,C 
08 
nz 


a,(de) 
2D 


a,10 

2,F476 

a,(de 

2B + 
nz 

a,18 

c 

c,a 

de 

b 


tn BASIC-Befehl WRITE 


F47B 
F47E 
FA7F 
F482 
F484 
F487 
F488 
F489 
F48C 
F48E 
F491 
F494 
F497 


F499 
F49B 
F49E 
F4A1 
FAA3 
FAA6 
F4A7 
F4AB 
FAAA 
F4AC 
F4AE 
F4B0 
F4B3 
F4B6 
F4B8 
F4BB 


CDC6C1 
F5 
CD51DD 
3839 
CDFBCE 
F5 

E5 
CD4SFF 
280B 
CD8FEE 
CDDCF7 
CD28F8 
180D 


3E22 
CD56C3 
CD28F8 
3E22 
CD56C3 
E1 

Fi 

2813 
FE3B 
2805 
FE2C 
C246F3 
CD3FDD 
3E2C 
CD56C3 
18C7 


call 
push 
call 
jr 
call 
push 
push 
call 
jr 
call 
call 
call 
jr 

Id 
call 
call 


Id 
call 


C1C6 Kanalnummer vorhanden ? 
af 

DD51 Ende des Statements ? 
c,F4BD ja 

CEFB Ausdruck holen 

af 

h 

FF45 Test auf String 

2,F499 ja, mit Hochkommas ausgeben 
EE8F 

F7DC 

F828 String ausgeben 

F4A6 

a,22 er 

0356 ausgeben 

F828 String ausgeben 

a,22 = 

(356 ausgeben 

h 

af 

z,F4BD 

3B I 

z,F4B3 

2C ee 

nz,F346 "Syntax error’ 

DD3F Blanks überlesen 

a,2C 2% 

0356 ausgeben 

F484 
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F4BD CD4EC3 cal C34E LF ausgeben 

F4CO Fi pop af 

FAC1 C3A2C1 ip C1A2 
Krk ra + Speicher konfigurieren 
F4C4 0100AC Id bc,AC00 Speicherplatz von de bis hi 
F4C7 CDBEFF cal FFBE Vergleich hi <> bc 
FACA DO ret nc höchste Adresse < AC00 ? 
F4CB 227BAE Id (AETB),hl HIMEM 

FACE 228FB0 Id (BO8F),hl Ende der Strings 

F4D1 227DAE Id (AE7D),hl Ende des freien RAMs 
F4D4 EB ex de,hl 

F4D5 227FAE Id (AETF),hl Beginn des freien RAMs 
F4D8 012F01 Id bc,012F plus 303 

F4DB 09 add hl,bc 

F4DC D8 ret c 

F4DD 2281AE Id (AE81),hl ergibt Programmstart 
F4EO EB ex de,hl 

F4EI 23 inc hl 

F4E2 B7 or a 

F4E3 ED52 sbc  hl,de 

F4E5 D8 ret c 

F4E6 7C Id a,h 

F4E7 FEO4 cp 04 

F4E9 D8 ret c 

F4EA AF xor a 

F4EB 329180 Id (B091),a 

F4EE C9 ret 
Br BASIC-Befehl MEMORY 
F4EF CD3EFC cal FC3E Garbage Collection 
F4F2 CD9IICE cal CE91 16-Bit-Wert holen 

F4F5 E5 push hl 

F4F6 CDSOF7 cal F750 

F4F9 CD75F6 cal F675 

FA4FC 227BAE Id (AE7B),hl HIMEM setzen 

FAFF E1 pp hl 

F500 C9 ret 
re Platz fürzu ladendes Programm 
F501 D5 push de 

F502 2A7FAE Id hl,(AE7F) Beginn des freien RAMs 
F505 EB ex de,hl 

F506 2A7BAE Id hl,(AE7B) HIMEM 

F509 CDCFFF cal _FFCF hl:= hl - de 

F50C E3 ex (sp),hl 

F50D CDCFFF cal FFCF hl:=hl-de 

F510 DI pop de 

F511 13 inc de 

F512 CDB8FF cal FFB8 Vergleich hi <> de 
F515 3803 jr c,F51A "Memory full’ 

F517 2B dc hl 

F518 09 add hl,be 

F519 DO ret nc 

F51A C33EF7 ip F73E "Memory full’ 
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WERK kr rer LAlnge des Stringbereichs berechnen 


F51D D5 push de 

FSIE E5 push hl 

F5iF 2A8DBO Id hl,(B08D) Beginn der Strings 
F522 EB ex de,hl 

F523 2A8FBO Id hi,(BO8F) Ende der Strings 
F526 CDDAFF cal FFDA be:=hl-de 

F529 E1 pp hl 

F&2A DI pop de 

F52B C9 ret 
WERK rer rer Prg- und Variablenzeiger um bc erhöhen 
F52C 2A83AE Id hl,(AE83) Programmende 
F62F 09 add hi,be 

F530 2283AE Id (AE83),hl Programmende 
F533 2A85AE Id hl,(AE85) Variablenstart 

F536 09 add hl,bc 

F537 2285AE Id (AE85),hl Variablenstart 

F53A 2A87AE Id hl,(AE87) Arraystart 

F53D 09 add hl,bc 

F53E 2287AE Id (AE87),hl Arraystart 

F541 2A89AE Id hl,(AE89) Arrayende 

F544 09 add hl,bc 

F545 2289AE Id (AE89),hl Arrayende 

F548 C9 ret 

DEZ ZZ ZZ z zZ z z zZ z z zz z zz z 2 2 2 z ZZ Z ZZ z 2 2 z 2 2 2 2 2 ZZ 2 zz 2 2 ZZ zz 2 2 2 2 2 5 
F549 2A85AE Id hl,(AE85) Variablenstart 

F54C EB ex de,hl 

F54D 2A87AE Id hl,(AE87) Arraystart 

F550 CDCFFF cal FFCF hl:=hl-de 

F553 E5 push hl 

F554 2AB9AE Id hl,(AE89) Arrayende 

F557 CDDAFF cal FFDA bce:=hl-de 

F55A C5 push bc 

F55B 2A8DBO Id hl,(B08D) Beginn der Strings 
F5S5E EB ex de,hl 

FS5F 2AB9AE Id hl,(AE89) Arrayende 

F562 2B dee hl 

F563 78 Id a,b 

F564 Bi or c 

F565 CAFSFF cal nz,FFF5 Iddr 

F568 EB ex de,hl 

F569 228DB0 Id (B08D),hi Beginn der Strings 
F56C 01 pop be 

F56D Di pop de 

FS6E C3B1D5 ip D5B1 Variablenzeiger zurücksetzen 
LE 2 2 2 z 2 z z 2 z z z z z z Z z z z z z z z z z z z z 2 z z Z Z 2 z z z 2 z zz 2 2 2 z 2 2 2 z 2 ZZ zZ zo 
F571 2A83AE Id hl,(AE83) Programmende 
F574 2285AE Id (AE85),hl gleich Variablenstart 
F577 EB ex de,hl 

F578 19 add hl,de plus Variablenl4inge 
F579 2287AE Id (AE87),hl gleich Arraystart 
F57C 2A8DBO Id hl,(B08D) Beginn der Strings 
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F57F 
F580 
F581 
F582 
F585 
F586 
F589 
F58A 
F58D 


inc 
Id 
or 
call 
dec 
Id 
ex 
Id 
ret 


BASIC 1.0 


hl 

a,b Stringbreich 

c 

nz,FFF2 vorhanden, dann Idir 
hl 

(B08D),hl Beginn der Strings 
de,hl 

(AE89),hl Arrayende 


re erer BASIC-Stack initialisieren 


FS8E 
F58F 
F590 
F593 
F596 
F598 
F59B 
F59D 
F59E 
FS9F 


F5 

E5 
218BAE 
228BB0 
3E01 
CDBOFS 
3600 

Ei 

Fi 

c9 


push 
push 
Id 

Id 

Id 
call 
Id 
pop 
pop 
ret 


af 

hl 

hl,AE8B 

(BO8B),hl BASIC-Stackpointer 

a,01 

F5B0 Platz im BASIC-Stack reservieren 
(hl),00 

hl 

af 


er e a Platz im BASIC-Stack freigeben 


F5AO 
FSA3 
FSA4 
F5A5 
F5AG6 
FSA7 
FSAB 
F5AA 
FSAB 
FSAC 
FSAF 


2A8BB0 
2F 

3C 

08 

85 

6F 
gEFF 
8C 

67 
228BB0 
c9 


Id 
cpl 
inc 
ret 
add 
Id 
Id 
adc 
Id 
Id 
ret 


hl,(BO8B) BASIC-Stackpointer 
a 

a Akkuinhalt abziehen 
z 

a,l 

1,a 

a,FF 

a,h 

h,a 

(BO8B),hl BASIC-Stackpointer 


rer Platz im BASIC-Stack reservieren 


F5B0 
F5B3 
F5B4 
F6B5 
F5B6 
F5B7 
F5B8 
F5B9 
F5BC 
F&BE 
FBF 
F5C1 
F5C2 
F5C3 
F5C4 
F5C7 


2A8BBO 
E5 

85 

6F 

8C 

% 

67 
228BB0 
3E78 

85 

3E4F 
8C 

Ei 

DO 
CD8EF5 
C33EF7 


Id 
push 
add 
Id 
adc 
sub 
Id 
Id 
Id 
add 
Id 
adc 
pop 
ret 
call 
Ip 


hl,(B08B) BASIC-Stackpointer 

hl 

a,l 

l,a Akkuinhalt addieren 

a,h 

| 

h,a 

(BO8B),hl BASIC-Stackpointer 

a,78 a 

a,l ergibt plus &4F78 Überlauf ? 
a,4F 

a,h dann ist Stackpointer > &B088 
hl 

nc 

FS8E BASIC-Stack initialisieren 
F73E 'Memory full’ 
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EEE EZ 2 2 Z zz Z z 2 2 2 2 2 2 2 z ZZ Z ZZ 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 ee ee ee 2 ee 


F5CA 2A8FBO Id hl,(BO8F) Ende der Strings 

F5CD 228DB0 Id (BO8D),hl Beginn der Strings 

F5&D0 C9 ret 

KEN EEEE kr erere Platz für String reservieren 
F5D1 2F pl a Akku enthält Stringlänge 

F6D2 4F Id c,a 

F5D3 O6FF Id b,FF minus Länge nach bc 

F5D5 03 inc be 

F5D6 CDE6F5 cal FS5E6 Stringbereich nach unten verlängern 
F5D9 DO ret nc Platz vorhanden ? 

F5DA CD3EFC cal FC3E nein, Garbage Collection auslösen 
F5DD CDE6F5 cal FSE6 jetzt Platz vorhanden ? 

FSEO DO ret nc ja 

FSE1 1EOE Id e,0E "String space full’ 

FSE3 C394CA ip CA94 Fehlermeldung ausgeben 
rer Platz im Stringbereich ? 
F5E6 2ABYAE Id hl,(AE89) Arrayende 

F5E9 EB ex de,hl 

FSEA 2A8DBO Id hl,(B08D) Beginn der Strings 

F5SED 09 add hl,bc minus Länge des neuen Strings 
FSEE CDBöFF cal FFB8 Vergleich hi <> de 

FSFI D8 ret c 

F5F2 228DBO Id (B08D),hl Beginn der Strings 

FöF5 23 inc hl 

FSF6 EB ex de,hl nach de 

FSF7 C9 ret 
Berka Platz im Variablenbereich reservieren 
F5F8 2ASYAE Id hl,(AE89) Arrayende 

FSFB C5 push bc enthält Anzahl Bytes 

FSFC D5 push de 

FSFD D5 push de 

FSFE E5 push hl 

FSFF CDI8F6 cal F618 Platz vorhanden ? 

F602 DA3EF7 ip c,F73E nein, "Memory full’ 

F605 E1 pp hl 

F606 01 pop be 

F607 D5 push de 

F608 7D Id a,l 

F609 91 sub c 

F60A 4F Id c,a 

F60B 7C Id a,h 

F60C 98 sbc ab 

F60D 47 Id b,a 

F60E 2B dee hl 

F6OF 1B dec de 

F610 Bi or C 

F611 CAFSFF cal nz,FFF5 Iddr 

F614 E1 pp hl 

F615 Di pop de 

F616 01 pop be 

F617 C9 ret 
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tree Platz im Variablenbereich vorhanden ? 


F618 09 add hl,bc Ende Array plus neuer Platz 

F619 D8 ret c Überlauf ? 

F61A EB ex de,hl 

F61B CD22F6 cal F622 neues Variablenende mit Stringbeginn vergl 
F6IE DO ret nc Platz vorhanden ? 

F6IF CD3EFC cal FC3E nein, Garbage Collection auslösen 

F622 2A8DBO Id hl,(B08D) Beginn der Strings 

F625 C3BBFF ip FFB8 Vergleich hi <> de 
ker r freien Speicherplatz berechnen 
F628 2AB9YAE Id hl,(AE89) Ende der Variablen 

F62B EB ex de,hl 

F62C 2A8DBO Id hl,(B08D) Beginn der Strings 

F62F CSCFFF jp FFFC hl:=hl-de 


ker & Eingabepuffer anlegen 
F632 110100 Id de,0001 
F635 1803 ir F63A 


BE Ausgabepuffer anlegen 
F637 110208 Id de,0802 


F63A C5 push bc 

F63B E5 push hl 

F63C 2191B0 Id h1,8091 

F63F TE Id a,(hl) 

F640 B7 or a 

F641 201D ir nz,F660 

F643 D5 push de 

F644 E5 push hl 

F645 210010 Id hl,1000 

F648 010000 Id bc,0000 

F64B CD43F7 cal F743 

F64E 2292B0 Id (B092),hl neues Ende des freien RAM 
F651 EB ex de,hl 

F652 2A7DAE Id hl,(AE7D) Ende des freien RAMs 
F655 2294B0 Id (B094),hl Speicher für freies RAM 
F658 EB ex de,hl 

F659 227DAE Id (AE7D),hl Ende des freien RAMs 
F65C E1 pop hl 

F65D DI pop de 

F65E 3E04 Id a,04 

F660 BJ or e 

F661 77 Id (hl),a 

F662 2A92B0 Id h1,(B092) neues Ende des freien RAM 
F665 23 inc hl 

F666 1E00 Id 6,00 

F668 19 add hi,de 

F669 EB ex de,hl 

F66A E1 pop hl 

F66B C1 pop bc 

F66C C9 ret 
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KR kr a& Eingabepuffer schließen 
F66D 3EFE Id a,FE 
F66F 1806 ir F677 


KK rer re Ausgabepuufer schließen 
F671 3EFD Id a,FD 
F673 1802 ir F677 


LEE ZZ 2 2 2 zz z z z z z zZ z z Z 2 2 z z Z z z Z zZ 2 Z ZZ ZZ z 2 2 Z 2 2 Z 2 2 2 m ZZ 2 2 2 2 2 ze ZZ 0 


F675 3EFF Id a,FF 

F677 05 push bc 

F678 D5 push de 

F679 E5 push hl 

F67A 2191B0 Id h1,B091 

F67D A6 and (hl) 

F67E 77 Id (hi),a 

F67F FEO4 cp 04 

F681 2016 jr nz,F699 

F683 2A92B0 Id h1,(B092) neues Ende des freien RAM 
F686 EB ex de,hl 

F687 210010 Id h1,1000 

F68A CD2EF7 cal F72E 

F68D 200A jr nz,F699 

F68F AF xor a 

F690 3291B0 Id (B091),a 

F693 2A94BO Id h1,(B094) Speicher für freies RAM 
F696 227DAE Id (AE7D),hl Ende des freien RAMs 
F699 E1 pp hl 

F69A DI pop de 

F69B C1 pop be 

F69C C9 ret 

KR re BASIC-Befehl SYMBOL 
F69D FE8O cp 80 'AFTER' 

F69F 282C jr z,F6CD 

F6A1 CD67CE cal CE67 8-Bit-Wert holen 

F6A4 4F Id c,a 

F6A5 CD37DD cal DD37 Test auf nachfolgendes Zeichen 
F6A8 2C db 2C Fi 

F6A9 0608 Id b,08 8 Werte 

F6AB CD67CE cal CE67 8-Bit-Wert holen 

F6AE F5 push af auf Stack 

F6AF 05 dc b 

F6BO 2808 jr z,F6BA schon 8 Werte ? 

F6B2 CD55DD cal DD55 folgt Komma ? 

F6B5 38F4 jr c,F6AB ja, nächsten Wert holen 
F6B7 AF xor a 

F6B8 18F4 jr F6AE 

F6BA EB ex de,hl hi retten 

F6BB 79 Id a,C Zeichen nach a 

F6BC CDA5SBB cal BBA5 TXT GET MATRIX 
F6BF 3068 jr nc,F729 Matrix nicht im RAM, 'Improper Argument’ 
F6C1 010800 Id bc,0008 8 

F6C4 09 add hl,bc plus Matrixadresse 


492 


F6C5 
F6C6 
F6C7 
F6C8 
F6C9 
F6CB 
F6CC 


KERKRKKKA K € 


F6CD 
F6DO 
F6D3 
F6D4 
F6D7 
F6DA 
F6DC 
F6DD 
F6EO 
F6E1 

F6E3 
F6E4 
F6ES 

F6E7 
F6E8 
F6EI 
F6EA 
F6EB 
F6EC 
F6EF 
F6F1 

F6F4 
F6F7 

F6FA 
F6FD 
F700 
F701 

F704 

F705 


F706 
F707 
F708 
F709 
F70B 
F70C 
F70D 
F7OE 
F7OF 
F710 
F711 
F712 
F713 
F716 
F719 
FIA 


Fi 
2B 
77 
0D 
20FA 
EB 
c9g 


CD3FDD 
CD86CE 
E5 
210001 
CDBBFF 
384D 

D5 
CDAEBB 
EB 

301D 

2F 

6F 

2600 

23 

29 

29 

29 

1B 
CD2EF7 
2038 
2A96BO 
227DAE 
CD75F6 
110001 
CDABBB 
DI 
CDO6F7 
E 

c9 


AF 

9% 

6F 

3E01 

9A 

67 

B5 

08 

D5 

29 

29 

29 
010040 
CD43F7 
EB 
2ATDAE 


call 
call 
push 
Id 
call 
jr 
push 
call 
ex 
jr 
cp! 
Id 
Id 
inc 
add 
add 
add 
dec 
call 
jr 
Id 
Id 
call 
Id 
call 
pop 
call 
pop 
ret 


xor 
sub 
Id 

Id 
sbc 
Id 

or 
ret 
push 
add 
add 
add 
Id 
call 
ex 

Id 
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af Byte vom Stack holen 

h 

(hi),a in Matrixtabelle schreiben 
c nächstes Byte 

nz,F6C5 

de,hl hl zurück 


KrrkkeKeekke rer SYMBOLAFTER 
DD3F Blanks überlesen 

CE86 Integerwert mit Vorzeichen holen 

h 

h1,0100 256 

FFB8 Vergleich hl <> de 

c,F729 größer gleich 256, 'Improper argument’ 
de 

BBAE TXT GETM TABLE 

de,hl Matrixadresse nach de 

nc,F700 Matrix noch nicht definiert ? 


nz,F729 'Improper argument’ 
hl,(B096) 

(AE7D),hl Ende des freien RAMs 
F675 

de,0100 

BBAB TXT SETM TABLE 

de 

F706 

hl 


a 

e 

1,a 

a,01 

a,d 

h,a 

| 

z 

de erstes Zeichen merken 
hl,hl 

hl,h 

hl,hl 

bc,4000 

F743 

de,hl 

hl, (AE7D) Ende des freien RAMs 
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F71D 2296B0 Id (B096),hl 

F720 EB ex de,hl 

F721 227DAE Id (AE7D),hl Ende des freien RAMs 
F724 DI pop de erstes Zeichen 

F725 23 inc hl Startadresse der Tabelle 
F726 C3ABBB ip BBAB TXTSETM TABLE 
F729 1E05 Id e,05 'Improper argument’ 
F72B C394CA ip CA94 Fehlermeldung ausgeben 
F72E E5 push hl 

F72F 2ATBAE Id hl,(AE7B) HIMEM 

F732 CDBöFF cal FFB8 Vergleich hi <> de 
F735 E1 pp hl 

F736 CO ret nz 

F737 19 add hl,de 

F738 227DAE Id (AE7D),hl Ende des freien RAMs 
F73B EB ex de,hl 

F73C 1812 jr F750 

F73E 1E07 Id e,07 'Memory full’ 

F740 C394CA jp CA94 Fehlermeldung ausgeben 
F743 EB ex de,hl 

F744 2A7BAE Id hl,(AE7B) HIMEM 

F747 CDCFFF cal _FFCF hl:=hl-de 

F74A CDBEFF cal FFBE Vergleich hl <> bc 
F74D 38EF jr c,F73E "Memory full’ 

F74F EB ex de,hl 

F750 CD3EFC cal FC3E Garbage Collection 
F753 DS push de 

F754 2A7DAE Id hl, (AE7D) Ende des freien RAMs 
F757 CDBöFF cal FFB8 Vergleich hl <> de 
F75A 38E2 jr c,F73E "Memory full’ 

F75C CDIDF5 cal  FS1D Länge des Stringbereichs berechnen 
F75F 2ABYAE Id hl,(AE89) Arrayende 

F762 09 add hl,bc plus Länge des Stringbereichs 
F763 38D9 jr c,F73E "Memory full’ 

F765 2B dee hl 

F766 CDBBFF cal FFB8 Vergleich hi <> de 
F769 30D3 jr nc,F73E "Memory full’ 

F76B 2A7BAE Id hl,(AE7B) HIMEM 

F76E EB ex de,hl 

F76F CDCFFF cal _FFCF hl:=hl-de 

F772 2298B0 Id (B098),hl 

F775 11BBF7 Id de,F7BB 

F778 CD74DA cal DA74 

F77B ED4B98B0 Id bc,(B098) 

FT7F 78 Id a,b 

F780 07 rica 

F781 3816 jr c,F799 

F783 B1 or c 

F784 282F jr z,F7B5 

F786 2A8FBO Id hl,(BO8F) Ende der Strings 
F789 54 Id d,h 


494 


BASIC 1.0 


F78A 5D Id el 

F78B 09 add hl,bc 

F7T8C E5 push hl 

F78D CDIDF5 cal F51D Länge des Stringbereichs berechnen 
F790 EB ex de,hl 

F791 78 Id a,b 

F792 Bi or c 

F793 CAF5FF cal nz,FFF5 Iddr 

F796 Ei pp hl 

F797 1815 jr F7AE 

F799 2A8DBO Id hl,(B08D) Beginn der Strings 
F79C 54 Id d,h 

F79D 5D Id e,l 

F7IE 09 add hl,be 

F79F E5 push hl 

F7AO CDIDF5 cal FS1D Länge des Stringbereichs berechnen 
FTA3 EB ex de,hl 

F7TA4 23 inc hl 

FTAS 13 ine de 

FTA6 78 Id a,b 

FFA7T BI or c 

F7AB CAF2FF cal nz,FFF2 Idir 

F7TAB EB ex de,hl 

FTAC 2B dc hl 

FTAD DI pop de 

F7AE 228FB0 Id (BO8F),hl Ende der Strings 
F7BI EB ex de,hl 

F7B2 228DB0 Id (B08D),hl Beginn der Strings 
F7B5 E1 pp hl 

F7B6 227BAE Id (AETB),hi HIMEM 

F7B9 AF xor a 

FTBA C9 ret 

F7BB 2A83AE Id h,(AE83) Programmende 
F7BE CDBEFF cal FFBE Vergleich hi <> bc 
F7C1 DO ret nc 

F7C2 2A98B0 Id h1,(B098) 

F7C5 09 add hl,bc 

F7C6 EB ex de,hl 

F7C7 72 Id (hi),d 

F7C8 2B dee hl 

F7C9 73 Id (hi),e 

F7TCA C9 ret 

EEE I Teen nee m ze u ZZ zz zz zZ zZ ZZ ZZ — ZZ z ZZ ZZ zz ZZ ZZ 2 String lesen 
F7CB 23 inc hl 

F7CC CDF9F7 cal F7F9 

F7CF TE Id a,(hl) 

F7DO FE22 cp 22 "“_ Stringende ? 
F7D2 CA3FDD ip z,DD3F ja, folgende Blanks überlesen 
F7D5 B7 or a 

F7D6 2837 ir z,F80F 

F7D8 04 inc b 

F7D9 23 inc hl 
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F7DA 18F3 jr F7CF 

F7DC CDFYF7 cal F7F9 

F7DF TE Id a,(hl) 

FTEO B7 or a 

FTEI C8 ret z 

FTE2 23 inc hl 

FTE3 04 inc  b 

F7E4 18F9 jr F7DF 

F7E6 CDFYF7 cal  F7FY9 

F7EI 4F Id c,a 

FTEA 7E Id a,(hl) 

FTEB B7 or a 

F7EC 2821 jr z,F80F 

FTEE B9 cp c 

F7EF 281E jr z,F80F 

FTFi FE2C cp 2C B 
F7F3 281A jr z,F80F 

FTF5 23 inc hl 

FTF6 04 inc  b 

F7F7 18F1 jr F7EA 

EZ zz zZ zz z z z z Z z zz ZZ ZZ zZ zZ zz zz ZZ ZZ ZZ ZZ Ze ZZ Ze ZZ ZZ ZZ eu ee Ze ZZ 
FTF9 DI pop de 

FTFA E5 push hl 

F7FB 0600 Id b,00 

FTFD CDFBFF cal FFFB ip (de) 
F800 Di pop de 

F801 E5 push hl 

F802 21BABO Id hl,BOBA Zeiger auf Descriptorstack 
F805 70 Id (hl),b Länge 
F806 23 inc hl 

F807 73 Id (hl),e 

F808 23 inc hl Adresse 
F809 72 Id (hi),d 

F80A CDBAFB cal FBBA 

F80D E1 pop hl 

F80OE C9 ret 

F8OF E5 push hl 

F810 04 inc  b 

F811 05 dc b 

F812 2812 jr z,F826 

F814 2B dee hl 

F815 7E Id a,(hl) 

F816 FE2O cp 20 N 
F818 28F7 jr z,F811 

F81A FEO9 cp 09 TAB 
F81C 28F3 jr z,F811 

F81E FEOD cp 0D CR 
F820 28EF jr z,F811 

F822 FEOA cp 0A LF 
F824 28EB jr z,F811 

F826 E1 pp hl 
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F827 C9 ret 
rer Stringaausgeben 
F828 CDDAFB cal FBDA Stringparameter holen 

F82B C8 ret z Leerstring ? 

F82C 1A Id a,(de) Zeichen holen 

F82D 13 inc de Zeiger erhöhen 

F&2E CD6ECI cal C36E Zeichen ausgeben 

F831 10F9 dinz F82C nächstes Zeichen 

F833 C9 ret 
tn BASIC-Funktion LOWER$ 
F834 0139F8 Id bc,F839 Groß- in Kleinbuchstaben wandeln 

F837 180C jr F845 
kr re Umwandlung Groß- in Kleinbuchstaben 
F839 FE41 cp 41 A 

F83B D8 ret c 

F83C FESB cp 5B Z+1 

F83E DO ret nc 

F&3F C620 add a,20 'a’-'A’ 

F841 09 ret 
re BASIC-Funktion UPPER$ 
F842 O18AFF Id bc,FF8A Klein- in Großbuchstaben wandeln 

F845 C5 push bc 

F846 2AC2BO Id hl,(B0C2) 

F849 7E Id a,(hl) Stringlänge 

F&4A CDIIFC cal FC19 Platz reservieren, Stringdescriptor ablegen 

F84D D5 push de 

F84E CDDAFB cal FBDA Stringparameter holen 

F851 E1 pop hl 

F852 Ci pop be 

F853 3C inc a 

F854 3D dc a 

F855 CABAFB ip z,FBBA 

F858 F5 push af 

F859 1A Id a,(de) 

F85A 13 inc de 

F85B CDFYFF cal FFF9 jp (bc), Umwandlung ausführen 

FeSE 77 Id (hi),a 

FeSF 23 inc hl 

F860 Fi pop af 

F861 18F1 ir F854 
terre Stringaddition 
F863 E5 push hl 

F864 7E Id a,(hl) Stringlänge 

F865 2AC2BO Id hl,(B0C2) 

F868 86 add a,{hl) plus Länge des zweiten Strings 

F869 1EOF Id e,0F "String too long’ 

F&86B DAY4CA ip c,CA94 Fehlermeldung ausgeben 
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F&6E CDIIFC 
F871 Ei 
F872 D5 
F873 ES 
F874 CDDAFB 
F877 48 
F878 EB 
F879 E3 
F87A CDE8FB 
F87D E1 
F87E E3 
Fe7F 78 
F880 CD8BF8 
F883 D1 
F884 79 
F885 CD8BF8 
F888 C3BAFB 


F88B C5 
F88C EB 
F88D 4F 
F&8E 0600 
F890 B7 
F891 CAF2FF 
F894 EB 
F895 C1 
F896 C9 


call 
pop 
push 
push 
call 
Id 
ex 
ex 
call 
pop 
ex 

Id 
call 
pop 
Id 
call 
Ip 


push 
ex 
Id 

Id 

or 
call 
ex 
pop 
ret 
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FC19 Platz reservieren, Stringdescriptor ablegen 
hl 

de 

hl 

FBDA Stringparameter holen 
c,b 

de,hl 

(sp),hl 

FBE8 

hl 

(sp),hl 

a,b 

F88B 

de 

a,C 

F88B 

FBBA 


bc 

de,hl 

c,a 

b,00 

a 

nz,FFF2 dir 
de,hl 

bc 


ter Stringvergleich 


F897 ES 
F898 CDDAFB 
F89B 48 
F89C E1 
F89D DS 
F89E CDE8FB 
F8A1 Ei 
F8A2 78 
F8A3 B1 
F8A4 C8 
F8AS 79 
F8A6 B7 
F8A7 280C 
F8AY 78 
F8AA B7 
F8AB 2809 
F8AD 05 
F8AE 0D 
FAF 1A 
F8BO 13 
F8B1 BE 
F8B2 23 
F8B3 28ED 
F8B5 3F 
F8B6 9F 
F8B7 CO 


push 
call 
Id 
pop 
push 
call 
pop 
Id 
or 
ret 
Id 
or 
jr 

Id 
or 
ir 
dec 
dec 
Id 
inc 
cp 
inc 
ir 
ccf 
sbc 
ret 


hl 
FBDA Stringparameter holen 
cb 
hl 

de 
FBE8 
hl 
a,b 

c 

z 

a,C 


a 
z,F8B5 
a,b 


a 

z,F8B6 

b 

c 

a,(de) Zeichen aus erstem String 

de 

(hi) mit zweiter String vergleichen 
hl 


z,F8A2 gleich, dann weiter vergleichen 


a,a Flags für Ergebnis setzen 
nz 
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F8B8 3C inc a 

F8B9 C9 ret 
RR rer rer BASIC-Funktion BIN$ 
F8BA CDCEF8 cal F8CE Argumente holen 

F8BD D5 push de 

F8BE CD14F1 cal F114 in Binärstring wandeln 

F8C1 EB ex de,hl 

F8C2 185E jr F922 String übernehmen 
Bere rer BASIC-Funktion HEX$ 
F8C4 CDCEF8 cal F8CE Argumente holen 

F8C7 D5 push de 

F8C8 CD19F1 cal F119 in Hexstring wandeln 

F&CB EB ex de,hl 

F&CC 1854 ir F92 String übernehmen 
Re rrrrer Argument für BINS und HEX$ holen 
F&CE CDFBCE cal CEFB Ausdruck holen 

F8D1 CDS3FF cal FFS3 und auf BASIC-Stack ablegen 

F8D4 CD55DD cal DD55 folgt Komma ? 

F8D7 9F sbc aa 0 als Default 

F8D8 DC67CE cal c,CE67 ja, 8-Bit-Wert holen 

F8DB FE11 cp 11 größer gleich 17 ? 

F8DD D29CFA jp nc,FA9C 'Improper argument’ 

F8EO 47 Id b,a 

F8E1I CD37DD cal DD37 Test auf nachfolgendes Zeichen 
F8E4 29 db 29 y 

F8ES EB ex hl,de 

F8E6 79 Id a,C 

F8E7 C3AOFS5 ip FSAO Platz im BASIC-Stack freigeben 
Br BASIC-Funktion DEC$ 
F8EA CD37DD cal DD37 Test auf nachfolgendes Zeichen 
F8ED 28 db 28 '(', bereits mit Funktionsaufruf geschehen! 
F8EE CDFBCE cal CEFB Ausdruck holen 

F8FI CD37DD cal DD37 Test auf nachfolgendes Zeichen 

FeF4 2C db 2C = 

FeF5 CDSIFF cal FFS3 und auf BASIC-Stack ablegen 

FeF8 CDIFCE cal CE9F Stringausdruck und -Parameter holen 
F8FB CD37DD cal DD37 Test auf nachfolgendes Zeichen 
F&FE 29 db 29 y 

FöFF E5 push hl 

F900 79 Id a,C Länge 

F901 CDAOF5 cal FS5AO Platz im BASIC-Stack freigeben 

F904 D5 push de 

F905 79 Id a,C Länge 

F906 CD4BFF cal FF4B Variable übernehmen 

F909 D1 pop de 

FY9OA 78 Id a,b 

F90B B7 or a 

F90C C4BAF3 cal nz,F3BA auf Formatierungszeichen prüfen 
F9OF 300A jr nc,F91B 'Improper argument’ 

F911 78 Id a,b 

F912 B7 or a 
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F913 2006 
F915 79 
F916 CDYFEE 
F919 1807 


F91B C39CFA 
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'Improper argument’ 


Zahl formatieren 
String übernehmen 


'Improper argument’ 


tt BASIC-Funktion STR$ 


FIIE ES 
FY9IF CDYDEE 
F922 E5 
F923 OIFFFF 
F926 03 
F927 TE 
F928 23 
F929 B7 
FY92A 20FA 
F92C 79 
F92D CDIIFC 
F930 E1 
F931 B7 
F932 DS 
F933 CAF2FF 
F936 DI 
F937 CDBAFB 
F93A Ei 
F93B C9 


LE ZZ zZ z z zZ z z z z z z z z ZZ: 


F93C CDEYFY 
F93F OEO00 
F941 182A 


jr nz,F91B 
Id a,C 

cal EEYF 

jr F922 

ip FA9C 
push hl 

cal EE9D 
push hl 

Id bce,FFFF 
inc bc 

Id a,(hl) 
inc hl 

or a 

jr nz,F926 
Id a,C 

cal FC19 
pp Hl 

or a 

push de 

cal nz,FFF2 
pop de 

cal FBBA 
pp hl 


ret 


Zahl in String wandeln 


Zähler für Stringlänge auf -1 
Zähler erhöhen 
Zeichen holen 


Nullbyte ? 

nein, nächstes Zeichen 

Stringlänge nach a 

Platz reservieren, Stringdescriptor ablegen 


Idir 


RR BASIC-Funktion LEFT$ 


String und 8-Bit-Zahl holen 
ab Position 0 


Mr kr BASIC-Funktion RIGHTS 


F943 CDE9FI 
F946 1A 
F947 90 
F948 4F 
F949 1822 


String und 8-Bit-Zahl holen 
Stringlänge 

minus Parameter 

ergibt Startposition 


Mr re BASIC-Funktion MID$ 


F94B CD37DD 
FY4E 28 
F94F CDEYFI 
F952 78 
F953 B7 
F954 CA9CFA 
F957 05 
F958 48 
F959 D5 
FYSA C5 
F95B CDFBF9 
FISE C1 
FYSF E3 
F960 7E 


cal FYEI 
Id c,00 
jr F96D 
cal FYEI 
Id a,(de) 
sub b 

Id ca 

jr F96D 
cal DD37 
db 28 
cal FYEI 
Id a,b 
or a 

ip z,FA9C 
decce b 

Id c,b 
push de 
push bc 
cal _FYFB 
pop bc 
ex (sp),hl 
Id a,(hl) 


Test auf nachfolgendes Zeichen 


m 


String und 8-Bit-Zahl holen 


'Improper argument’ 


3. Argument holen (Default = 255) 
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F961 91 
F962 0600 
F964 3805 
F966 BB 
F967 47 
F968 3801 
FY6A 43 
F96B EB 
F96C Ei 
F96D CD37DD 
F970 29 
F971 ES 
F972 EB 
F973 TE 
F974 B8 
F975 78 
F976 3003 
F978 7E 
F979 O0EOO 
F97B F5 
F97C CDI9FC 
F97F DS 
F980 CDE8FB 
F983 EB 
F984 DI 
F985 0600 
F987 09 
F988 Fi 
F989 4F 
F98A B7 
F98B CAF2FF 
F98E CDBAFB 
F991 E1 
F992 C9 


sub 


push 
call 
ex 
pop 
Id 
add 
pop 
Id 
or 
call 
call 
pop 
ret 


BASIC 1.0 


c 

b,00 

c,F96B 

e 

b,a 

c,F96B 

b,e 

de,hi 

hl 

DD37 Test auf nachfolgendes Zeichen 
29 u 
hl 

de,hl 

a,(hl) 

b 

a,b 

nc,F97B 

a,(hl) 

c,00 

af 

FC19 Platz reservieren, Stringdescriptor ablegen 
de 

FBE8 

de,hl 

de 

b,00 

hl,bc 

af 

c,a 

a 

nz,FFF2 Idir 
FBBA 

hl 


aaa BASIC-Befehl MID$ 


F993 CD37DD 
F996 28 
F998 CD86D6 
F99A CDICFF 
F99D ES 
F99E EB 
F99F CD21FB 
F9A2 E3 
F9A3 CD37DD 
F9AG 2C 
F9A7 CD6DCE 
FYAA 47 
FYAB CDFBF9 
FYAE 4B 
FYAF CD37DD 
F9B2 29 
F9B3 CD37DD 
F9B6 EF 
F9B7 C5 


call 
db 
call 
call 
push 
ex 
call 
ex 
call 
db 
call 
Id 
call 
Id 
call 
db 
call 
db 
push 


DD37 Test auf nachfolgendes Zeichen 
28 ( 

D686 Variable holen 

FF3C Typ 'String’, sonst "Type mismatch’ 
hl 

de,hl 

FB21 

(sp),hl 

DD37 Test auf nachfolgendes Zeichen 
2C er 

CE6D 8-Bit-Wert ungleich Null holen 
b,a 

F9FB 3. Argument holen (Default = 255) 
ce 

DD37 Test auf nachfolgendes Zeichen 
29 ) 

DD37 Test auf nachfolgendes Zeichen 
EF =’ 

bc 
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F9B8 CDIFCE cal CE9F Stringausdruck und -Parameter holen 
F9BB 78 Id a,b 

F9BC C1 pop be 

F9BD E3 ex (sp),hl 

F9BE 0C ine  c 

F9BF OD dee c 

F9CO 2825 ir z,F9E7 

F9C2 F5 push af 

F9C3 TE Id a,(hl) 

F9C4 90 sub b 

F9C5 DA9CFA jp c,FA9C ’Improper argument’ 
F9C8 3C inc a 

F9C9 B9 cp c 

F9CA 3801 jr c,F9CD 

F9CC 79 Id a,C 

F9CD 4F Id c,a 

F9CE 78 Id a,b 

F9CF 3D dc a 

F9DO 23 inc hl 

F9D1 86 add a,hl) 

F9D2 23 inc hl 

F9D3 66 Id h,(hi) 

F9D4 6F Id la 

F9D5 8C ad ah 

F9D6 95 sub | 

F9D7 67 Id h,a 

F9D8 Fi pop af 

F9D9 47 Id b,a 

F9DA EB ex de,hl 

F9DB 79 Id a,C 

F9DC B8 cp b 

F9DD 3801 jr c,F9EO 

FYDF 78 Id a,b 

F9IEO 4F Id c,a 

F9EI 0600 Id b,00 

FY9E3 B7 or a 

FYE4 CAF2FF cal nz,FFF2 Idir 

F9E7T Ei pp hl 

F9EB C9 ret 
tree String und B-Bit-Wert holen 
F9EI9 CDA5SCE cal CEAS Stringausdruck holen 
FIEC CD37DD cal DD37 Test auf nachfolgendes Zeichen 
FIEF 2C db 2C Br 

F9FO E5 push hl 

F9FI 2AC2BO Id hl,(B0C2) 

F9F4 E3 ex (sp),hl 

F9F5 CD67CE cal CE67 8-Bit-Wert holen 
FY9F8 47 Id b,a 

F9F9 DI pop de 

F9FA C9 ret 
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Bere 3. Argument für MID$ holen 


F9FB 1EFF Id e,FF Default 255 

FY9FD 7E Id a,(hl) 

FOFE FE29 cp 29 y 

FAOO C8 ret z 

FAO1 CD37DD cal DD37 Test auf nachfolgendes Zeichen 

FAO4 2C db 2C ” 

FAO5 CD67CE cal CE67 8-Bit-Wert holen 

FA0O8 5F Id e,a 

FA09 C9 ret 
Bee BASIC-Funktion LEN 
FAOA CDDAFB cal FBDA Stringparameter holen, Länge nach a 

FAOD C30AFF ip FFOA Akkuinhalt als Integerzahl übernehmen 
Bere BASIC-Funktion ASC 
FA1O CD70FA cal FA7O ASCII-Kode des ersten Zeichens 

FA13 C30AFF ip FFOA Akkuinhalt als Integerzahl übernehmen 
ee BASIC-Funktion CHR$ 
FA16 CDY2FA cal FA92 CINT, < 256 

FA19 F5 push af 

FAIA 3E01 Id a,01 Länge 1 

FAIC CDIIFC cal FC19 Platz reservieren, Descriptor ablegen 

FAIF Fi pop af 

FA2O 12 Id (de),a ASCII-Kode als String ablegen 

FA21 C3BAFB ip FBBA 
rer INKENS 
FA24 E5 push hl 

FA25 CD2AFA cal FA2A 

FA28 Ei pop hl 

FA29 C9 ret 

FA2A CD39C4 cal C439 KM READ CHAR 

FA2D 38EA jr c,FA19 Taste gedrückt ? 

FA2F AF xor a nein 

FA30 32BABO Id (BOBA),a Stringdescriptor, Länge 

FA33 C3BAFB ip FBBA 
Br STAINGS 
FA36 CD67CE cal CE67 8-Bit-Wert holen, Länge 

FA3I 4F Id c,a 

FA3A CD37DD cl DD37 Test auf nachfolgendes Zeichen 

FA3D 2C db 2C % 

FA3E CDFBCE cal CEFB Ausdruck holen 

FA41 CD37DD cal DD37 Test auf nachfolgendes Zeichen 

FA44 29 db 29 Y 

FA45 ES push hl 

FA46 CD45FF cal FF45 Test auf String 

FA49 2805 jr z,FA50 ja 

FA4B CDY2FA cal FAQ CINT, < 256 

FA4E 1803 jr FA53 
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FA50 CD70FA cal FA7O ASCII-Kode des ersten Zeichens holen 
FA53 41 Id b,c 

FA54 4F Id ca 

FA55 1807 ir FASE 
KEREEREE  EE rer BASIC-Funktion SPACE$ 
FA57 CDY2FA cal _FA92 CINT, < 256 

FASA 47 Id b,a 

FA5B O0E20 Id c,20' 

FASD E5 push hl 

FASE 78 Id a,b 

FASF CDIIFC cal FC19 Platz reservieren, Descriptor ablegen 
FA62 04 inc b 

FA63 05 dc b 

FA64 2805 jr z,FA6B 

FA66 79 Id a,C 

FA67 12 Id (de),a 

FA68 13 inc de 

FA69 18F8 jr FA63 

FA6B CDBAFB cal FBBA 

FAGE E1 pp hl 

FA6F C9 ret 
tt ASCII-Kode holen 
FA70 CDDAFB cal FBDA Stringparameter holen 

FA73 2827 jr z,FA9C Leerstring, 'Improper argument’ 

FA75 1A Id a,(de) Kode des ersten Zeichens 

FA76 C9 ret 
Kr BASIC-Funktion VAL 
FA77 CDDAFB cal FBDA Stringparameter holen 
.FA7TA CAOAFF jp z,FFOA Leerstring, dann Null 

FA7D EB ex de,hl 

FATE E5 push hl 

FATF 5F Id e,a 

FA80 1600 Id d,00 

FA82 19 add hl,de 

FA83 5E Id e,(hl) 

FA84 72 Id (hi),d 

FA85 E3 ex (sp),hl 

FA86 D5 push de 

FA87 CDA3EC cal ECA3 

FABA DI pop de 

FA8B E1 pp hl 

FA8C 73 Id (hi),e 

FA8D D8 ret c 

FASE 1EOD Id e,0D 'Type mismatch’ 

FA9O 180C jr FAYE Fehlermeldung ausgeben 
KE ra ONT, Test< 256 
FAQ E5 push hl 

FA93 CD8DFE cal FE8D CINT 

FA96 EB ex de,hl 

FA97 E1 pp hl 


504 


BASIC 1.0 


FAYB 7A Id a,d Hi-Byte 

FA99 B7 or a Null ? 

FAQA 7B Id a,e Lo-Byte laden 

FA9B C8 ret z 

FA9C 1E05 Id e,05 'Improper Argument’ 

FAIE C394CA ip CA94 Fehlermeldung ausgeben 
tee BASIC-Funktion INSTR 
FAA1 CDFBCE cal CEFB Ausdruck holen 

FAA4 CDA45FF cal FF45 Test auf String 

FAA7 0EO1 Id c,01 Default Startposition 1 

FAA9 280F jr z,FABA 

FAAB CD92FA cal FAQ CINT, < 256 

FAAE B7 or a 

FAAF CA9CFA ip z,FA9C 'Improper argument’ 

FAB2 4F Id c,a 

FAB3 CD37DD cal DD37 Test auf nachfolgendes Zeichen 
FAB6 2C db 2C : 

FAB7 CDASCE cal CEA5 Stringausdruck holen 

FABA CD37DD cal DD37 Test auf nachfolgendes Zeichen 
FABD 2C db 2C “ 

FABE E5 push hl 

FABF 2AC2BO Id hl,(B0C2) 

FAC2 E3 ex (sp),hl 

FAC3 CDYFCE cal CEYF Stringausdruck und -Parameter holen 
FAC6 CD37DD cal DD37 Test auf nachfolgendes Zeichen 
FAC9 29 db 29 ): 

FACA E3 ex (sp),hl 

FACB 79 Id a,C 

FACC CDD4FA cal FAD4 

FACF CDOAFF cal FFOA Akkuinhalt als Integerzahl übernehmen 
FAD2 E1 pp hl 

FAD3 C9 ret 

FAD4 F5 push af 

FAD5 48 Id c,b 

FAD6 D5 push de 

FAD7 CDE8FB cal FBEB 

FADA E1 pp hl 

FADB Fi pop af 

FADC E5 push hl 

FADD 6F Id l,a 

FADE 60 Id h,b 

FADF 78 Id a,b 

FAEO BD cp | 

FAE1 382D jr c,FB10 

FAE3 2D dec | 

FAE4 7D Id a,l 

FAE5 83 add ae 

FAE6 5F Id e,a 

FAE7 8A ade ad 

FAEB 93 sıb e 

FAE9 57 Id d,a 

FAEA 78 Id a,b 

FAEB 95 sub I 
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FAEC 
FAED 
FAEE 
FAFO 
FAF1 
FAF2 
FAF4 
FAF5 
FAF6 
FAF7 
FAF8 
FAF9 
FAFA 
FAFC 
FAFD 
FAFE 
FBOO 
FBO1 
FBO2 
FBO4 
FB05 
FB06 
FB07 


FB09 
FBOA 
FBOB 
FBOC 
FBOD 
FBOE 
FB10 
FB11 
FB12 


FB13 
FB14 
FB15 
FB16 
FB17 
FB18 
FB19 
FBIA 


FBIB 
FBIE 


FB21 
FB22 
FB23 
FB24 
FB25 
FB26 
FB27 
FB28 
FB29 


47 
79 
D601 
7D 
3C 
381D 
E3 
C5 
D5 
E5 
1A 
BE 
200D 
23 
0D 
2813 
13 
05 
20F4 
E 
DI 
c1 
1807 


E1 
Di 
c1 
13 
05 
20E5 
AF 
D1 
c9 


E 
Di 
c1 
Ei 
7C 
9 
3C 
c9 


112EFB 
0374DA 


E5 
TE 
23 
4E 
23 
46 
EB 
B7 
C42EFB 


Id 

Id 
sub 
Id 
inc 
jr 
ex 
push 
push 
push 
Id 
cp 
jr 
inc 
dec 
ir 
inc 
dec 
jr 
pop 
pop 
pop 
jr 


pop 


pop 
inc 
dec 
jr 
xor 
pop 
ret 


pop 
pop 
pop 
pop 
Id 
sub 
inc 
ret 


Id 
Ip 
push 
Id 
inc 
Id 
inc 
Id 
ex 
or 
call 


BASIC 1.0 


b,a 
a,C 

01 

a,l 

a 
c,FB11 
(sp),hl 
bc 


de 

h 

a,(de) 
(hi) 
nz,FB09 
h 


c 
z,FB13 
de 

b 
nz,FAF8 
h 

de 

bc 
FB10 


h 

de 

bc 

de 

b 
nz,FAF5 
a 

de 
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FB2C E1 pop hl 

FB2D C9 ret 

FB2E 2A8DBO Id hl,(B08D) Beginn der Strings 

FB31 CDBEFF cal FFBE Vergleich hl <> bc 

FB34 3007 jr nc,FB3D 

FB36 2ABFBO Id hl,(BOBF) Ende der Strings 

FB39 CDBEFF cal FFBE Vergleich hi <> bc 

FB3C DO ret nc 

FB3D EB ex de,hl 

FB3E 2B dc hl 

FB3F 2B dee hl 

FB40 E5 push hl 

FB41 CD8FFB cal _FBBF 

FB44 EB ex de,hl 

FB45 E1 pp hl 

FB46 C3A6FB ip FBAG6 Stringdescriptor von (de) nach (hi) 
FB49 2AC2BO Id hl,(BOC2) 

FB4C 11BABO Id de,BOBA Stringdescriptor 

FBAF CDBBFF cal FFB8 Vergleich hi <> de 

FB52 D8 ret c 

FB53 CD8FFB cal FBF 

FB56 C3BAFB ip FBBA 

LE 2 zz z z z z z z z z z z z z z z z z z z Z zz z z z zz ZZ zZ zz zZ ZZ 2 ZZ 2 u 2 2 ee u 2 2 ze 2 
FB59 2AC2BO Id hl,(B0C2) Zeiger auf Stringdescriptor 
FBSC E5 push hl 

FB5D 7E Id a,(hl) Stringlänge 

FBSE B7 or a 

FB5F 2826 ir z,FB87 Leerstring ? 

FB61 23 inc hl 

FB62 5E Id e,(hi) 

FB63 23 inc hl Stringlänge nach de 

FB64 56 Id d,(hl) 

FB65 2AB1IAE Id hl,(AE81) Programmstart 

FB68 CDBBFF cal FFB8 Vergleich hl <> de 

FB6B 301E jr nc,FB8B String steht vor Programm 
FB6D 2ABFBO Id hl,(BO8F) Ende der Strings 

FB70 CDBäFF cal FFB8 Vergleich hi <> de 

FB73 3816 jr c,FB8B String steht oberhalb Stringbereich 
FB75 2A83AE Id hl, (AE83) Programmende 

FB78 CDB8FF cal FFB8 Vergleich hl <> de 

FB7B 300A jr nc,FB87 String steht im Programm 
FB7D Ei pp hl 

FB7E E5 push hl 

FB7F 119CB0 Id de,B09C 

FB82 CDBBFF cal FFB8 Vergleich hl <> de 

FB85 2004 jr nz,FB8B 

FB87 E1 pp hl 

FB88 C3FFFB jp FBFF 
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FB8B E1 pp hl 

FB8C CDFFFB cal _FBFF 

FBöF 7E Id a,(hi) 

FB90 CDI9FC cal FC19 Platz reservieren, Descriptor ablegen 
FB93 D5 push de 

FB94 4E Id ch) Stringlänge nach c 
FB95 0600 Id b,00 Hi-Byte Länge Null 
FB97 23 inc hl 

FB98 7E Id a,(hi) 

FB99 23 inc hl Stringadresse nach hi 
FBYA 66 Id h,(hi) 

FB9B 6F Id l,a 

FB9C 78 Id a,b 

FB9D B1 or c 

FBIE CAF2FF cal nz,FFF2 Idir, String übertragen 
FBA1 D1 pop de 

FBA2 21BABO Id h1,BOBA Stringdescriptor 
FBA5 C9 ret 


tr Stringdescriptor von (de) nach (hi) 


FBA6 1A Id a,(de) 

FBA7 13 inc de 

FBAB 77 Id (hi),a 

FBA9 23 inc hl 

FBAA 1A Id a,(de) 

FBAB 13 inc de 

FBAC 77 Id (hi),a 

FBAD 23 inc hl 

FBAE 1A Id a,(de) 

FBAF 13 inc de 

FBBO 77 Id (hi),a 

FBBi 23 inc hl 

FBB2 C9 ret 
ner Descriptorstack initialisieren 
FBB3 219CB0 Id h1,B09C 

FBB6 229AB0 Id (BO9A),hl Zeiger in Descriptorstack für Strings 
FBB9 C9 ret 

Lee Enz nn EZ ZZ ZZ ZZ ZZ ZZ ZZ zZ 
FBBA 3E03 Id a,03 String’ 

FBBC 32C1B0 Id (BOC1),a als Variablentyp 

FBBF 2AYABO Id hl,(BO9A) Zeiger in Descriptorstack 

FBC2 22C2B0 Id (BOC2),hl 

FBC5 11BABO Id de,BOBA Stringdescriptor 

FBC8 CDBBFF cal _FFB8 Vergleich hi <> de 

FBCB 1E10 Id e,10 "String expression too complex’ 
FBCD CAY4CA ip 2,CA94 Fehlermeldung ausgeben 

FBDO 11BABO Id de,BOBA Stringdescriptor 

FBD3 CDA6FB cal FBA6 Stringdescriptor von (de) nach (hi) 
FBD6 229AB0 Id (BO9A),hl Zeiger in Descriptorstack 

FBD9 C9 ret 
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KAREKEKEE EEE E ek Siringparameter holen 
FBDA E5 
FBDB CDICFF 


FBDE 
FBEI 
FBE4 
FBES 
FBE6 
FBE7 


FBE8 
FBEB 
FBEC 
FBED 
FBEE 
FBF1 

FBF4 
FBF6 
FBF7 
FBF9 
FBFA 
FBFD 
FBFE 


FBFF 
FC00 
FCO1 
FC02 
FC03 
FCO4 
FC05 
FC06 
FCO7 
FC08 
FCOB 
FCOC 
FCOD 
FCOE 
FC11 
FC13 
FC16 
FC17 
FC18 


LE ZZ z 2 z z z z zz zZ zz zz; 


FC19 
FOIA 
FC1B 
FCIC 
FC1D 
FC20 
FC21 
FC24 
FC25 
FC26 


2AC2BO 
CDE8FB 
E1 
78 
B7 
c9 


CDFFFB 
co 

D5 

1B 
2A8DBO 
CDBBFF 
2007 

58 

1600 

19 
228DB0 
Di 

c9 


ES 

46 

23 

TE 

23 

66 

6F 

E3 

EB 
2A9ABO 
2B 

2B 

2B 
CDBBFF 
2003 
229AB0 
EB 

DI 

c9 


F5 
C5 
E5 
F5 
CDDIF5 
Fi 
21BABO 
77 
23 
73 


push 
call 
Id 
call 
pop 
Id 

or 
ret 


call 
ret 
push 
dec 
Id 
call 
jr 

Id 
Id 
add 
Id 
pop 
ret 


push 
Id 
inc 
Id 
inc 
Id 
Id 
ex 
ex 
Id 
dec 
dec 
dec 
call 
jr 

Id 
ex 
pop 
ret 


push 
push 
push 
push 
call 
pop 
Id 

Id 
inc 
Id 


hl 

FF3C Typ 'String’, sonst "Type mismatch’ 
hl,(B0C2) Adresse des Stringdescriptors 
FBE8 

hl 

a,b Länge in a und b, Adresse in de 

a 


FBFF 

nz 

de 

de 

hl,(B08D) Beginn der Strings 
FFB8 Vergleich hi <> de 
nz,FBFD 

e,b 

d,00 

hl,de 

(BO8D),hi Beginn der Strings 
de 


hl 
b,(h) 
hl 


a,(hl) 
hl 


h,(hl) 

l,a 

(sp),hl 

de,hl 

hl,(BO9A) Zeiger in Descriptorstack 
hl 


hl 

hl 

FFB8 Vergleich hi <> de 
nz,FC16 

(BO9A),hl Zeiger in Descriptorstack 
de,hl 

de 


srekkkkkkakakaaaaae Platzreservieren, Descriptor ablegen 
af 


bc 

hl 

af Stringlänge 

F5D1 Platz im Stringbereich reservieren 
af 

h1,BOBA Stringdescriptor 

(hi),a Stringlänge 

hl 

(h),e 
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FC27 23 inc hl Stringadresse 
FC28 72 Id (hl),d 

FC29 Ei pp hl 

FC2A C1 pop be 

FC2B Fi pop af 

FC2C C9 ret 

KErKEKKEKE ER Eereerreee BASIO-Funktion FRE 
FC2D CD45FF cal  FF45 Test auf String 
FC30 2006 jr nz,FC38 nein 

FC32 CDDAFB cal FBDA 

FC35 CDIEFC cal FC3E Garbage Collection 
FC38 CD28F6 cal F628 freien Speicherplatz berechnen 
FC3B C360FE ip FE6O 
Area Garbage Collection 
FC3E C5 push bc 

FC3F D5 push de 

FC40 E5 push hl 

FC41 2A8FBO Id hl,(BOBF) Ende der Strings 
FC44 228DB0 Id (BO8D),hi Beginn der Strings 
FC47 210000 Id h1,0000 

FC4A 22BDB0 Id (BOBD),hl 

FC4D 2A89AE Id hl,(AE89) Arrayende 

FC50 22BFBO Id (BOBF),hl 

FC53 CD7BFC cal  FC7B 

FC56 2ABDBO Id hi,(BOBD) 

FC59 7C Id a,h 

FC5A B5 or | 

FC5B 281A ir zFe77 

FC5D 56 Id d,(hl) 

FC5E 2B dec hl 

FC5F 5E Id e,(hl) 

FC60 E5 push hl 

FC61 2B decc hl 

FC62 4E Id c,(hi) 

FC63 0600 Id b,00 

FC65 2A8DBO Id hl,(B08D) Beginn der Strings 
FC68 EB ex de,hl 

FC69 09 add hl,bc 

FC6A 2B dec hl 

FC6B CDFSFF cal _FFF5 Iddr 

FC6E 13 inc de 

FC6F Ei pp hl 

FC70 73 Id (hi),e 

FC71 23 inc hl 

FC72 72 Id (hl),d 

FC73 1B dec de 

FC74 EB ex de,hl 

FC75 18CD ir FC44 

FC77 Ei pop hl 

FC78 DI pop de 

FC79 01 pop be 

FC7A C9 ret 
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FC7B 219CB0 
FC7E EDSBYABO 
FC82 CDB8FF 
FC85 280F 
F087 TE 
FC88 23 
FC89 4E 
FC8A 23 
FC8B 46 
FC8C E5 
FC8D EB 
FC8E B7 
FC8F C49CFC 
FC92 E1 
FC93 23 
FC94 18E8 


FC96 119CFC 
FC99 C374DA 


FC9C 2A8DBO 
FCYF CDBEFF 
FCA2 D8 

FCA3 2ABFBO 
FCA6 CDBEFF 
FCA9 DO 

FCAA EB 

FCAB 22BDB0 
FCAE ED43BFBO 
FCB2 C9 


ret 
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h1,B09C 

de,(BO9A) Zeiger in Descriptorstack 
FFB8 Vergleich hi <> de 
z,FC96 

a,(hl) 

hl 

chi) 


hl,(B08D) Beginn der Strings 
FFBE Vergleich hl <> bc 
c 

hl,(BOBF) 

FFBE Vergleich hi <> bc 
nc 

de,hi 

(BOBD),hl 

(BOBF),bc 


LEEZZZZZZZZZZZZZZ ZZ ZZ ZZ ZZ ZZ Z ZZ Z ZZ zZ ZZ ZZ Z zZ zZ u 2 ZZ zz zZ zz Ze 0 


FCB3 CD2DFF 
FCB6 D252BD 
FCB9 CDA3BD 
FCBC 22C2B0 
FCBF 21C3B0 
FCC2 C9 


FCC3 CDC2FE 
FCC6 21C3B0 
FCC9 C3A6BD 


FCCC CDISFE 
FCCF 3009 
FCD1 CDACBD 
FCD4 DAODFF 
FCD7 CD4FFE 
FCDA CD58BD 
FCDD D8 


call 
Ip 
call 
Id 
Id 
ret 


call 
Id 


ip 


call 
jr 
call 
Ip 
call 
call 
ret 


FF2D numerisches Ergebnis holen 

nc,BD52 Fließkomma- 

BDA3 Integer- 

(B0C2),hl 

h1,B0C3 

FEC2 UNT 

h1,B0C3 

BDA6 
terre BASIC-Operator '+" 

FE15 Typ der Operanden testen 

nc,FCDA Fließkomma ? 

BDAC Integer-Addition hi := hi + de 

c,FFOD kein Überlauf, Ergebnis in hi übernehmen 

FE4F nach Fließkomma wandeln 

BD58 Fließkomma-Addition 

c kein Überlauf, ok 

CAF3 'Overflow’ 


FCDE C3F3CA 


ip 
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Kerr e BASIC-Operator'-’ 


FCE1 CDISFE cal  FEI5 Typ der Operanden testen 

FCE4 3009 jr nc,FCEF Fließkomma ? 

FCE6 CDB2BD cal BDB2 Integer-Subtraktion hi := de - hl 

FCE9 DAODFF ip c,FFOD kein Überlauf, Ergebnis in hi übernehmen 
FCEC CD4FFE cal FE4F nach Fließkomma wandeln 

FCEF CD5EBD cal BD5E Fließkomma-Subtraktion 

FCF2 D8 rt  c kein Überlauf, ok 

FCF3 18E9 jr FCDE 'Overflow’ 
AEErrre BASIC-Operator '*’ 
FCF5 CDI5FE cal FEIS Typ der Operanden testen 

FCF8 3009 jr nc,FD03 Fließkomma ? 

FCFA CDBSBD cal BDB5 Integer-Multiplikation mit Vorzeichen 
FCFD DAODFF ip c,FFOD kein Überlauf, Ergebnis in hl übernehmen 
FDOO CD4FFE cal FE4F nach Fließkomma wandeln 

FD03 CD61BD cal BD61 Fließkomma-Multiplikation 

FDO6 D8 ret c 

FD07 18D5 jr FCDE 'Overflow’ 
Bere ariihmetischer Vergleich 
FD09 CDI5FE cal FEIS Typ der Operanden testen 

FDOC DAC4BD ip c,BDC4 Integer-Vergleich 

FDOF C36ABD jp BD6A Fließkommavergleich 
er BASIC-Operator ’/’ 
FD12 3AC1BO Id a,(B0C1) Variablentyp 

FD15 B1 or c 

FD16 FEO2 cp 02 

FD18 2005 ir nzFDIF 

FD1A CD4FFE cal FE4F Integer-Operanden nach Fließkomma 
FDID 1803 ir FD22 

FDIF CDISFE cal FEIS Typ der Operanden testen 

FD22 EB ex de,hl 

FD23 D5 push de 

FD24 CD64BD cal BD64 Fließkommadivision 

FD27 DI pop de 

FD28 F5 push af 

FD29 010500 Id bc,0005 
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FD2C CDF2FF cal _FFF2 Idir 

FD2F Fi pop af 

FD30 D8 rt cc ok? 

FD31 CAEACA ip z,CAEA "Division by zero’ 

FD34 C3F3CA ip CAF3 'Overflow’ 
ee BASIC-Operator 'Backslash’ 
FD37 CDYAFE cal FEYA 

FD3A EB ex de,hl 

FD3B CDB8EBD cal BDB8 Integer-Division mit Vorzeichen 

FD3E DAODFF ip c,FFOD Ergebnis in hl übernehmen 

FD41 2810 ir 2,FD53 "Division by zero’ 

FD43 210080 Id h1,8000 

FD46 C360FE ip FE6O 
re BASIC-Operator 'MOD’ 
FD49 CDYAFE cal FEYA 

FD4C EB ex de,hl 

FD4D CDBBBD cal BDBB MOD-Berechnung 

FD50 DAODFF ip c,FFOD Ergebnis in hl übernehmen 

FD53 1E0B Id e,0B "Division by zero’ 

FD55 C394CA jp CAg4 Fehlermeldung ausgeben 
nt BASIC-Operator AND’ 
FD58 CDYAFE cal FEYA 

FD5B 7B Id a,e 

FD5C A5 and | 

FD5D 6F Id l,a hl and de 

FDSE 7C Id a,h 

FDSF A2 and d 

FD60 C3OCFF ip FFOC 
re BASIC-Operator 'OR’ 
FD63 CDYAFE cal FEYA 

FD66 7B Id a,e 

FD67 B5 or | 

FD68 6F Id la hl or de 

FD69 7A Id a,d 

FD6A B4 or h 

FD6B 18F3 jr FD60 
rer BASIO-Operator 'XOR’ 
FD6D CDYAFE cal FEYA 

FD70 7B Id ae 

FD71 AD xor | 

FD72 6F Id l,a hi xor de 

FD73 7C Id a,h 

FD74 AA xor  d 

FD75 18E9 jr FD60 

KARKKEKKEE rec BASIO-Operator NOT 
FD77 E5 push hl 

FD78 CD8DFE cal FE8D CINT 

FD7B 7D Id a,l 

FD7C 2F pl a Lo-Byte komplementieren 
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FD7D 6F Id l,a 

FD7E 7C Id a,h 

FD7F 2F pl a 

FD80 CDOCFF cal FFOC Hi-Byte komplementieren 

FD83 E1 pp hl 

FD84 C9 ret 
ne BASIC Funktion ABS 
FD85 CDA3FD cal FDA3 SGN 

FD88 FO ret p positives Vorzeichen, fertig 
re Vorzeichen umkehren 
FD89 E5 push hl 

FD8A C5 push bc 

FD8B CD2DFF cal FF2D numerisches Ergebnis holen 

FD8BE 300D ir nc,FDID Vorzeichenwechsel Fließkomma 

FD90 CDC7BD cal BDC7 Vorzeichenwechsel Integer 

FD93 22C2B0 Id (BOC2),hl 

FD96 D5 push de 

FD97 D460FE cal nc,FE60 

FD9A DI pop de 

FD9B 1803 jr FDAO 
ar Vorzeichenwechsel Fließkomma 
FDYD CD6DBD cal BD6D Vorzeichenwechsel Fließkomma 

FDAO C1 pop be 

FDA1 E1 pp hl 

FDA2 C9 ret 

PEITTTTTTE ET TET EEE  E  EI  EI ZZ EZ EZELZEZZE ZZ Z 
FDA3 CD2DFF cal FF2D numerisches Ergebnis holen 

FDA6 DACABD ip c,BDCA Integer-SGN 

FDA9 C5 push bc 

FDAA CD70BD cal BD70 Fließkomma-SGN 

FDAD C1 pop be 

FDAE C9 ret 
Ber Zahlrunden 
FDAF E5 push hl 

FDBO 79 Id ac 

FDBi CD4BFF cal FF4B Variablentyp und -Wert übernehmen 

FDB4 D1 pop de 

FDB5 CD2DFF cal FF2D numerisches Ergebnis holen 

FDB8 78 Id a,b Rundunggsstellen 

FDB9 300B jr nc,FDC6 Fließkommawert ? 

FDBB B7 or a 

FDBC FO rt  p Rundung hinter dem Komma? fertig 

FDBD CD6AFE cal FE6A Integerwert nach Fließkomma wandeln 

FDCO CDCEFD cal FDCE Zahl runden 

FDC3 C38DFE ip FE8D CINT 
re Fließkommazahl runden 
FDC6 B7 or a Rundungstellen 

FDC7 2005 jr nz,FDCE ungleich Null, dann runden 

FDC9 1149BD Id de,BD49 Fließkomma nach Integer wandeln 
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FDCC 1826 ir FDF4 

LE Z z zZ z z z z z z z z z z z z z z Z zz 2 zz z zZ z zz 2 zz z 2 2 2 Z 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 23 
FDCE D5 push de 

FDCF C5 push bc 

FDDO 78 Id a,b Rundungsstellen 

FDDI CD55BD cl BD55 Fließkommazahl mit 10fa multiplizieren 
FDD4 DC49BD cal c,BD49 Fließkomma nach Integer wandeln 
FDD7 78 Id a,b 

FDD8 C1 pop bc 

FDD9 DI pop de 

FDDA 3008 jr nc,FDE4 

FDDC CD43BD cal BD43 Integer nach Fließkomma wandlen 
FDDF AF xor a Rundungsstellen invertieren 

FDEO 90 sıb b entspricht Division 

FDE1 C355BD ip BD55 Fließkommazahl mit 10fa multiplizieren 
FDE4 EB ex de,hl 

FDES C34EFF ip FF4E 
rer BASIC-Funktion FIX 
FDE8ß 114CBD Id de,BD4C FIX-Funktion 

FDEB 1803 ir FDFO 
Br BASIC-Funktion INT 
FDED 114FBND Id de,BD4F INT-Funktion 

FDFO CD2DFF cal FF2D numerisches Ergebnis holen 

FDF3 D8 ret c Integer ? 

FDF4 CDFBFF cal _FFFB ip (de) 

FDF7 DO ret nc 

FDF8 3AC1BO Id a,(B0C1) Variablentyp 

FDFB CDO6FE cal FEO6 

FDFE D8 ret c 

FDFF CDIDFF cal FFID Variablentyp nach c, Zeiger nach hl 
FEO2 78 Id a,b 

FEO3 C343BD ip BD43 Integer nach Fließkomma wandlen 
FEO6 79 Id a,C 

FEO?7 FEO3 cp 03 'String’ ? 

FEO9 DO ret nc 

FEOA 7E Id a,(hl) 

FEOB 23 inc hl 

FEOC 66 Id h,(hi) 

FEOD 6F Id l,a 

FEOE CDA9BD cal BDA9 falls positiv Vorzeichen von b übernehmen 
FE11 DO ret nc 

FE12 C3ODFF ip FFOD Ergebnis in hi übernehmen 

FE15 79 Id a,C 

FE16 FEO3 cp 03 String’ ? 

FE18 2832 jr z,FE4C ja, "Type mismatch’ 

FEIA 3AC1BO Id a,(B0C1) Variablentyp 

FEID FEO3 cp 03 'String’ 

FEIF 282B jr z,FE4C ja, "Type mismatch’ 

FE21 B9 cp c 
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FE22 2817 jr z,FE3B 

FE24 300C jr nc,FE32 

FE26 E5 push hl 

FE27 21C1B0 Id h1B0C1 Variablentyp 

FE2A 71 Id (hl),c 

FE2B 23 inc hl 

FE2C CD63FE cal FE63 Integerzahl nach Fließkomma umwandlen 
FE2F DI pop de 

FE3O B7 or a 

FE3I C9 ret 

FE32 CD63IFE cal FE63 Integerzahl nach Fließkomma umwandlen 
FE35 EB ex de,hl 

FE36 21C2B0 Id hl,B0C2 

FE39 B7 or a 

FE3A C9 ret 

FE3B EEO2 xor 0 

FE3D 2805 jr z,FE44 

FE3F EB ex de,hi 

FE40 21C2B0 Id hl,B0C2 

FE43 C9 ret 

FE44 5E Id e,(hl) 

FE45 23 inc hl 

FE46 56 Id d,(hl) 

FE47 2AC2BO Id hl,(B0C2) 

FE4A 37 scf 

FE4B C9 ret 

FE4C C340FF ip FF40 'Type mismatch’ 
re Integer-Operanden nach Fließkomma 
FE4F 2AC2BO Id hl,(B0C2) ersten Operand 

FE52 CD6AFE cal FE6A umwandeln 

FE5S5 2A8BBO Id hi,(BO8B) BASIC-Stackpointer, zweiter Operand 
FES8 CD63FE cal FE63 umwandeln 

FESB EB ex de,hl 

FESC 21C2B0 Id hl,80C2 

FESF C9 ret 

FE60 AF xor a 

FE61 1808 jr FE6B nach Fließkomma wandeln 
rer Integerzahl nach Fließkomma umwandlen 
FE63 5E Id e,(hi) 

FE64 23 inc hl 

FE65 56 Id d,(hi) 

FE66 2B dece hl 

FE67 7A Id a,d 

FE68 1808 ir FE72 

KErKKKKEKER ee rer ae Integerzahl nach Fließkomma wandeln 
FE6A 7C Id a,h 

FE6B EB &  de,hl 
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FE6C 21C1B0 Id h1,B0C1 Variablentyp 

FE6F 3605 Id (hl),05 'Real’ 

FE71 23 inc hl 

FE72 EB ex de,hl 

FE73 F5 push af 

FE74 B7 or a 

FE75 FCC7BD cl m,BDC7 falls negativ Integer Vorzeichenwechsel 
FE78 Fi pop af 

FE79 C340BD jp BD40 Integerzahl nach Fließkomma wandeln 
tree A-Byte-Wert nach Fließkomma wandeln 
FE7C 22C2B0 Id (BOC2),hl Lo-Word 

FETF EB ex de,hl 

FE80 22C4B0 Id (BOC4),hl Hi-Word 

FE83 21C1B0 Id h1,B0C1 Variablentyp 

FE86 3605 Id (hl),05 'Real’ 

FE88 23 inc hl Zeiger auf 4-Byte-Wert 

FE89 AF xor a 

FEBA C343BD jp BD43 nach Fließkomma wandeln 
re BASIC-Funktion CINT 
FE8D CDIIFE cal FEY3 

FE9O D8 ret  cC 

FE91 183F jr FED2 'Overflow’ 

FE93 CDASFE cal FEAS 

FE96 22C2B0 Id (BOC2),hl 

FE99 C9 ret 

FEYA 79 Id a,C 

FE9B CDACFE cal FEAC 

FEIE EB „ex de,hl 

FE9F DCASFE cal c,FEA5 

FEA2 D8 rt cc 

FEA3 182D jr FED2 'Overflow’ 

FEA5 21C1B0 Id h1,B0C1 Variablentyp 

FEAB 7E Id a,(hl) 

FEA9 3602 Id (hl),02 Integer’ 

FEAB 23 inc hl 

FEAC FEO3 cp 03 'String’ ? 

FEAE 380D jr c,FEBD 

FEBO CA4OFF ip z,FF40 'Type mismatch’ 

FEB3 C5 push bc 

FEB4 CD46BD cal BD46 Fließkommazahl nach Integer konvertieren 
FEB7 47 Id b,a 

FEB8 DCA9BD cal c,BDA9 Vorzeichen b in Integerzahl hi übernehmen 
FEBB C1 pop be 

FEBC C9 ret 
er ee Integerwert (h)) nach hi 
FEBD 7E Id a,(hi) 

FEBE 23 inc hl 

FEBF 66 Id h,(hi) 

FECO 6F 


Id l,a 
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FEC1 C9 ret 
ee BASIC-Funktion UNT 
FEC2 CD2DFF cal  FF2D numerisches Ergebnis holen 

FEC5 D8 rt  cC Integer ? 

FEC6 CD46BD cal BD46 Fließkommazahl nach Integer konvertieren 

FEC9 3007 jr nc,FED2 'Overflow’ 

FECB 47 Id b,a 

FECC FCA9YBD cal m,BDA9 Vorzeichen b in Integerzahl h| übernehmen 

FECF DAODFF ip c,FFOD Integerzahl in hl übernehmen 

FED2 1E06 Id e,06 'Overflow’ 

FED4 C394CA ip CA94 Fehlermeldung ausgeben 

FED? E5 push hl 

FED8 D5 push de 

FED9 C5 push bc 

FEDA 21C1B0 Id h1,B0C1 Variablentyp 

FEDD BE cp (hi) 

FEDE C4ESFE cal nz,FEES 

FEEI C1 pop be 

FEE2 Di pop de 

FEE3 E1 pp hl 

FEE4 C9 ret 

FEE5S D603 sub 03 

FEE7 38A4 jr c,FE8D CINT 

FEE9 CASCFF ip z,FF3C Typ 'String’, sonst "Type mismatch’ 
Br BASIC-Funktion CREAL 
FEEC CD2DFF cal FF2D numerisches Ergebnis holen 

FEEF DA6AFE ip c,FE6A Integer, dann umwandeln 

FEF2 C9 ret 

re Fließkommawert auf Null setzen 
FEF3 E5 push hl 

FEF4 210000 Id h1,0000 

FEF7 22C2B0 Id (BOC2),hl 

FEFA 22C4B0 Id (B0C4),hl 

FEFD 22C5B0 Id (BOC5),hl 

FF0O E1 pop hl 

FFO1 C9 ret 
Be BASIC-Funktion SGN 
FF02 CDA3FD cal FDA3 SGN 

FFO5 6F Id 1,a 

FFO6 87 add aa 

FFO7 9F sbc aa 

FF08 1802 jr FFOC 
rer Akkuinhalt als Intgerzahl übernehmen 
FFOA 6F Id 1,a Lo-Byte 

FFOB AF xor a Hi-Byte löschen 

FFOC 67 Id h,a 


rer Integerzahlin hl übernehmen 
FFOD 22C2B0 Id (B0C2),hl Zahl nach BOC2 
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FF10 3E02 Id a,02 Typ auf ’Integer’ 

FF12 32C1B0 Id (BOC1),a Variablentyp 

FF15 C9 ret 

terre Varlablentyp auf Fließkomma 
FF16 21C2B0 Id h1,B0C2 Zeiger auf Fließkommazahl 

FF19 3E05 Id a,05 Typ auf ’Real’ 

FFIB 18F5 jr FF12 
rer Varlablentyp holen, hi zeigt auf Variable 
FFID 21C1B0 Id h1,B0C1 Variablentyp 

FF20 4E Id c,(hi) nach c 

FF21 23 inc hl hi zeigt auf Variable 

FF22 09 ret 
tere & Varlablentyp holen 
FF23 3AC1BO Id a,(B0C1) Variablentyp 

FF26 C9 ret 
rar TestaufString 
FF27 3AC1BO Id a,(B0C1) Variablentyp 

FF2A FEO3 cp 03 'String’ ? 

FF2C C9 ret 
tr Numerisches Ergebnis holen 
FF2D 3AC1BO Id a,(B0C1) Variablentyp 

FF30 FEO3 cp 03 String ? 

FF32 280C jr z,FF40 ja, "Type mismatch’ 

FF34 2AC2BO Id hl,(B0C2) Integerwert laden 

FF37 D8 rt  c kein Fließkomma, fertig 

FF38 21C2B0 Id hl,B0C2 Adresse der Fließkommazahl 

FF3B C9 ret 

En ee ee ee ee ee 
FF3C CD45FF cal FF45 Test auf String 

FF3F CB ret z ja, ok 

FF40 1E0D Id e,0D 'Type mismatch’ 

FF42 C394CA jp CA94 Fehlermeldung ausgeben 
tree TestaufString 
FF45 3AC1B0 Id a,(B0C1) Variablentyp 

FF48 FEO3 pp 0 'String’ ? 

FF4A C9 ret 

EEE ee ee ee ee ee ee ee 
FF4B 32C1B0 Id (BOC1),a Variablentyp 

FF4E 11C2B0 Id de,B0C2 

FF51 1813 ir FF66 
Kr Ergebnis auf BASIC-Stack ablegen 
FF53 D5 push de 

FF54 E5 push hl 

FF55 3AC1BO Id a,(B0C1) Variablentyp 

FF58 4F Id c,a 

FF59 CDBOF5 cal F5BO Platz im BASIC-Stack reservieren 
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FF5C CD62FF 
FFSF E1 
FF60 D1 
FF61 C9 
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cal FF62 auf Stack ablegen 
pop hl 
pop de 


ret 


Kerr rer Varlable nach (hl) kopieren 


FF62 EB 
FF63 2102B0 
FF66 C5 
FF67 3AC1BO 
FF6A 4F 
FF6B 0600 
FF6D EDBO 
FF6F C1 
FF7O 09 


ex de,hl 

Id hl,B0C2 

push bc 

Id a,(B0C1) Variablentyp 

Id c,a 

Id b,00 

Idir Ergebnis kopieren 
pop be 


ret 


re TestaufBuchstaben 


FF71 CD8AFF 
FF74 FE41 
FF76 3F 
FF77 DO 
FF78 FESB 
FFTA C9 


cal FF8A Klein- in Großbuchstaben konvertieren 
cp 41 A 

ccf 

ret nc 

cp 5B 'Z+1 


ret 


er Testaufalphanumerisches Zeichen 


FF7B CD7IFF 
FFTE D8 
FFTF FE2E 
FF&81 37 
FF82 08 
FF83 FE3O 
FF85 3F 
FF86 DO 
FF87 FE3A 
FF89 C9 


cal FF7I Test auf Buchstaben 
ret c ja 

cp 2E N 

scf : 

ret zZ 

cp 30 vo 

ccf 

ret nc 

cp 3A ’9'+1 


ret 


er re Konvertierung Klein- zu Großbuchstaben 


FF8A FE61 
FF&C D8 
FF8D FE7B 
FFSF DO 
FF90 D620 
FF92 09 


cp 61 'a’ 

ret c 

cp 7B '7'+1 
ret nc 

sub 20 aA 


ret 


rer nachfolgende Tabelle durchsuchen 


FF93 F5 
FF94 05 


FF95 
FF96 
FF97 
FFO8 
FF99 
FFOA 
FFOB 
FFIC 


46 
23 
E5 
23 
23 
BE 
23 
2804 


push af 

push bc 

Id b,(hl) Tabellenlänge laden 

inc hl 

push hl Rücksprungadresse bei negativer Suche 
inc hl Zeiger auf nächstes Tabellenelement 

inc hl 

cp (hi) Zeichen vergleichen 

inc hl Zeiger erhöhen 

jr z,FFA2 gefunden 
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FFIE 05 
FFOF 20F7 
FFAI E3 
FFA2 Fi 
FFA3 TE 
FFA4 23 
FFA5 66 
FFA6 6F 
FFA7 C1 
FFA8B Fi 
FFA9 C9 


decc b 

jr nz,FF98 
ex (sp),hl 
pop af 

Id a,(hl) 
inc hl 

Id h,(hi) 

Id 1,a 

pop be 

pop af 


ret 
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Zähler erniedrigen 
Tabelle noch nicht zu Ende ? 
Rücksprungadresse laden 


Adresse nach hl 


ker Speicherbereich (hi) durchsuchen 


FFAA C5 
FFAB 4F 
FFAC TE 
FFAD B7 
FFAE 2805 
FFBO 23 
FFB1 B9 
FFB2 20F8 
FFB4 37 
FFB5 79 
FFB6 C1 
FFB7 C9 


push bc 

Id ca 

Id a,(hl) 
or a 

jr z,FFB5 
inc hl 

cp c 

jr nz,FFAC 
sc 

Id ac 
pop be 


ret 


bis (hl) = a (c=1) oder (hi) = 0 (c=0) 
anachc 


Null ? 


gleich ürsprunglicher a ? 
Carry setzen 


tr Testhl=de? 


FFB8 7C 
FFB9 92 
FFBA CO 
FFBB 7D 
FFBC 93 
FFBD C9 


Id a,h 
sub d 
ret nz 
Id a,l 
sıb e 


ret 


h-d 


I-e 


rk Testhl=be? 


FFBE 7C 
FFBF 90 
FFCO CO 
FFC1 7D 
FFC2 91 
FFC3 C9 


Id a,h 
sıb b 
ret nz 
Id al 
sub c 


ret 


h-b 


I-c 


rer dei=de-hi 


FFC4 C5 
FFC5 47 
FFC6 7D 
FFC7 93 
FFC8 SF 
FFC9 7C 
FFCA 9A 
FFCB 57 
FFCC 78 
FFCD C1 
FFCE C9 


push bc 
Id b,a 
Id a,l 
sıb e 

Id e,a 
Id a,h 
sbc ad 
Id d,a 
Id a,b 
pop bc 


ret 


bc retten 
aretten 


e-| 


d-h 


a zurück 
bc zurück 
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FFCF C5 push bc bc retten 

FFDO 47 Id b,a aretten 

FFDI 7D Id a,l 

FFD2 93 sıb e I-e 

FFD3 6F Id 1,a 

FFD4 7C Id a,h 

FFD5 9A sbc ad h-d 

FFD6 67 Id h,a 

FFD7 78 Id a,b a zurück 

FFD8 01 pop be bc zurück 

FFDI C9 ret 
ne bie hl - de 
FFDA E5 push hl hirretten 

FFDB 67 Id h,a aretten 

FFDC E3 ex (sp),hl hi wiederherstellen 
FFDD 7D Id a,l 

FFDE 93 sıb e I-e 

FFDF 4F Id c,a nach c 

FFEO 7C Id a,h 

FFEI 9A sbc ad h-d 

FFE2 47 Id b,a nach b 

FFE3 E3 ex (sp),hl 

FFE4 7C Id a,h a zurück 

FFE5 E1 pp hl hl zurück 

FFE6 C9 ret 
nee hli=hl- bc 
FFE7 D5 push de de retten 

FFE8 57 Id d,a aretten 

FFE9 7D Id al 

FFEA 91 sub c I-c 

FFEB 6F Id l,a 

FFEC 7C Id a,h 

FFED 98 sbc ab h-b 

FFEE 67 Id h,a 

FFEF 7A Id a,d a zurück 

FFFO D1 pop de de zurück 

FFFI (09 ret 
nee Blocktransfer ldir 
FFF2 EDBO Idir 

FFF4 09 ret 
nee Blocktransfer Iddr 
FFF5 EDB8 Iddr 

FFF7 C9 ret 


Br SPFUNg Nach (h]) 
FFF8 E9 ip (hi) 


Kerr Sprung nach (bc) 
FFF9 05 push bc 
FFFA C9 ret 


Krk Sprung nach (de) 
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FFFB D5 
FFFC C9 


FFFD C7 
FFFE (7 
FFFF 54 
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push de 
ret 

rst 0 
rst 0 
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4.1 Die Betriebssystem Routinen 


Wir haben hier die Routinen und Tabellen des Betriebssystems aufgeli- 
stet, soweit sie uns bekannt sind. 

Achtung: Versuchen Sie nie, die Routinen unter den hier erscheinenden 
Adressen anzuspringen, wenn Sie nicht mit dem Mechanismus zur Um- 
schaltung der Speicherkonfiguration vertraut sind! 

Benutzen Sie lieber die im Kapitel 2.1 aufgeführten Vektoren. 

Diese Aufstellung dient in erster Linie dazu, die Vektoren gleichen Na- 
mens im Listing schnell auffinden zu können. 


0030 RST6 USER 

0040 Bis hierher wird ins Ram kopiert 
0044 Restore High Kernel Jumps 
005C KL CHOKE OFF 

0099 KL TIME PLEASE 

00A3 KLTIMESET 

00B1 Scan Events 

0153 Kick Event 

0163 KLNEW FRAMEFLY 
016A KLADDFRAMEFLY 
0176 KLNEW FAST TICKER 
017D KL ADD FAST TICKER 
0183 Delete Fast Ticker 

0189 Ticker Chain bearbeiten 
01B3 KL ADD TICKER 

01C5 Delete Ticker 

01D2 KLINITEVENT 

O1E2 KLEVENT 

021A KLDOSYNC 

0228 KLSYNC RESET 

022F Sync Event einhängen 
0256 KLNEXTSYNC 

0277 KLDONESYNC 

0285 KLDELSYNCHRONOUS 
028E KLDISARM EVENT 
0295 KLEVENT DISABLE 
029B KLEVENTENABLE 
02Al1l KLLOGEXT 

02B2 KLFIND COMMAND 
0329 KLROM WALK 

0332 KLINITBACK 

0373 AddEvent 

0382 Delete Event 

03B2 KLPOLLSYCHRONOUS 
03CA RST 7 INTERRUPT ENTRY CONT'D 
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0401 
040D 
0413 
0442 
044A 
0450 
04A1 
04A7 
04BF 
04DB 
04E5 
O4EF 
04F9 
0503 
050F 
0514 
051D 
0533 
0537 
053D 
0543 
055C 
056D 
0580 
05B4 
05C4 
05DC 
060B 
065C 
066D 
0693 
O6EB 
06F4 
0727 
0776 
0786 
0799 
07AB 
07BA 
07C6 
07E6 
07F2 
07F8 
0807 
081B 
0826 
0846 


EXT INTERRUPT ENTRY 
KL LOW PCHL CONT'D 
RST 1 LOW JUMP CONT'D 
KL FAR PCHL CONT'’D 
KLFARICALL CONT'’D 
RST 3 LOW FAR CALL CONT'’D 
KL SIDE PCHL CONT’D 
RST 2 LOW SIDE CALL CONT'D 
RST 5 FIRM JUMP CONT'D 
KLLROM ENABLE 
KLLROM DISABLE 
KLUROM ENABLE 

KL UROM DISABLE 

KL ROM RESTORE 

KL ROM SELECT 

KL PROBE ROM 

KL ROM DESELECT 

KL CURR SELECTION 
KL LDIR 

KL LDDR 

Rom off & Konfig. save 
RAMLAM 

RAMLAM (IX) 

RESET CONT'D 

Tabelle 60Hz 

Tabelle 50Hz 

MC BOOT PROGRAM 
MCSTART PROGRAM 
Kaltstart 
Einschaltmeldung 
Copyright-Meldung 
Meldungen ausgeben 
Ladefehler-Meldung 
Firmennamen 

MC SET MODE 

MC CLEAR INKS 
MCSETINKS 

Farbe ausgeben 

MC WAIT FLYBACK 
MCSCREEN OFFSET 
MC RESET PRINTER 

MC PRINT CHAR 

MC WAIT PRINTER 

MC SEND PRINTER 

MC BUSY PRINTER 

MC SOUND REGISTER 
Scan Keyboard 
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0888 
08AC 
0A28 
0A8A 
OAAO 
OAB1 
0ACA 
OAEC 
OAF7 
OB11 
OB2E 
0B36 
OB3A 
0OB3C 
0B45 
0B50 
0B57 
0B64 
0OBA9 
OBF9 
0C05 
0C13 
0C2D 
0C49 
0C68 
0C6B 
0C72 
0077 
0C7D 
0C82 
0C86 
0CAO 
0CD2 
0OCE4A 
OCE8 
OCEC 
OCF1 
OCF2 
0ODOA 
0D14 
0D19 
0OD1A 
OD2F 
0D5B 
0D6D 
0D81 
0D93 


JUMP RESTORE 
Main Jump Adır. 

Basic Jump Aaır. 
Move (hl+3)3»((hl+1)),cnt=(hl) 
SCR INITIALISE 

SCR RESET 
SCR SET MODE 

SCR GET MODE 

SCR MODE CLEAR 
Bit Masken laden 

Bit Masken Mode 2 
Bit Masken Mode 1 
Bit Masken Mode 0 
SCR SET OFFSET 
SCR SET BASE 

SCR GET LOCATION 
SCR CHAR LIMITS 
SCR CHAR POSITION 
SCR DOT POSITION 
SCR NEXT BYTE 
SCR PREV BYTE 
SCR NEXT LINE 

SCR PREV LINE 

SCR ACCESS 

SCR WRITE 

SCR PIXELS (FORCE Mode) 
XOR Mode 

AND Mode 

OR Mode 

SCR READ 

SCR INK ENCODE 
SCR INK DECODE 
Reset Farben 

SCR SET FLASHING 
SCR GET FLASHING 
SCRSET INK 

SCR SET BORDER 
Set Colour 
Farbmatrix Eintrag holen 
SCR GET INK 

SCR GET BORDER 
Get Colour 

Ink Adr. holen 

Set Inks on Frame Fly 
Flash Inks 

Params d. lfd Farbsatz holen 
Farbmatrix 
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ODB3 
ODB7 
ODDF 
ODF2 
ODFA 
OE3E 
OEF3 
OF49 
OFC4 
102F 
104D 
1078 
1088 
10A3 
10E8 
1107 
1122 
112A 
113D 
115E 
1169 
1174 
1180 
118A 
1197 
11A8 
11CE 
11DA 
120C 
1256 
1263 
1268 
1279 
1281 
1289 
128B 
129A 
129C 
12A9 
12AE 
12BD 
12C3 
12C9 
12D3 
12F1 
12FD 
132A 


SCR FILL BOX 

SCR FLOOD BOX 

SCR CHAR INVERT 
Farbspeicher adressieren 
SCR HW ROLL 

SCR SW ROLL 

SCR UNPACK 

SCR REPACK 

SCR HORIZONTAL 

SCR VERTICAL 

Default Farben 

TXT INITIALISE 

TXT RESET 

Reset Params (alle Fenster) 
TXT STRSELECT 

TXT SWAP STREAMS 

ldir cnt=15 

Adr. Fenster Params )» de 
TXT Default Params setzen 
TXT SET COLUMN 

TXT SET ROW 

TXT SET CURSOR 

TXT GET CURSOR 

lfd Fenst. oben,links+hl 
lfd Fenster oben,links—hl 
move Cursor 

TXT VALIDATE 

hl innerhalb Fenstergrenzen? 
TXT WIN ENABLE 

TXT GET WINDOW 

TXT DRAW/UNDRAW CURSOR 
TXT PLACE/REMOVE CURSOR 
TXT CURON 

TXT CUR OFF 

TXT CUR ENABLE 

Cur Enable Cont’d 

TXT CUR DISABLE 

Cur Disable Cont’d 

TXT SET PEN 
TXT SET PAPER 

TXT GET PEN 
TXT GET PAPER 

TXT INVERSE 

TXT GET MATRIX 

TXT SETMATRIX 

TXT SETM TABLE 

TXT GETM TABLE 
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1334 
134.A 
137A 
1387 
13A7 
13AB 
13C0 
1400 
140C 
144B 
1451 
146B 
14CB 
14D8 
14E3 
14E8 
14F1 
14F8 
1504 
150A 
150F 
1514 
1519 
152A 
1530 
1538 
1540 
154F 
1556 
156D 
1584 
158E 
15BO 
15DF 
15F1 
15FC 
1612 
161A 
161D 
1657 
1734 
1779 
17A6 
17BC 
17C5 
17F6 
17FD 


TXT WRCHAR 

TXT WRITE CHAR 
TXT SET BACK 

TXT GET BACK 

TXT SET GRAPHIC 

TXT RDCHAR 

TXT UNWRITE 

TXT OUTPUT 

TXT OUT ACTION 

TXT VDU DISABLE 

TXT VDU ENABLE 

Default Steuerzeichen Sprünge 
TXT GET CONTROLS 

07 Klingel 

16 Transparentmode Ein/Aus 
1C =INK Befehl 

1D =BORDER Befehl 

1A Fenster definieren 

19 =SYMBOL Befehl 

08 CRSRLEFT 

09 CRSR RGHT 

0A CRSR DOWN 

OB CRSR UP 

1E CRSR HOME 

OD CRSR auf Zeilenanfang 

1F =LOCATE Befehl 

TXT CLEAR WINDOW 

10 Zeichen auf CRS Pos löschen 
14 Fenster ab CRS Pos löschen 
13 Fenster bis CRS Pos löschen 
12 Zeile ab CRS Pos löschen 

11 Zeile bis CRS Pos löschen 
GRA INITIALISE 

GRA RESET 

GRA MOVE RELATIVE 

GRA ASK CURSOR 

GRA GET ORIGIN 

phys Startposition holen 

phys Zielpos holen + Cur setzen 
Add lfd Koord. + rel Koord. 
GRA WIN WIDTH 

GRA WIN HEIGHT 

GRA GET W WIDTH 

GRA GET W HEIGHT 

GRA CLEAR WINDOW 
GRASET PEN 

GRA SET PAPER 


529 


1804 
180A 
1810 
1813 
1816 
1824 
1827 
182A 
1836 
1839 
183C 
1945 
19E0 
1AlE 
1A3C 
1A42 
1A81 
1AB3 
1ABD 
1AE5 
1B22 
1B2E 
1B3E 
1B56 
1B5C 
1BB3 
1BB7 
1C2F 
1C5C 
1C69 
1C6D 
1C71 
1082 
1C90 
1CBD 
1CCD 
1CE5 
1D3E 
1D43 
1D48 
1D4B 
1D52 
1D57 
1D5C 
1D5F 
1D69 
1DB9 


GRA GET PEN 

GRA GET PAPER 
GRA PLOT RELATIVE 
GRA PLOT ABSOLUTE 
GRA PLOT 

GRA TEST RELATIVE 
GRA TEST ABSOLUTE 
GRA TEST 

GRA LINE RELATIVE 
GRA LINE ABSOLUTE 
GRALINE 

GRAWR CHAR 

KM INITIALISE 

KM RESET 

KM WAIT CHAR 

KM READ CHAR 

KM EXP BUFFER CONT'D 
Default Exp String 

KM SET EXPAND 

Exp Buffer aufräumen 
Platz f. neuen Exp String? 
KM GET EXPAND 

Adr. Exp String nach de 
KM WAIT KEY 

KM READKEY 

KM GET STATE 
Update Key State Map 
KM TEST BREAK 

KM GET JOYSTICK 
KM GET DELAY 
KMSET DELAY 

KM ARM BREAK 

KM DISARM BREAK 
KM BREAK EVENT 
KM TEST KEY 

der Key# entspr. Bit holen 
Bit Masken 

KM GET TRANSLATE 
KM GET SHIFT 

KM GET CONTROL 
Get Key Table 

KM SET TRANSLATE 
KM SET SHIFT 

KM SET CONTROL 
Set Key Table 

Key Translation Table 
Key SHIFT Table 
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1EO09 
1E68 
1ECB 
1EE6 
1F03 
1F61 
1F9F 
204A 
206C 
2089 
2273 
2338 
233D 
2340 
2349 
234E 
2351 
2370 
237F 
238E 
2392 
23AB 
23AF 
23FC 
2401 
2415 
242E 
2435 
245B 
248B 
248E 
2496 
249 A 
24AB 
24EA 
2528 
253F 
271F 
2780 
27C5 
2836 
283F 
2851 
2873 
29CD 
2A37 
2A4B 


Key CTRL Table 

SOUND RESET 

SOUND HOLD 

SOUND CONTINUE 

Sound Event 

Scan Sound Queues 
SOUND QUEUE 

SOUND RELEASE 

SOUND CHECK 
SOUND ARM EVENT 
Lautstärke setzen 

SOUND AMPL ENVELOPE 
SOUND TONE ENVELOPE 
Hüllhurve kopieren 
SOUND A ADDRESS 
SOUND T ADDRESS 
Hüllkurve Adresse holen 
CAS INITIALISE 
CAS SET SPEED 

CAS NOISY 

CASIN OPEN 

CAS OUT OPEN 

CAS Open 

CASIN CLOSE 

CASIN ABANDON 

CAS OUT CLOSE 
CASOUT ABANDON 
CASIN CHAR 

CASOUT CHAR 

Check Input Buffer Status 
Check Buffer Status 

CAS TEST EOF 

CAS RETURN 

CASIN DIRECT 

CAS OUT DIRECT 

CAS CATALOG 

File Header lesen 

CAS Meldung (# inb) ausgeben 
CAS Meldung (1 Zeichen) ausg. 
Kassetten-Meldungen 
CAS READ 

CAS WRITE 

CAS CHECK 

Motor Ein & Keyb. öffnen 
CAS Input RDDATA & Test ESC 
CAS Output WR DATA 
CAS START MOTOR 
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2A4AF 
2A51 
2A98 
2AC6 
2AEO 
2B1C 
2B2B 
2B2F 
2B33 
2B37 
2B3B 
2B42 
2B61 
2B69 
2B75 
2B7E 
2B89 
2B92 
2BAA 
2BB3 
2BBD 
2BC7 
2BF9 
2C01 
2C3D 
2C4A 
2C98 
2C9D 
2CA2 
2CA7 
2CEA 
2DD9 
2DF6 
2E18 
2E29 
2E55 
2E5E 
2E66 
2E8E 
2EA1 
2EAC 
2EB6 
2F94 
2FA1 
2FB7 
2FD1 
2FE6 


CAS STOP MOTOR 

CAS RESTORE MOTOR 
EDIT 

EDIT Sprung ausführen 
EDIT Sprungtabelle 1 
EDIT Sprungtabelle 2 
KLINGEL 

CRSR UP 

CRSR DWN 

CRSR RGHT 

CRSR LEFT 

ESC 
#*BREAK«*-Meldung 
ENTER 

CRSR RGHT (Puffer) 
CRSR DWN (Puffer) 

CTRL & CRSR RGHT 
CTRL & CRSR DWN 
CRSR LEFT (Puffer) 
CRSR UP (Puffer) 

CTRL & CRSR LEFT 
CTRL & CRSR UP 

CTRL & TAB (Flip Insert) 
Zeichen einfügen 

DEL 

CLR 

SHFT & CRSR RGHT 
SHFT & CRSR LEFT 
SHFT & CRSR UP 

SHFT & CRSRDWN 
COPY 

Zeichen von Keyboard 
EDIT Sprungadr holen 
FLO Variable von (de) ?» (hl) kopieren 
FLO Int DD Flo 

FLO 4-Byte-Wert I» Flo 
FLO 4-Byte-Wert x 256 I» Flo 
FLO Flo 2 Int 

FLO Flo 32 Int 

FLO FIX 

FLOINT 

FLO 

FLO RND Init 

FLO Set RND Seed 

FLO RND 

FLO Zahl mit 10la multiplizieren. 
FLO Letzten RND-Wert holen. 
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300F 
3014 
3090 
310A 
310D 
31A3 
31AE 
31B2 
31BC 
3231 
3241 
3337 
333B 
333F 
3415 
349E 
3578 
359A 
35E8 
35F8 
3708 
370E 
3715 
3728 
3730 
3731 
3739 
3750 
377A 
3781 
378C 
37D4 
37EO 
37E9I 


FLO LOG10 

FLO LOG 

FLO EXP 

FLO SOR 

FLO Potenzierung 

FLOPI 

FLO DEG / RAD 

FLO COS 

FLO SIN 

FLO TAN 

FLO ATN 

FLO Subtraktion 

FLO Subtraktion 

FLO Addition 

FLO Multiplikation 

FLO Division 

FLO Zahl mit 2la multiplizieren. 
FLO Vergleich 

FLO SGN 

FLO Vorzeichenwechsel 

INT 

INT 

INT Vorzeichen in b übernehmen. 
INT Addition 

INT Subtraktion 

INT Subtraktion 

INT Multiplikation mit Vorzeichen 
INT Multiplikation ohne Vorzeichen 
INT Division mit Vorzeichen 
INT MOD 

INT Division ohne Vorzeichen 
INT Vorzeichenwechsel 
INTSGN 

INT Vergleich 


533 


4.2 Referenzen zum System RAM 


Im Folgenden finden Sie zu jeder Ram- Adresse, soweit sie im Rom-Li- 
sting des Betriebssystems auftaucht, Querverweise auf die Stellen, wo 
sie benutzt wird. 

Das ist dann sehr hilfreich, wenn Sie die Inhalte mit eigenen Programmen 
manipulieren und plötzlich ein anderer Wert als erwartet darinsteht. 
Hier können Sie nun nachsehen, welche Routinen auf die betreffende 
Adresse zugreifen. 


B100 :0066 O0OF2 011D 0127 061C 

B101 :00EC O061F 

B102 :00F5 OOFE 0102 

B104 :00E2 O00F8 0114 0132 0142 O3E1 

B105 :010A 014E 

B187 :009E O00AC O00B1 010E 

B189 :009A 00A8 

B18B : 00A5 

B18C :00BF 016A 0170 

B18E :00C7 017D 0183 

B190 :00DC 0189 01BF 01C5 

B192 : 00D2 

B193 :0257 026F 0288 03B9 

B194 :022B O03B2 

B195 :0264 026C 0277 0295 029B 03C3 

B196 :0231 02B2 030A 

B1A6 :02A2 02A6 02BF 

B1A8 :0080 034B 0467 0499 0529 0533 

B1A9 :0060 0086 0096 

B1AA : 0348 

B1AB :005D 0083 04B9 

B1C8 :0OAEC 0B28 

B1C9 :0B40 0B50 0B84 OBDD O0E24 0E37 

B1CA : 0BOO 

B1iCB :0AA8 0B47 0B53 OB8D OBE6 OE2C 

B1CC : 0061 

B1CD : 0C64 

B1iCF :0B20 OBF1 OC8E O0CA2 O0FO8 OF18 OF32 OF66 OF7D 
OFA1 1015 

B1D7 :OCE4 OCE8 OD8F 

B1D8 : 0D88 

B1D9 :0CD5 O0D8C 

B1EA :0D32 0D81 

B1FB :0OCDE O0D76 0D84 

BiFC :0D06 O0D7D 

B1FD :0D5B O0D70 
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BiFE : 
B207 : 
B20C : 
B20D : 
B285 : 


B287 : 
B288 : 


B289 : 
B28A : 
B28B : 
B28C : 
B28D : 
B28E : 
B28F : 


B290 : 


B291 


B293 : 
B294 : 
B295 : 
B296 : 
B298 : 
B2B8 : 
B2B9 : 
B2C3 : 
B328 : 
: 1608 
:15F4 
:15F8 
: 1666 
:1670 
:167A 
: 1683 
:17F9 
:17EC 
:1898 
:18C6 
:18C9 
: 18BE 
:1841 


B32A 
B32C 
B32E 
B330 
B332 
B334 
B336 
B338 
B339 
B33A 
B33C 
B33E 
B340 
B342 


B344 


B346 
B43C 


193A 


:1845 


1920 


:18BA 
:19EF 


OD4F 
OFFE 
10B7 


1139 
1546 
125D 
118A 


1190 
1230 
11EE 
11B6 
1263 


10DE 


10EA 


1163 
1560 


1197 


119F 
1259 
1573 


1291 


126E 


12AE 
1387 


13E9 
145C 


14CB 
1637 
164E 
1658 
165E 
16DA 
16E8 
16A4 
1691 
181D 
180A 
1911 


18E1 
1859 


1864 


1107 


116E 
1577 


11F3 
11E1 
1549 
1588 
12A2 
12A9 


12C3 


1110 


117A 


122D 


11E6 
155C 


12BD 


13D3 


1700 
170A 
1720 
1716 
192F 


194.A 


18A2 


18A9 
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1180 


1256 


1533 


12C9 


1566 


1758 
175C 
178A 
178E 


18A6 


18AF 


11AB 


152A 


1593 


12CF 


157D 


17A6 
17AA 
17BC 
17C0 


18F7 


1903 


11B1 


1543 


1391 


1597 


17E2 


17D9 
17D5 


18FD 


1915 


133F 


1559 


139F 


1927 


191A 


B446 : 1A24 

BA4DE : 1AAC 1A6D 

BADF : 1AAF 1ADA 

B4EO :1AA43 1A77 

B4E1 : 1A8E 1B44 

B4E3 : 1A8A 1B05 

B4E5S :1AAC 1B0O0O 1B11 1B1C 1B22 
B4E6 : 1B27 

B4E7 :19EC 1B8D 1BA6 1BB3 
B4E8 : 1B76 

B4E9 :1C15 1C69 1C6D 
B4EA : 1C4F 

B4EB : 1AOF 1BCE 1BFD 1CC5 
B4ED : 1BC6 1CBE 

B4F1 : 1C5C 

B4F3 : 1C2F 

B4F4 : 1C62 

BAF5 : 1BBA 

BAFF : 1BB7 1BCB 

B501 :1BCO 

B509 :ı1BF1 1C09 1C18 
B50A : 1BF6 1C23 

B5OB : 19E7 

B50C : 1C7E 1C84 1C90 

B50D : 1074 

B51D :1E9D 1EEB 1F12 1F48 1FAD 1FD2 2052 
B520 : 206F 

B522 : 1F74 

B539 : 208D 

B53C :1CEE 1CFE 1D26 

B5S3E : 1DOF 1D15 

B540 :1C0OD 1DOB 1D22 

B541 :1A01 1D3E 1D52 

B543 :19FD 1D43 1D57 

B545 :19F9 1D48 1D5C 

B547 :ı9F5 1C02 1CA6 1CAE 
B550 :1F05 20B2 

B551 :1E6D 1EE6 201F 20F5 
B552 :1E6A 1ECB 1F61 2283 
B554 :1F5B 1F97 

B555 : 1E70 

B55C :1E80 2125 

B59B :212D 2150 

B5DA : 2135 2148 

B60A :219A 2338 2349 

B619 :1E7D 2292 

B6FA :233D 234E 
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B800 : 238E 2695 2760 

B801 :269A 2705 279F 

B802 :2392 23FC 2401 248B 2528 256E 25A9 27BF 

B803 :24CF 2530 257D 

B805 : 2451 2456 24A2 24A6 2580 

B807 :25D6 25E1 25F3 

B817 :258A 

B818 : 253F 

B819 : 23A6 

B81A :243F 244A 244E 249B 249F 24BC 24D6 259A 

B81C :239E 24B2 24B9 24C1 24D2 256B 

B81E : 2594 25CA 

B8iF :23A2 

B847 :23AB 2415 242E 245F 24ED 2667 

B848 :2504 251B 262C 

B84A : 247F 2484 262F 

B84C :261E 2636 

B85C : 265B 

B85D : 241F 264D 

BSSE : 24F9 

B85F :2469 2478 247C 2507 2514 2644 2658 

B861 : 2632 

B863 :2624 2660 

B864 :24FC 

B866 : 2500 

B88C :254C 25DE 25F6 2692 

B89D : 258E 

B89YF : 2567 2597 

B8A3 : 25DO 

B8A6 : 24CA 

BSCC : 240C 2673 

B8CD : 2873 295D 2973 

BSCE : 2956 29B3 

B8DO :2A08 2A1B 

B8D1 : 238A 

B8D2 : 2AOC 

B8D3 :28B1 2990 29A2 29A6 

B8DC :2C1E 2C35 2C5B 2C67 2DCE 

B8SDD : 2AA5 2BF9 2BFD 2C04 

B8DE : 2C72 2C76 2C83 2C94 2CAC 2CC4 2CD5 2CFO 2CFE 
2D11 2D1A 2D36 
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4.3 Die BASIC-ROM-Routinen 


C006 
CO3F 
C052 
C064 
cocc 
COD3 
COD6 
CODF 
C12B 
C132 
C13E 
C18C 
C1DO 
C1E3 
C20A 
C212 
C221 
C22A 
C23C 
C24C 
C24F 
C25A 
C262 
C276 
C290 
C2D2 
C2E1 
C2FD 
C312 
C319 
C320 
C327 
C337 
C341 
C34E 
C386 
C3A8 
C3B5 
C3DF 
C3E3 
C417 
C424 
C42C 
C439 
C453 


BASIC -Initialisierung 

" BASIC 1.0’, LF, LF 
BASIC-Befehl EDIT 
READY-Modus 

'Ready’, LF 

AUTO-Modus löschen 
AUTO-Modus setzen 
BASIC-Befehl AUTO 
BASIC-Befehl NEW 
BASIC-Befehl CLEAR 
Programm und Variablen löschen 
Variablen löschen 
Streamnummer holen 
Streamnummer testen 
BASIC-Befehl PAPER 
BASIC-Befehl PEN 
BASIC-Befehl BORDER 
BASIC-Befehl INK 

Argument(e) < 32 holen 
Argument < 16 holen 
BASIC-Befehl MODE 
BASIC-Befehl CLS 
BASIC-Funktion VPOS 
BASIC-Funktion POS 

aktuelle Spaltennummer holen 
BASIC-Befehl LOCATE 

BASIC -Befehl WINDOW 
WINDOW SWAP 

Argument <8holen 
BASIC-Befehl TAG 
BASIC-Befehl TAGOFF 

2 8-Bit-Werte ungleich Null holen 
String auf Stream Null ausgeben 
String ausgeben 

Linefeed ausgeben 

Bildschirm initialisieren 

CR & LF ausgeben 

Zeichen auf Drucker ausgeben 
aktuelle Druckerposition holen 
BASIC-BEFEHL WIDTH 
reservierte Variable EOF 

ein Zeichen vom Eingabestrom holen 
auf ein Zeichen von Tastatur warten 
Tastatur lesen 

Unterbrechnung durch 'Break’ erlauben 
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C45E 
C46F 
C48C 
C4aC6 
CACB 
C4DO 
C4aD5 
C4E9 
C4AEE 
C505 
C50A 
C51A 
C529 
C5FB 
C632 
C6C7 
C6E8 
C6ED 
C70F 
C72E 
C747 
C776 
C7E3 
C807 
C8CB 
C8E1 
C8E7 
C8ED 
C940 
C95D 
C971 
C979 
C99F 
C9B1 
C9C5 
CA18 
CA3B 
CA43 
CAAC 
CA84 
CAB8F 
CA94 
CB23 
CB4F 
CB5A 
CB65 
CBCO 


Break-Event Routine 

Warten auf Tastendruck nach '’ESC’ 
BASIC-Befehl ORIGIN 
BASIC-Befehl DRAW 
BASIC-Befehl DRAWR 
BASIC-Befehl PLOT 
BASIC-Befehl PLOTR 
BASIC-Funktion TEST 
BASIC-Funktion TESTR 
BASIC-Befehl MOVE 
BASIC-Befehl MOVER 

2 Integerargumente holen 
BASIC-Befehl FOR 
BASIC-Befehl NEXT 

offene FOR-Next-Schleife suchen 
BASIC-Befehl IF 

BASIC-Befehl GOTO 
BASIC-Befehl GOSUB 
BASIC-Befehl RETURN 

GOSUB auf BASIC-Stack suchen 
BASIC-Befehl WHILE 
BASIC-Befehl WEND 
BASIC-Befehl ON 
Event-Verarbeitung 
BASIC-Befehl ON BREAK 
BASIC-Befehl DI 
BASIC-BefehlEI 

SOUND- und Event-Reset 
BASIC-Befehl ON SQ 

Adresse der Sound-Queue berechnen 
BASIC-Befehl AFTER 
BASIC-Befehl EVERY 
BASIC-Funktion REMAIN 
Adresse des Event-Blocks berechnen 
zugehöriges NEXT suchen 
zugehöriges WEND suchen 
Eingabezeile holen 

Zeile editieren 

Eingabezeile von Kassette holen 
Fehlernummer und -Zeile löschen 
BASIC-Befehl ERROR 
Fehlermeldung ausgeben 
'Undefined line’ 

'Break', 'in' 

BASIC-Befehl STOP 
BASIC-Befehl END 
BASIC-Befehl CONT 
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CBE5 
CBF8 
CC03 
CC45 
CC5B 
CE67 
CE6D 
CE7C 
CE86 
CE91 
CEYF 
CEA5 
CEBO 
CEE1 
CEFB 
CF07 
CF30 
CF59 
CF81 
CFA9 
CFB9 
CFC2 
CFCE 
DOOD 
DO2C 
D070 
D080 
DOCA 
DODC 
DOES 
DOEE 
DOF4 
DOFA 
D107 
D10F 
D117 
D130 
D190 
D1EA 
DI1EE 
D219 
D246 
D256 
D25F 
D298 
D2A1 
D2AD 


ON ERROR 

ON ERROR GOTOO 
BASIC-Befehl RESUME 

Zeiger auf Fehlermeldung setzen 
Fehlermeldungen 

8-Bit-Wert holen 

8-Bit-Wert ungleich Null holen 
16-Bit-Wert O0 bis 32767 holen 
Integerwert — 32768 bis +32767 holen 
16-Bit-Wert -32768 bis +65535 holen 
Stringausdruck holen, Parameter bereitstellen 
Stringausdruck holen 
Zeilennummernbereich holen 
Zeilennummer nach de holen 
Ausdruck holen 

Term holen 

arithmetische Operatoren 
Vergleichsoperatoren 

Tabelle der BASIC-Operatoren 
arithmetischer Vergleich 
negatives Vorzeichen 
BASIC-Operator NOT 

Ausdruck holen 

Variable holen 

numerische Konstante holen 
Ausdruck in Klammern holen 
Funktionsberechnung 

Adressen der reservierten Variablen 
reservierte Variable ERR 
reservierte Variable TIME 
reservierte Variable ERL 
reservierte Variable HIMEM 
Variablenpointer, 'Klammeraffe’ 
reservierte Variable XPOS 
reservierte Variable YPOS 
BASIC-Befehl DEF 
BASIC-Funktion FN 

Adressen der BASIC-Funktionen 
BASIC-Funktion MIN 
BASIC-Funktion MAX 
BASIC-Funktion ROUND 
BASIC-Befehl CAT 
BASIC-Befehl OPENOUT 
BASIC-Befehl OPENIN 
BASIC-Befehl CLOSEIN 
BASIC-Befehl CLOSEOUT 
Kassetten-V/O abbrechen 
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D2CO 
D30D 
D31E 
D329 
D341 
D34E 
D385 
D3FF 
D409 
D423 
D439 
D456 
D494 
D4AB 
D4C3 
D4DB 
D4E7 
D4EB 
D4EF 
D4F4 
D519 
D520 
D525 
D52A 
D52F 
D534 
D539 
D53E 
D53E 
D559 
D584 
D5AE 
D5D2 
D5EA 
D5FC 
D614 
D618 
D61C 
D654 
D67D 
D686 
D690 
D708 
D7B5 
D7DB 
D906 
D97F 


BASIC-Befehl SOUND 

falls vorhanden 8-Bit—-Wert holen 
BASIC-Befehl RELEASE 
BASIC-Funktion SQ 

Argument -128 bis +127 holen 
BASIC-Befehl ENV 
BASIC-Befehl ENT 

Argument 0 bis 4095 holen 
BASIC-Funktion INKEY 
BASIC-Funktion JOY 
BASIC-Befehl KEY 

KEY DEF 

BASIC -Befehl SPEED 

SPEED KEY & INK 

SPEED WRITE 

reservierte Variable PI 
BASIC-Befehl DEG 
BASIC-Befehl RAD 
BASIC-Funktion SOR 
BASIC-Operator 'T 
arithmetische Funktion aufrufen 
BASIC-Funktion EXP 
BASIC-Funktion LOG10 
BASIC-Funktion LOG 
BASIC-Funktion SIN 
BASIC-Funktion COS 
BASIC-Funktion TAN 
BASIC-Funktion ATN 
'?Random seed’ 

BASIC-Befehl RANDOMIZE 
BASIC-Funktion RND 
Variablenzeiger rücksetzen 
Flag für FN löschen 
Tabellenadresse für Array berechnen 
Variablentypen A-Z auf 'Real’ 
BASIC-Befehl DEFSTR 
BASIC-Befehl DEFINT 
BASIC-Befehl DEFREAL 
BASIC-Befehl LET 
BASIC-Befehl DIM 
BASIC-Variable suchen 
Variablenadresse holen 

Array suchen 
Variablendimensionierung 
Test auf Dimensionierte Variable 
Variablenname holen 
Variablentyp feststellen 
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D999 
D9CO 
DICC 
DAF8 
DB1A 
DB2B 
DB47 
DB77 
DBAD 
DCD9I 
DCEB 
DD37 
DD3F 
DD4A 
DD55 
DD61 
DD71 
DDAB 
DDD2 
DDD6 
DDE2 
DDE6 
DDEB 
DEO1 
DEE1 
DFDC 
EOF7 
E10D 
E145 
E155 
E163 
E277 
E27D 
E288 
E2A3 
E2AE 
E2C8 
E354 
E388 
E64B 
E676 
E69D 
E6BC 
E6D2 
E728 
E767 
E79A 


Arraytabelle updaten 

BASIC-Befehl ERASE 

Array löschen 

BASIC -Befehl LINE 

Eingabe vom aktiven Gerät holen 
BASIC-Befehl INPUT 

Eingabe holen und umwandeln 

'?Redo from start’ 

Eingabe von Tastatur holen 
BASIC-Befehl RESTORE 
BASIC-Befehl READ 

Test auf nachfolgendes Zeichen 
Blanks überlesen 

Test auf Ende des Statements 
nächstes Zeichen auf Komma testen 
Blank, TAB und LF überlesen 
Interpreterschleife 

BASIC-Befehl ausführen 

aktuelle Zeilenadresse holen 

aktuelle Zeilenadresse holen und Test auf Direktmodus 
BASIC-Befehl TRON 

BASIC-Befehl TROFF 
TRACE-Routine 

Adressen der BASIC -Befehle 

Zeichen aus Eingabepuffer holen 
Tabelle der BASIC -Befehle mit Zeilennummer 
BASIC-Befehl LIST 

BASIC-Zeilen bc — delisten 

Zeichen aus Puffer ausgeben 
Bildschirmausgabe 

BASIC --Zeile in Puffer listen 
Ein-Byte-Zahl ausgeben 
Zwei-Byte-Zahl ausgeben 
Zeilennummer ausgeben 

‚Binärzahl ausgeben 

Hexzahl ausgeben 

Fließkommazahl ausgeben 

Adressen der BASIC-Befehlsworte 
Tabelle der BASIC-Befehlsworte 
Tabelle der BASIC-Operatoren 
Programmzeiger löschen 
Zeilenadresse durch Zeilennummer ersetzen 
Eingabezeile in Interpreterkode wandeln 
Statement in Interpreterkode wandeln 
BASIC-Befehl DELETE 

Zeilenadresse holen 

BASIC--Zeile suchen 
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E7DF 
E8C1 
E8SEF 
E8F3 
E9BD 
E9YF6 
EA3C 
EAA6 
ECO9 
EC3D 
EC5C 
EC87 
EE61 
EE79 
EE82 
EE9ID 
EE9F 
F114 
F119 
F158 
F15F 
F16D 
F177 
F17D 
F194 
F1AO 
F1BA 
F1F2 
F1F6 
F1FD 
F25C 
F277 
F280 
F2AO 
F2C4A 
F3BA 
F47B 
F4C4 
F4EF 
F501 
F51D 
F52C 
F58E 
F5AO 
F5BO 
F5D1 
F5E6 


BASIC-Befehl RENUM 

Test auf indizierte Variable 

BASIC -Befehl DATA 
BASIC-Befehle ELSE, REM und ’ 
BASIC-Befehl RUN 

BASIC-Befehl LOAD 
BASIC-Befehl CHAIN 
BASIC-Befehl MERGE 
BASIC-Befehl SAVE 

SAVE ,P 

SAVE ,B 

SAVE ,A 

ASCII-Ziffer nach binär wandeln 
Integerzahl hl ausgeben 
Integerzahl nach ASCIH wandeln 
Zahl nach ASCI wandeln 

Zahl formatieren 

Umwandlung nach binär 
Umwandlung nach hex 
BASIC-Funktion PEEK 
BASIC-Befehl POKE 
BASIC-Funktion INP 
BASIC-Befehl OUT 

BASIC-Befehl WAIT 

16-Bit—-Wert und 8-Bit-Wert holen 
BASIC-Befehlserweiterung suchen 
BASIC-Befehl CALL 

TAB--Stops initialisieren 
BASIC-Befehl ZONE 
BASIC-Befehl PRINT 

PRINT, 

PRINT SPC 

PRINT TAB 

Integerwert in Klammern holen 
PRINT USING 

auf Formatierungszeichen prüfen 
BASIC-Befehl WRITE 

Speicher konfigurieren 
BASIC-Befehl MEMORY 

Platz für zu ladendes Programm schaffen 
Länge des Stringbereichs berechnen 
Programm - und Variablenzeiger um bc erhöhen 
BASIC --Stack initialisieren 

Platz im BASIC -Stack freigeben 
Platz im BASIC-Stack reservieren 
Platz für String reservieren 

Test auf Platz im Stringbereich 
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F5F8 
F618 
F628 
F69D 
F6CD 
F7CB 
F828 
F834 
F839 
F842 
F863 
F897 
F8BA 
F8C4 
F8CE 
F8EA 
F9YIE 
F93C 
F943 
FYAB 
F993 
FYEY 
FYFB 
FAOA 
FA1O0 
FA16 
FA24 
FAS6 
FA57 
FA7O 
FA77 
FA92 
FAA1 
FBB3 
FBDA 
FC19 
FC2D 
FC3E 
FCCC 
FCE1 
FCF5 
FDO09 
FD12 
FD37 
FD49 
FD58 
FD63 


Platz im Variablenbereich reservieren 
Test auf Platz im Variablenbereich 
freien Speicherplatz berechnen 
BASIC-Befehl SYMBOL 

SYMBOL AFTER 

String lesen 

String ausgeben 

BASIC-Funktion LOWER$ 
Umwandlung Groß- in Kleinbuchstaben 
BASIC-Funktion UPPER$ 
Stringaddition 

Stringvergleich 

BASIC-Funktion BIN$ 
BASIC-Funktion HEX$ 

Argumente für BIN$ und HEX$ holen 
BASIC-Funktion DEC$ 
BASIC-Funktion STR$ 
BASIC-Funktion LEFT$ 
BASIC-Funktion RIGHT$ 
BASIC-Funktion MID$ 
BASIC-Befehl MID$ 

String und 8-Bit-Wert holen 

3. Argument für MID$ holen 
BASIC-Funktion LEN 
BASIC-Funktion ASC 
BASIC-Funktion CHR$ 

reservierte Variable INKEY$ 
BASIC-Funktion STRING$ 
BASIC-Funktion SPACE$ 
ASCI-Kode holen 

BASIC-Funktion VAL 

Umwandlung nach Integer und Test < 256 
BASIC -Funktion INSTR 
Descriptorstack initialisieren 
Stringparameter holen 

Platz reservieren, Descriptor ablegen 
BASIC-Funktion FRE 

Garbage Collection 
BASIC-Operator '+' 
BASIC-Operator '—' 
BASIC-Operator ’x' 

arithmtischer Vergleich 
BASIC-Operator '/' 
BASIC-Operator 'Backslash’ 
BASIC-Operator MOD 
BASIC-Operator AND 
BASIC-Operator OR 
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FD6D 
FD85 
FD89 
FDE8 
FDED 
FE4F 
FE6A 
FE8D 
FEC2 
FEEC 
FFO2 
FFOA 
FFOD 
FF16 
FF23 
FF27 
FF2D 
FF3C 
FF45 
FF53 
FF62 
FF71 
FF8A 
FF93 
FFAA 
FFB8 
FFBE 
FFC4 
FFCF 
FFDA 
FFE7 
FFF2 
FFF5 
FFF8 
FFFY 
FFFB 


BASIC-Operator XOR 
BASIC-Funktion ABS 

Vorzeichen wechseln 

BASIC-Funktion FIX 

BASIC-Funktion INT 
Integeroperanden nach Fließkomma wandeln 
Integerzahl nach Fließkomma wandeln 
BASIC-Funktion CINT 
BASIC-Funktion UNT 
BASIC-Funktion CREAL 
BASIC-Funktion SGN 

Akkuinhalt als Integerzahl übernehmen 
Integerzahl in hl übernehmen 
Variablentyp auf Fließkomma setzen 
Variablentyp holen 

Test auf String 

numerisches Ergebnis holen 

Test auf String, sonst 'Type mismatch’ 
Test auf String 

Ergebnis auf BASIC-Stack ablegen 
Variable nach (hl) kopieren 

Test auf Buchstaben 

Klein- in Großbuchstaben umwandeln 
Tabelle durchsuchen 

Tabelle durchsuchen 

Vergleich hl <> de 

Vergleich hl <> bc 


de:=de-.hl 
hl := hl - de 
bc :=hl- de 
hl:=hl-bc 


Blocktransfer ldir 
Blocktransfer lddr 
jp (hl) 
jp (bc) 
ip (de) 
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4.4 Die BASIC-Tokens 


00: 


01 
02 
03 
04 
OD 
OE 
OF 
10 
11 
12 
13 
14 
15 
16 
17 
19 
1A 
1B 
1C 
1D 
1E 
1F 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
8A 
8B 
8C 
8D 
8E 
8F 
90 
91 
92 
93 
94 
95 
96 
97 


Zeilenende 

'", Ende des Statements 
Integervariable '%' 
Stringvariable ’$’ 
Realvariable '!' 
Variable ohne Kennzeichen 
Konstante O0 
Konstante 

Konstante 2 

Konstante 3 

Konstante 4 

Konstante 5 

Konstante 6 

Konstante 7 

Konstante 8 

Konstante 9 
Ein-Byte-Wert 
Zwei-Byte-Wert, dezimal 
Zwei-Byte-Wert, binär 
Zwei-Byte-Wert, hex 
Zeilenadresse 
Zeilennummer 
Fließkommawert 
AFTER 

AUTO 

BORDER 

CALL 

CAT 

CHAIN 

CLEAR 

CLG 

CLOSEIN 

CLOSEOUT 

CLS 

CONT 

DATA 

DEF 

DEFINT 

DEFREAL 

DEFSTR 

DEG 

DELETE 

DIM 

DRAW 

DRAWR 

EDIT 

ELSE 


98 

99 

9A 
9B 
9C 
9D 
9E 
9F 
AO 
Al 
A2 
A3 
A4 
A5 
A6 
A7 
A8 
A9 


AB 
AC 
AD 
AE 
AF 
BO 
Bi 
B2 
B3 
BA 
B5 
B6 
B7 
B8 
B9 
BA 
BB 
BC 
BD 
BE 
BF 
co 
c1 
Cc2 
C3 
c4 
C5 
C6 
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END 

ENT 

ENV 
ERASE 
ERROR 
EVERY 
FOR 
GOSUB 
GOTO 

IF 

INK 
INPUT 
KEY 

LET 

LINE 
LIST 
LOAD 
LOCATE 
MEMORY 
MERGE 
MID$ 
MODE 
MOVE 
MOVER 
NEXT 
NEW 

ON 

ON BREAK 
ONERROR GOTOO 
ONSQ 
OPENIN 
OPENOUT 
ORIGIN 
OUT 
PAPER 
PEN 
PLOT 
PLOTR 
POKE 
PRINT 


RAD 
RANDOMIZE 
READ 
RELEASE 
REM 

RENUM 


C7 
c8 
c9 
CA 
CB 
cc 
CD 
CF 
DO 
D1 
D2 
D3 
D4 
D5 
D6 
D7 
D8 
D9 
DA 
DB 
DC 
E3 
E4 
E5 
E6 
E7 
EA 
EB 
EC 
ED 
EE 
EF 
FO 
Fi 
F2 
F3 
F4 
F5 
F6 
F7 
F8 
F9 


RESTORE FA AND 
RESUME FB MOD 
RETURN FC OR 
RUN FD XOR 
SAVE FE NOT 
SOUND FF Funktion 
SPEED CE STOP 
SYMBOL 

TAG 

TAGOFF 

TRON 

TROFF 

WAIT 

WEND 

WHILE 

WIDTH 

WINDOW 

ZONE 

WRITE 

DI 

EI 

ERL 

FN 

SPC 

STEP 

SWAP 

TAB 

THEN 


onx 


'Backslash’ 
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Das Token &FF steht vor einer Funktion. Danach können die nachstehen- 
den Token folgen: 


00 
01 
02 
03 
04 
05 
06 
07 
08 
09 
0A 
OB 
0C 
0D 
OE 
OF 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
1A 
1B 
1C 
1D 
40 
41 
42 
43 
44 
45 
46 
47 
48 


ABS 
ASC 
ATN 
CHR$ 
CINT 
COS 
CREAL 
EXP 
FIX 
FRE 
INKEY 
INP 

INT 
JOY 
LEN 
LOG 
LOG1O0 
LOWER$ 
PEEK 
REMAIN 
SGN 
SIN 
SPACE$ 
so 

SOR 
STR$ 
TAN 
UNT 
UPPER$ 
VAL 
EOF 
ERR 
HIMEM 
INKEY$ 
PI 

RND 
TIME 
XPOS 
YPOS 


71 
72 
73 
74 
75 
76 
77 
78 
79 
7A 
7B 
7C 
7D 
7E 
7F 
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BIN$ 
DEC$ 
HEX$ 
INSTR 
LEFT$ 
MAX 
MIN 

POS 
RIGHT$ 
ROUND 
STRING$ 
TEST 
TESTR 
'Improper argument’ 
VPOS 





Deutschlands meistverkaufte Text- 
verarbeitung jetzt in einer speziellen 
Version für den CPC 464. Erweitert um 
80-Zeichen-Darstellung, Tabulatoren, 
Word Wrap und Trennvorschläge. 
Natürlich mit deutschem Zeichensatz. 
Komplett in Maschinensprache und damit 
superschnell. Durch Menuesteuerung 
leicht zu bedienen. Läßt sich ideal mit 
DATAMAT kombinieren. TEXTOMAT für 
den CPC 464 kostet einschließlich 
umfangreichem Handbuch DM 148,-*. 


* Unverbindliche Preisempfehlung 





Deutschlands meistverkaufte Datei- 
verwaltung jetzt in einer speziellen Version 
für den CPC 464. Erweitert um 
80-Zeichen-Darstellung und größere 
Datensätze mit bis zu 512 Zeichen. 
Komplett in Maschinensprache und damit 
superschnell. Läßt sich ideal mit 
TEXTOMAT kombinieren. DATAMAT für 
den CPC 464 kostet einschließlich 
umfangreichem Handbuch DM 148,-*. 


* Unverbindliche Preisempfehlung 


BUDGET M 
MANAGER 


AR vs 





Universelle Buchführung sowohl für 
private Zwecke als auch zur Planung, 
Überwachung und Abwicklung von 
Budgets jeglicher Art. Komplett mit 
ausführlichem Handbuch ab April 
für DM 148,-*. 

In Vorbereitung: MATHEMAT das 
leistungsstarke Mathematikprogramm. 
Ab Ende April. 


* Unverbindliche Preisempfehlung 








Das Maschinensprachebuch zum CPC 
464 für jeden, dem das BASIC nicht mehr 
ausreicht. Von den Grundlagen der 
Maschinenspracheprogrammierung über 
die Arbeitsweise des Z 80-Prozessors und 
der Beschreibung seiner Befehle bis zur 
Benutzung von Systemroutinen ist alles 
ausführlich erklärt. Dazu Assembler, 
Disassembler und Monitor als 
Anwenderprogramme. Einstieg in 
Maschinensprache leicht gemacht! 

Das Maschinensprachebuch zum CPC 
464, über 300 Seiten, DM 39,-. 


Der Abdruck der Schaltung erfolgt 
mit freundlicher Genehmigung der 
Schneider Computer Division. 
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DAS STEHT DRIN: 

CPC 464 INTERN ist eine unentbehrliche Hilfe für den 
De Basic-Programmierer und ein abso- 
lutes Muß für den ‚Assembler- -Programmierer. Hier 
wurde in monatelanger Kleinarbeit ein Standardwerk 
geschaffen, das wirklich alle Geheimnisse des CPC 
464 enthüllt. 








Aus dem Inhalt: 


—- Das sollten Sie von Ihrem Gerät wissen 
—- Die nn 





— Besonderh Ei des Z 80 im CPC 464 
— Das Gate Array 
— Der Video-Controller 
— Das Video-Ram 
Der Soundct ip 






Das Betriebssystem 
Nutzung 0 DEINONL. am EIER Hardcopy 





— Der BASI( aaa 
- BASIC und Maschinensprache 
— Das BASIC-ROM-Listing 

und vieles mehr 


UND GESCHRIEBEN HAT DIESES BUCH: 

Das bewährte DATA-BECKER-Autorenteam mit Rolf 
Brückmann, Lothar Englisch und Klaus Gerits. Alle 
sind nicht nur begeisterte Programmierer, die Ihren 
CPC 464 in und auswendig kennen, sondern auch 
bekannte Autoren vieler weiterer Bücher. 
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